fork download
  1. (defun fc (x y z)
  2. (format t "x ~d ~d ~d~%" x y z); debug
  3. (if (= x 0)
  4. x
  5. (fc (- x 1) z (+ y z))))
  6. (defun f (n)
  7. (if (< n 1)
  8. n
  9. (fc n 1 1)))
  10.  
  11.  
  12.  
  13. (defun ft(n)
  14. (time (format t "output ~d~%" (f n))))
  15.  
  16. (ft 100)
Success #stdin #stdout 0s 38328KB
stdin
Standard input is empty
stdout
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