PageRenderTime 54ms CodeModel.GetById 20ms RepoModel.GetById 1ms app.codeStats 0ms

/trunk/Examples/chicken/simple/test-simple.scm

#
Lisp | 28 lines | 20 code | 7 blank | 1 comment | 0 complexity | afaa468d1f82ffcee67b4c229e376957 MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0 
    

  1. ;; feel free to uncomment and comment sections
    2. 

  2. (load-library 'example "simple.so")
    3. 

    4. 

  4. (display "(My-variable): ")
    5. 

  5. (display (My-variable))
    6. 

  6. (display "\n")
    7. 

  7. 

  8. (display "(My-variable 3.141259): ")
    9. 

  9. (display (My-variable 3.141259))
    10. 

  10. (display "\n")
    11. 

  11. 

  12. (display "(My-variable): ")
    13. 

  13. (display (My-variable))
    14. 

  14. (display "\n")
    15. 

  15. 

  16. (display "(fact 5): ")
    17. 

  17. (display (fact 5))
    18. 

  18. (display "\n")
    19. 

  19. 

  20. (display "(mod 75 7): ")
    21. 

  21. (display (mod 75 7))
    22. 

  22. (display "\n")
    23. 

  23. 

  24. (display "(get-time): ")
    25. 

  25. (display (get-time))
    26. 

  26. (display "\n")
    27. 

  27. 

  28. (exit)
    29. 

  29.