17 lines
340 B
Text
17 lines
340 B
Text
|
[ dup size dip
|
||
|
|
[ witheach
|
||
|
|
[ over swap peek swap ] ]
|
||
|
|
nip pack ] is arrange ( [ [ --> [ )
|
||
|
|
|
||
|
|
' [ 10 20 30 40 50 ]
|
||
|
|
3 5 comb
|
||
|
|
witheach
|
||
|
|
[ dip dup arrange
|
||
|
|
witheach [ echo sp ]
|
||
|
|
cr ]
|
||
|
|
drop
|
||
|
|
cr
|
||
|
|
$ "zero one two three four" nest$
|
||
|
|
' [ 4 3 1 0 1 4 3 ] arrange
|
||
|
|
witheach [ echo$ sp ]
|