clojue fibonacci / memoize

피보나치 수열을 clojure로 만들어보자

일반적으로 피보나치 수열은 C++로 

이런 방식으로 만들수 있는데 (코드가 비효율적인 것은 일단 논외로) 

int fibo(int a){
    if(a == 0) return 1;
    if(a == 1) return 1;
    return fibo(a - 1) + fibo(a - 2);
}

이걸 일단 그대로 clojure 로 옮겨보면 

(defn fibo [n]
      (case n
            0 1
            1 1
            (+ (fibo (- n 1)) (fibo (- n 2)))))

이렇게 나올수 있다 

이걸 clojure에서는 memoize 함수를 사용해서 저장시킬수 있다 

C++로 비슷하게 생각해보면 아마 이렇게 될것이다

int mem[100] = {1,1,};
int fibo(int a){
    if(a == 0) return 1;
    if(a == 1) return 1;
    if(mem[a] == 0)
        mem[a] = fibo(a - 1) + fibo(a - 2);
    return mem[a];
}

memoize 사용 

(def fibo
  (memoize
    #(case  %1
            0 1
            1 1
            (+ (fibo (dec %1)) (fibo (- %1 2))))))

defn 이 아니라 그냥 def 변수로 설정해서 memoize를 할당하였다 

함수는 람다식으로 하였는데 보기 불편하거나 약간 복잡해지면 fn으로 바꿔서 일반 함수로 만들어도 똑같이 동작한다