mirrors/alsa-lib
1
0
Fork 0
mirror of https://github.com/alsa-project/alsa-lib.git synced 2025-10-29 05:40:25 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added float number support

Browse source 
Replaced 'int' with 'long' (integer type)
Improved garbage collect
This commit is contained in:
Jaroslav Kysela 2003-07-26 15:19:27 +00:00
parent b5c2327ce7
commit b3e3c349ce
3 changed files with 392 additions and 102 deletions
Download patch file Download diff file Expand all files Collapse all files

7
alsalisp/hello.lisp
View file

@ -2,11 +2,14 @@
(princ "One " 1 "\n")
(princ "Two " (+ 1 1) "\n")
(defun myprinc (o) (princ o))
(defun myprinc (o) (progn (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)))))
(defun factorial (n) (if (> n 1) (* n (factorial (- n 1))) 1))
(princ "Factorial of 10: " (factorial 10) "\n")
(princ "Float test 1.1 + 1.35 = " (+ 1.1 1.35) "\n")
(princ "Factorial of 10.0: " (factorial 10.0) "\n")