ref: 67b2ebda49f691acfd676bb5f662e4e7e5471000
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)