eval.in

Paste #883000

Racket — Racket 6.10.1, pasted 1 month ago (json)

1
2
3
4
5
6
7
8
#lang racket

(define (fib n)
  (if (<= n 1)
      n
      (+ (fib (sub1 n)) (fib (- n 2)))))

(displayln (fib 30))

Program Output

832040

OK (0.948 sec real, 1.149 sec wall, 56 MB, 13003 syscalls)

Fork