Category:Initlib: Difference between revisions
Content added Content deleted
m (→Library) |
No edit summary |
||
Line 51: | Line 51: | ||
[ rup [ /dup rdown /exec /not [{pop}] aif ] atox forall ] |
[ rup [ /dup rdown /exec /not [{pop}] aif ] atox forall ] |
||
end}. |
end}. |
||
/zip { |
|||
[ rup { |
|||
dup length 0 eq rdown dup length 0 eq rdown or {exit} if |
|||
uncons rdown uncons rdown 4 2 roll unit cons rup exch |
|||
} loop pop pop ] |
|||
}. |
|||
% [1 3 5 7] [2 4 6 8] zip |
|||
% ifs with stack invariant predicates. |
% ifs with stack invariant predicates. |
||
/ift { |
/ift { |