(defun fc (x y z) (format t "x ~d ~d ~d~%" x y z); debug (if (= x 0) x (fc (- x 1) z (+ y z)))) (defun f (n) (if (< n 1) n (fc n 1 1))) (defun ft(n) (time (format t "output ~d~%" (f n)))) (ft 100)
Standard input is empty
x 100 1 1 x 99 1 2 x 98 2 3 x 97 3 5 x 96 5 8 x 95 8 13 x 94 13 21 x 93 21 34 x 92 34 55 x 91 55 89 x 90 89 144 x 89 144 233 x 88 233 377 x 87 377 610 x 86 610 987 x 85 987 1597 x 84 1597 2584 x 83 2584 4181 x 82 4181 6765 x 81 6765 10946 x 80 10946 17711 x 79 17711 28657 x 78 28657 46368 x 77 46368 75025 x 76 75025 121393 x 75 121393 196418 x 74 196418 317811 x 73 317811 514229 x 72 514229 832040 x 71 832040 1346269 x 70 1346269 2178309 x 69 2178309 3524578 x 68 3524578 5702887 x 67 5702887 9227465 x 66 9227465 14930352 x 65 14930352 24157817 x 64 24157817 39088169 x 63 39088169 63245986 x 62 63245986 102334155 x 61 102334155 165580141 x 60 165580141 267914296 x 59 267914296 433494437 x 58 433494437 701408733 x 57 701408733 1134903170 x 56 1134903170 1836311903 x 55 1836311903 2971215073 x 54 2971215073 4807526976 x 53 4807526976 7778742049 x 52 7778742049 12586269025 x 51 12586269025 20365011074 x 50 20365011074 32951280099 x 49 32951280099 53316291173 x 48 53316291173 86267571272 x 47 86267571272 139583862445 x 46 139583862445 225851433717 x 45 225851433717 365435296162 x 44 365435296162 591286729879 x 43 591286729879 956722026041 x 42 956722026041 1548008755920 x 41 1548008755920 2504730781961 x 40 2504730781961 4052739537881 x 39 4052739537881 6557470319842 x 38 6557470319842 10610209857723 x 37 10610209857723 17167680177565 x 36 17167680177565 27777890035288 x 35 27777890035288 44945570212853 x 34 44945570212853 72723460248141 x 33 72723460248141 117669030460994 x 32 117669030460994 190392490709135 x 31 190392490709135 308061521170129 x 30 308061521170129 498454011879264 x 29 498454011879264 806515533049393 x 28 806515533049393 1304969544928657 x 27 1304969544928657 2111485077978050 x 26 2111485077978050 3416454622906707 x 25 3416454622906707 5527939700884757 x 24 5527939700884757 8944394323791464 x 23 8944394323791464 14472334024676221 x 22 14472334024676221 23416728348467685 x 21 23416728348467685 37889062373143906 x 20 37889062373143906 61305790721611591 x 19 61305790721611591 99194853094755497 x 18 99194853094755497 160500643816367088 x 17 160500643816367088 259695496911122585 x 16 259695496911122585 420196140727489673 x 15 420196140727489673 679891637638612258 x 14 679891637638612258 1100087778366101931 x 13 1100087778366101931 1779979416004714189 x 12 1779979416004714189 2880067194370816120 x 11 2880067194370816120 4660046610375530309 x 10 4660046610375530309 7540113804746346429 x 9 7540113804746346429 12200160415121876738 x 8 12200160415121876738 19740274219868223167 x 7 19740274219868223167 31940434634990099905 x 6 31940434634990099905 51680708854858323072 x 5 51680708854858323072 83621143489848422977 x 4 83621143489848422977 135301852344706746049 x 3 135301852344706746049 218922995834555169026 x 2 218922995834555169026 354224848179261915075 x 1 354224848179261915075 573147844013817084101 x 0 573147844013817084101 927372692193078999176 output 0 Real time: 0.006477 sec. Run time: 0.004 sec. Space: 214864 Bytes