17 lines
208 B
Plaintext
17 lines
208 B
Plaintext
//valid,10946
|
|
//:END:
|
|
|
|
function int int int int => int fibonacci
|
|
{
|
|
dup 0 == req req req req
|
|
if
|
|
{
|
|
req deq deq deq
|
|
}
|
|
else
|
|
{
|
|
dup + req 1 req swp - req req req fibonacci
|
|
}
|
|
}
|
|
|
|
20 0 1 0 fibonacci println |