13 lines
404 B
Factor
13 lines
404 B
Factor
USING: fry io kernel math prettyprint sequences ;
|
|
IN: rosetta-code.leonardo-numbers
|
|
|
|
: first25-leonardo ( vector add -- seq )
|
|
23 swap '[ dup 2 tail* sum _ + over push ] times ;
|
|
|
|
: print-leo ( seq -- ) [ pprint bl ] each nl ;
|
|
|
|
"First 25 Leonardo numbers:" print
|
|
V{ 1 1 } 1 first25-leonardo print-leo
|
|
|
|
"First 25 Leonardo numbers with L(0)=0, L(1)=1, add=0:" print
|
|
V{ 0 1 } 0 first25-leonardo print-leo
|