Van Eck sequence: Difference between revisions
Content added Content deleted
m (→{{header|Quackery}}: tweak) |
(→{{header|Quackery}}: shortened) |
||
| Line 2,525: | Line 2,525: | ||
swap 1 - times |
swap 1 - times |
||
[ dup behead swap find |
[ dup behead swap find |
||
1+ 2dup swap found * |
|||
iff 1+ else [ drop 0 ] |
|||
swap join ] |
swap join ] |
||
reverse ] |
reverse ] is van-eck ( n --> [ ) |
||
10 van-eck echo cr |
10 van-eck echo cr |
||
1000 van-eck -10 split echo drop |
1000 van-eck -10 split echo drop</lang> |
||
{{out}} |
{{out}} |
||
<pre>[ 0 0 1 0 2 0 2 2 1 6 ] |
<pre>[ 0 0 1 0 2 0 2 2 1 6 ] |
||
[ 4 7 30 25 67 225 488 0 10 136 ] |
[ 4 7 30 25 67 225 488 0 10 136 ]</pre> |
||
</pre> |
|||
=={{header|Racket}}== |
=={{header|Racket}}== |
||