Ludic numbers: Difference between revisions
Content added Content deleted
(→{{header|zkl}}: rewrite) |
|||
Line 1,524: | Line 1,524: | ||
=={{header|Oforth}}== |
=={{header|Oforth}}== |
||
<lang Oforth> |
<lang Oforth>: ludic(n) |
||
{ |
|||
| ludics l p | |
| ludics l p | |
||
ListBuffer newSize(n) seqFrom(2, n) over addAll ->l |
ListBuffer newSize(n) seqFrom(2, n) over addAll ->l |
||
ListBuffer newSize(n) dup add(1) ->ludics |
ListBuffer newSize(n) dup add(1) dup ->ludics |
||
while(l notEmpty) [ |
while(l notEmpty) [ |
||
l removeFirst dup ludics add ->p |
l removeFirst dup ludics add ->p |
||
l size p / p * while(dup 1 > ) [ dup l removeAt drop p - ] drop |
l size p / p * while(dup 1 > ) [ dup l removeAt drop p - ] drop |
||
] |
] ; |
||
ludics |
|||
} |
|||
: ludics |
|||
{ |
|||
| l i | |
| l i | |
||
ludic(22000) ->l |
ludic(22000) ->l |
||
Line 1,550: | Line 1,546: | ||
l include(i 6 +) ifFalse: [ continue ] |
l include(i 6 +) ifFalse: [ continue ] |
||
i print ", " print i 2 + print ", " print i 6 + println |
i print ", " print i 2 + print ", " print i 6 + println |
||
] |
] ;</lang> |
||
}</lang> |
|||
{{out}} |
{{out}} |