ref: a7baf31416fe2312be003319092a1c0783726022
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)