Fibonacci Lisp

SUBMITTED BY: Guest

DATE: March 19, 2014, 6:44 p.m.

FORMAT: Text only

SIZE: 170 Bytes

Raw Download

HITS: 6364

Report
  1. ;Écrire la fonction (fibo <n>)
  2. (defun fibo(n)
  3. (cond ( (= n 0) 0 )
  4. ( (= n 1) 1 )
  5. ( t (+ (fibo (- n 1) ) (fibo (- n 2) ) ) )
  6. )
  7. )
comments powered by Disqus