ref: 25ad19ea481a62ab7f332a6db33b54bfb74eeeff
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)