Van Eck sequence: Difference between revisions

Line 2,525:
swap 1 - times
[ dup behead swap find
2dup 1+ 2dup swap found *
iff 1+ else [ drop 0 ]
swap join ]
reverse ] is van-eck ( n --> [ )
 
10 van-eck echo cr
1000 van-eck -10 split echo drop </lang>
 
{{out}}
 
<pre>[ 0 0 1 0 2 0 2 2 1 6 ]
[ 4 7 30 25 67 225 488 0 10 136 ]</pre>
</pre>
 
=={{header|Racket}}==
1,483

edits