* 소스 파일명: rec-fact.scm ;;; Filename: rec-fact.scm ;;; ;;; (fact n) : factorial function ;;; (fibo n) : fibonacci function ;;; (fib n) : nice fibonacci function ;;; ;;; Date: 2013. 2.10. ;;; Author: pkim ((AT)) scripts ((DOT)) pe ((DOT)) kr #| ;; An usual recursive factorial function. ;; This is slow and gives rise a stack overflow. (define fact (lambda (n) (let loop (i k) (if ( (fact 100) 9.3326..
