21 lines
235 B
Text
21 lines
235 B
Text
:fac
|
|
dup 1 great [dup 1 sub fac mult] if
|
|
;
|
|
|
|
|
|
:fib
|
|
dup 1 great [dup 1 sub fib swap 2 sub fib add] if
|
|
;
|
|
|
|
|
|
:test
|
|
print ": " print
|
|
10 [over exec print " " print] for
|
|
nl
|
|
;
|
|
|
|
|
|
@fib "fib" test
|
|
@fac "fac" test
|
|
|
|
"End " input
|