10 lines
220 B
Text
10 lines
220 B
Text
|
[ ' [ 0 ]
|
||
|
|
swap 1 - times
|
||
|
|
[ dup behead swap find
|
||
|
|
1+ 2dup swap found *
|
||
|
|
swap join ]
|
||
|
|
reverse ] is van-eck ( n --> [ )
|
||
|
|
|
||
|
|
10 van-eck echo cr
|
||
|
|
1000 van-eck -10 split echo drop
|