PageRenderTime 4ms CodeModel.GetById 1ms app.highlight 1ms RepoModel.GetById 1ms app.codeStats 0ms

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