18 lines
408 B
Text
18 lines
408 B
Text
|
;;; -*- scheme -*-
|
||
|
|
||
|
(define lambda (fsubr (dlsym "lambdaFsubr")))
|
||
|
(define if (fsubr (dlsym "ifFsubr")))
|
||
|
(define println (subr (dlsym "printlnSubr")))
|
||
|
(define + (subr (dlsym "addSubr")))
|
||
|
(define - (subr (dlsym "subtractSubr")))
|
||
|
(define < (subr (dlsym "lessSubr")))
|
||
|
|
||
|
(define nfibs
|
||
|
(lambda (n)
|
||
|
(if (< n 2)
|
||
|
1
|
||
|
(+ 1 (nfibs (- n 1)) (nfibs (- n 2))))))
|
||
|
|
||
|
(println "running...")
|
||
|
(println (nfibs 28))
|