clojure factorial 1

loop를 사용

아직 코드에 문제가 있긴하지만 지금까지 한것을 알아보는 의미로 작성

 
(defn fac [x]
      (loop [i x
             val 1]
            (if (< i 1) val
            (recur (dec i) (* val i)))))
 

최대한 비슷한 기능을 하는 C++코드 

int fac(int x){
    int val = 1;
    for(int i = x; i >= 1; i--){
        val *= i;
    }
    return val;
}

최대한 비슷하게 구현한 C++코드 

int fac(int x){
    int val = 1;
    int i = x;
    
LOOP:
    if(i < 1) return val;
    
    val *= i;
    i--;
    goto LOOP;
}