diff options
| author | Jaroslav Kysela <perex@perex.cz> | 2003-07-01 09:23:38 +0000 |
|---|---|---|
| committer | Jaroslav Kysela <perex@perex.cz> | 2003-07-01 09:23:38 +0000 |
| commit | 6633460801cbd8b523d70ada51357968dde1a0ae (patch) | |
| tree | b25691189a849e3fb206b591723f8296f388f8bb /alsalisp | |
| parent | 1097c437a1fc8f41237fe432be730c7cf8ec9238 (diff) | |
Clemens Ladisch <clemens@ladisch.de>
fix some wrong section/file/reference names
Diffstat (limited to 'alsalisp')
| -rw-r--r-- | alsalisp/hello.lisp | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/alsalisp/hello.lisp b/alsalisp/hello.lisp index 316f3131..6bf0877f 100644 --- a/alsalisp/hello.lisp +++ b/alsalisp/hello.lisp @@ -1,3 +1,12 @@ (princ "Hello ALSA world\n") (princ "One " 1 "\n") (princ "Two " (+ 1 1) "\n") + +(defun myprinc (o) (princ o)) +(myprinc "Printed via myprinc function!\n") + +(defun printnum (from to) (while (<= from to) (princ " " from) (setq from (+ from 1)))) +(princ "Numbers 1-10: ") (printnum 1 10) (princ "\n") + +(defun factorial (n) (when (> n 0) (* n (factorial (- n 1))))) +(princ "Factorial of 10: " (factorial 10) "\n") |