Smarandache prime-digital sequence: Difference between revisions
m
→Naive: Add MAIN: to make vocab runnable
(Add Factor example) |
m (→Naive: Add MAIN: to make vocab runnable) |
||
Line 74:
: smarandache-demo ( -- )
"First 25:" print 25 smarandache ltake list>array .
"100th: " write smarandache 99 [ cdr ] times car . ;
MAIN: smarandache-demo</lang>
{{out}}
<pre>
Line 107 ⟶ 109:
100th: 33223
</pre>
===Optimized===
<lang factor>USING: combinators generalizations io kernel math math.functions
| |||