Imported from /srv/lorry/lorry-area/swig-tarball/swig-1.3.40.tar.gz.HEADswig-1.3.40master

1 files changed, 28 insertions, 0 deletions

diff --git a/Examples/guile/simple/example.scm b/Examples/guile/simple/example.scm
new file mode 100644
index 0000000..9408b1a
--- /dev/null
+++ b/Examples/guile/simple/example.scm
@@ -0,0 +1,28 @@
+;;; example.scm
+
+(define (mdisplay-newline . args)       ; does guile-1.3.4 have `format #t'?
+  (for-each display args)
+  (newline))
+
+(mdisplay-newline (get-time) "My variable = " (My-variable))
+
+(do ((i 0 (1+ i)))
+    ((= 14 i))
+  (mdisplay-newline i " factorial is " (fact i)))
+
+(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 150 1 150)
+
+(mdisplay-newline "My-variable = " (My-variable))
+
+(exit (and (= 1932053504 (fact 13))
+           (= 745470.0 (My-variable))))
+
+;;; example.scm ends here