11 lines
219 B
Plaintext
11 lines
219 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) |