* 아주 간단한 재귀호출 팩토리얼 함수 구현 소스: facto-01.clj ;;; Filename: fact-01.clj ;;; ;;; (fact n) : a factorial function using a plain recursive call ;;; ;;; This gives rise an integer overflow while calculating 20!. ;;; ;;; Execute: clj fact-01.clj ;;; ;;; Date: 2013. 2. 11. ;;; Author: pkim ((AT)) scripts ((DOT)) pe ((DOT)) kr (defn fact [n] (if (< n 2) 1 (* n (fact (- n 1))) )) (printf "10! = %s\n" (fact ..