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.