11 lines
174 B
Text
11 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
|