e0e54b762a
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@364 626c5289-ae23-0410-ae9c-e8d60b6d4f22
35 lines
792 B
Scheme
35 lines
792 B
Scheme
;;;
|
|
;;; Guile script for simple example.
|
|
;;; Is a little clumsy since I'm not the greatest scheme programmer.
|
|
;;;
|
|
|
|
(display (get-time))
|
|
(display "My variable = ")
|
|
(display (My-variable))
|
|
(newline)
|
|
|
|
(define (facts x max)
|
|
(if (< x max)
|
|
(begin
|
|
(display (string-append (number->string x) " factorial is "
|
|
(number->string (fact x))))
|
|
(newline)
|
|
(facts (+ x 1) max))))
|
|
|
|
(facts 0 14)
|
|
|
|
|
|
(define (mods i imax j jmax)
|
|
(if (< i imax)
|
|
(if (< j jmax)
|
|
(begin
|
|
(My-variable (+ (My-variable) (mod i j)))
|
|
(mods i imax (+ j 1) jmax))
|
|
(mods (+ i 1) imax 1 jmax))))
|
|
|
|
(mods 1 250 1 250)
|
|
|
|
(display (string-append "My-variable = " (number->string (My-variable))))
|
|
(newline)
|
|
|
|
;;; example.scm ends here
|