https://github.com/feeley/gambit/tree/phpjs
Pour la compilation, utilisez la commande:
$ gsc -c -target js fib.scm
(Remplacez 'js' par 'php' ou 'python' pour utiliser les autres backends). Les deux programmes ci-dessous sont compilables avec les 3 backends.
;; Fibonacci (declare (standard-bindings) (extended-bindings) (fixnum) (not safe) (not interrupts-enabled))
(define (fact n) (if (fx< n 2) 1 (fx* n (fact (fx- n 1)))))
(print (fact 10))
;; Factorial (declare (standard-bindings) (extended-bindings) (fixnum) (not safe) (not interrupts-enabled))
(define (fib n) (if (fx< n 2) 1 (fx+ (fib (fx- n 1)) (fib (fx- n 2)))))
(print (fib 30))
Vincent.