9 lines
163 B
Text
9 lines
163 B
Text
|
f: $[n][ if? n=0 -> 1 else -> n-m f n-1 ]
|
||
|
|
m: $[n][ if? n=0 -> 0 else -> n-f m n-1 ]
|
||
|
|
|
||
|
|
loop 0..20 'i [
|
||
|
|
print ["f(" i ")=" f i]
|
||
|
|
print ["m(" i ")=" m i]
|
||
|
|
print ""
|
||
|
|
]
|