Van Eck sequence: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add COBOL) |
(Added Quackery.) |
||
Line 2,519: | Line 2,519: | ||
N=1000 -> [4, 7, 30, 25, 67, 225, 488, 0, 10, 136] |
N=1000 -> [4, 7, 30, 25, 67, 225, 488, 0, 10, 136] |
||
N=10000 -> [7, 43, 190, 396, 2576, 3142, 0, 7, 7, 1]</pre> |
N=10000 -> [7, 43, 190, 396, 2576, 3142, 0, 7, 7, 1]</pre> |
||
=={{header|Quackery}}== |
|||
<lang Quackery> [ ' [ 0 ] |
|||
swap 1 - times |
|||
[ dup behead swap find |
|||
2dup swap size 1 - < |
|||
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> |
|||
=={{header|Racket}}== |
=={{header|Racket}}== |