alsalisp/hello.lisp

   1 (princ "Hello ALSA world\n")
   2 (princ "One " 1 "\n")
   3 (princ "Two " (+ 1 1) "\n")
   4
   5 (defun myprinc (o) (progn (princ o)))
   6 (myprinc "Printed via myprinc function!\n")
   7 (unsetq myprinc)
   8
   9 (defun printnum (from to) (while (<= from to) (princ " " from) (setq from (+ from 1))))
  10 (princ "Numbers 1-10: ") (printnum 1 10) (princ "\n")
  11 (unsetq printnum)
  12
  13 (defun factorial (n) (if (> n 1) (* n (factorial (- n 1))) 1))
  14 (princ "Factorial of 10: " (factorial 10) "\n")
  15 (princ "Float test 1.1 + 1.35 = " (+ 1.1 1.35) "\n")
  16 (princ "Factorial of 10.0: " (factorial 10.0) "\n")
  17 (princ "Factorial of 20.0: " (factorial 20.0) "\n")
  18 (unsetq factorial)
  19
  20 (setq alist '((one . first) (two . second) (three . third)))
  21 (princ "alist = " alist "\n")
  22 (princ "alist assoc one = " (assoc 'one alist) "\n")
  23 (princ "alist rassoc third = " (rassoc 'third alist) "\n")
  24 (unsetq alist)
  25
  26 (&stat-memory)