12 lines
218 B
Plaintext
12 lines
218 B
Plaintext
DEFINI fib(x) VT {
|
|
SI x EST NVLLVS TVNC {
|
|
REDI(NVLLVS)
|
|
} ALVID SI x EST I TVNC {
|
|
REDI(I)
|
|
} ALVID {
|
|
REDI(INVOCA fib(x-II) + INVOCA fib(x-I))
|
|
}
|
|
}
|
|
|
|
DICE(INVOCA fib(AVDI_NVMERVS()))
|