Category:Initlib: Difference between revisions
no edit summary
m (→Library) |
No edit summary |
||
Line 51:
[ rup [ /dup rdown /exec /not [{pop}] aif ] atox forall ]
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.
/ift {
| |||