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.