Anonymous user
Generator/Exponential: Difference between revisions
Added PicoLisp
(added haskell) |
(Added PicoLisp) |
||
Line 23:
'''Sample output'''
<pre>[529,576,625,676,784,841,900,961,1024,1089]</pre>
=={{header|PicoLisp}}==
Coroutines are available only in the 64-bit version.
<lang PicoLisp>(de powers (M)
(co (intern (pack 'powers M))
(for (I 0 (inc 'I))
(yield (** I M)) ) ) )
(de filtered (N M)
(co 'filtered
(let (V (powers N) F (powers M))
(loop
(if (> V F)
(setq F (powers M))
(and (> F V) (yield V))
(setq V (powers N)) ) ) ) ) )
(do 20 (filtered 2 3))
(do 10 (println (filtered 2 3)))</lang>
Output:
<pre>529
576
625
676
784
841
900
961
1024
1089</pre>
=={{header|Python}}==
| |||