/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 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)