PageRenderTime 19ms CodeModel.GetById 15ms app.highlight 2ms RepoModel.GetById 1ms app.codeStats 0ms

/trunk/Examples/guile/multimap/runme.scm

#
Lisp | 30 lines | 16 code | 9 blank | 5 comment | 0 complexity | 3d1328c09f36919c64dba9987f3df222 MD5 | raw file
 1;;; Test out some multi-argument typemaps
 2
 3(use-modules (example))
 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; Call the count function
23(display (count "Hello World" #\l))
24(newline)
25
26; Call the capitalize function
27(display (capitalize "hello world"))
28(newline)
29
30