/trunk/Examples/chicken/multimap/test-multimap.scm
Lisp | 59 lines | 45 code | 12 blank | 2 comment | 0 complexity | 77a17a7d6bda3f566342d6aceeb9d447 MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0
- ;; run with './multimap test-multimap.scm'
- ;; feel free to uncomment and comment sections
- (load-library 'example "multimap.so")
- (display "(gcd 90 12): ")
- (display (gcd 90 12))
- (display "\n")
- (display "(circle 0.5 0.5): ")
- (display (circle 0.5 0.5))
- (display "\n")
- (display "(circle 1.0 1.0): ")
- (handle-exceptions exvar
- (if (= (car exvar) 9)
- (display "success: exception thrown")
- (display "an incorrect exception was thrown"))
- (begin
- (circle 1.0 1.0)
- (display "an exception was not thrown when it should have been")))
- (display "\n")
- (display "(circle 1 1): ")
- (handle-exceptions exvar
- (if (= (car exvar) 9)
- (display "success: exception thrown")
- (display "an incorrect exception was thrown"))
- (begin
- (circle 1 1)
- (display "an exception was not thrown when it should have been")))
- (display "\n")
- (display "(capitalize \"will this be all capital letters?\"): ")
- (display (capitalize "will this be all capital letters?"))
- (display "\n")
- (display "(count \"jumpity little spider\" #\\t): ")
- (display (count "jumpity little spider" #\t))
- (display "\n")
- (display "(gcdmain '#(\"hi\" \"there\")): ")
- (display (gcdmain '#("hi" "there")))
- (display "\n")
- (display "(gcdmain '#(\"gcd\" \"9\" \"28\")): ")
- (gcdmain '#("gcd" "9" "28"))
- (display "\n")
- (display "(gcdmain '#(\"gcd\" \"12\" \"90\")): ")
- (gcdmain '#("gcd" "12" "90"))
- (display "\n")
- (display "squarecubed 3: ")
- (call-with-values (lambda() (squareCubed 3))
- (lambda (a b) (printf "~A ~A" a b)))
- (display "\n")
- (exit)