14 lines
307 B
Scheme
14 lines
307 B
Scheme
(module fibo mzscheme
|
|
(define (fib n)
|
|
(cond ((< n 2) 1)
|
|
(else (+ (fib (- n 2)) (fib (- n 1))))))
|
|
|
|
(define (main args)
|
|
(let ((n (if (= (vector-length args) 0)
|
|
1
|
|
(string->number (vector-ref args 0)))))
|
|
(display (fib n))
|
|
(newline)))
|
|
|
|
(main (current-command-line-arguments)))
|