1
0
Fork 0
mirror of https://github.com/eclipse-cdt/cdt synced 2025-04-23 14:42:11 +02:00
cdt/dsf/org.eclipse.cdt.examples.dsf.pda/samples/fibonacci.pda
2009-01-08 21:08:05 +00:00

32 lines
276 B
Text

push 6
call fibonacci
output
halt
#
# f(n) = f(n-1) + f(n-2)
# f(0) = 1
# f(1) = 1
#
:fibonacci
var n
pop $n
push $n
branch_not_zero gt0
push 1
return
:gt0
push $n
dec
branch_not_zero gt1
push 1
return
:gt1
push $n
dec
call fibonacci
push $n
dec
dec
call fibonacci
add
return