Examples/mzscheme/multimap/example.scm

   1 ;; run with mzscheme -r example.scm
   2
   3 (load-extension "example.so")
   4
   5 ; Call the GCD function
   6
   7 (define x 42)
   8 (define y 105)
   9 (define g (gcd x y))
  10
  11 (display "The gcd of ")
  12 (display x)
  13 (display " and ")
  14 (display y)
  15 (display " is ")
  16 (display g)
  17 (newline)
  18
  19 ;  Call the gcdmain() function
  20 (gcdmain #("gcdmain" "42" "105"))
  21
  22
  23 (display (count "Hello World" #\l))
  24 (newline)
  25
  26 (display (capitalize "hello world"))
  27 (newline)