ref: 476b3ea3a5d3791c51daa633b800ec0c76435a33
dir: /tests/fib-common.zuo/
#lang zuo/datum
;; The classic toy benchmark
(provide fib)
(define input
(let ([args (hash-ref (runtime-env) 'args)])
(if (null? args)
30
(string->integer (car args)))))
(define (fib n)
(cond
[(= n 0) 1]
[(= n 1) 1]
[else (+ (fib (- n 1)) (fib (- n 2)))]))
(fib input)