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