/trunk/Examples/mzscheme/multimap/example.scm

# · Lisp · 27 lines · 16 code · 8 blank · 3 comment · 0 complexity · 063626bf093382363f471b781498f552 MD5 · raw file

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