PageRenderTime 44ms CodeModel.GetById 18ms RepoModel.GetById 0ms app.codeStats 0ms

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

#
Lisp | 27 lines | 16 code | 8 blank | 3 comment | 0 complexity | 063626bf093382363f471b781498f552 MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0 
    

  1. ;; run with mzscheme -r example.scm
    2. 

  2. 

  3. (load-extension "example.so")
    4. 

  4. 

  5. ; Call the GCD function
    6. 

  6. 

  7. (define x 42)
    8. 

  8. (define y 105)
    9. 

  9. (define g (gcd x y))
    10. 

  10. 

  11. (display "The gcd of ")
    12. 

  12. (display x)
    13. 

  13. (display " and ")
    14. 

  14. (display y)
    15. 

  15. (display " is ")
    16. 

  16. (display g)
    17. 

  17. (newline)
    18. 

  18. 

  19. ;  Call the gcdmain() function
    20. 

  20. (gcdmain #("gcdmain" "42" "105"))
    21. 

  21. 

  22. 

  23. (display (count "Hello World" #\l))
    24. 

  24. (newline)
    25. 

  25. 

  26. (display (capitalize "hello world"))
    27. 

  27. (newline)
    28.