ponkore · March 26, 2012 14:21
diff --git a/fibo.clj b/fibo.clj
 ;; 何のひねりもない fibo
 (defn fibo [x]
  (if (or (= 0 x) (= 1 x))
    1
 	(+ (fibo (- x 1)) (fibo (- x 2)))))
 ;;
 (map #(fibo %) (take 10 (iterate inc 1)))
 ;; => (1 2 3 5 8 13 21 34 55 89)
	;; 何のひねりもない fibo
	(defn fibo [x]
	(if (or (= 0 x) (= 1 x))
	1
	(+ (fibo (- x 1)) (fibo (- x 2)))))
	;;
	(map #(fibo %) (take 10 (iterate inc 1)))
	;; => (1 2 3 5 8 13 21 34 55 89)