;*=====================================================================*/ ;* serrano/prgm/project/bigloo/examples/Embedded/fib.scm */ ;* ------------------------------------------------------------- */ ;* Author : Manuel Serrano */ ;* Creation : Wed Feb 14 09:08:34 1996 */ ;* Last change : Wed Feb 14 09:18:21 1996 (serrano) */ ;* ------------------------------------------------------------- */ ;* The fib module */ ;*=====================================================================*/ ;*---------------------------------------------------------------------*/ ;* The module */ ;*---------------------------------------------------------------------*/ (module fib) ;*---------------------------------------------------------------------*/ ;* fib ... */ ;*---------------------------------------------------------------------*/ (define (fib x) (if (<fx x 2) 1 (+fx (fib (-fx x 1)) (fib (-fx x 2))))) ;*---------------------------------------------------------------------*/ ;* Runtime execution */ ;*---------------------------------------------------------------------*/ (print "fib( 20 ): " (fib 20))