12 lines
174 B
Text
12 lines
174 B
Text
|
:Fibonacci
|
||
|
|
dup 0 less
|
||
|
|
( ["Invalid argument"]
|
||
|
|
[1 1 rot 2 sub [drop over over add] for]
|
||
|
|
) if
|
||
|
|
;
|
||
|
|
|
||
|
|
30 Fibonacci pstack print nl
|
||
|
|
|
||
|
|
msec print nl
|
||
|
|
"bertlham " input
|