10 lines
164 B
Plaintext
10 lines
164 B
Plaintext
DEFINI fib(x) VT {
|
|
SI x EST NVLLVS TVNC {
|
|
REDI(NVLLVS)
|
|
} ALIVD SI x EST I TVNC {
|
|
REDI(I)
|
|
} ALIVD {
|
|
REDI(INVOCA fib(x-II) + INVOCA fib(x-I))
|
|
}
|
|
}
|