; SLIME 2007-01-07
CL-USER> 
 /\\\          
---\\\---------
----\\\--------
----/\\\------- Common Music 2.10.0
---/--\\\------
--/----\\\-----
 /      \\\/   

; No value
CM> 2
2
CM> pi
3.141592653589793D0
CM> (+ 2 3)
5
CM> (* (+ 2 3) 5)
25
CM> (* 2 (+ 3 5))
16
CM> (+ 2 3 4 5 6)
20
CM> (+ 2 3 (+ 2 3 4 5) 5 6)
30
CM> (+ 2 3 (* 4 5 (+ 2 3)) 6 7)
118
CM> (+ (* (+ 2 3) 4 5) 2 3 6 7)
118
CM> half-pi
; Evaluation aborted
CM> (defparameter half-pi (/ pi 2))
HALF-PI
CM> half-pi
1.5707963267948966D0
CM> (* half-pi 2)
3.141592653589793D0
CM> (defun plus (x y) (+ x y))
PLUS
CM> (plus 2 3)
5
CM> (plus 2 3 4)
; Evaluation aborted
CM> (plus pi pi)
6.283185307179586D0
CM> (defun square (x) (* x x))
SQUARE
CM> (square 17)
289
CM> (square (square 2))
16
CM> (square (plus 2 (square 2)))
36
CM> (- 5 3)
2
CM> (- 3 5)
-2
CM> ( - 3 5 8)
-10
CM> (/ 10 2)
5
CM> (/ 2 10)
1/5
CM> (/ 10 2 5)
1
CM> (float 1/5)
0.2
CM> (defun sum-of-squares (x y) (+ (square x) (square y)))
SUM-OF-SQUARES
CM> (sum-of-squares 2 3)
13
CM> (defun square (x) (* x x x))
SQUARE
CM> (square 2)
8
CM> (sum-of-squares 2 3)
35
CM> (defun square (x) (* x x))
SQUARE
CM> (abs -2)
2
CM> (absolute-value -2)
; Evaluation aborted
CM> (defun absolute-value (x)
  (cond ((>= x 0) x)
	(t (* x -1))))
ABSOLUTE-VALUE
CM> (absolute-value -2)
2
CM> (absolute-value 2)
2
CM> (defun conditional-example (x)
  (cond ((> x 5) (* x 10))
	((> x 0) (* x 5))
	(t x)))
CONDITIONAL-EXAMPLE
CM> (conditional-example 7)
70
CM> (conditional-example 2)
10
CM> (conditional-example -2)
-2
CM> (defun conditional-example (x)
  (cond ((> x 0) (* x 10))
	((> x 5) (* x 5))
	(t x)))
CONDITIONAL-EXAMPLE
CM> (Conditional-example 2)
20
CM> (conditional-example 7)
70
CM> (defun fibonacci (x)
  (cond ((= x 0) 0)
	((= x 1) 1)
	(t (+ (fibonacci (- x 1)) 
	      (fibonacci (- x 2))))))
FIBONACCI
CM> (fibonacci 2)
1
CM> (fibonacci 3)
2
CM> (fibonacci 4)
3
CM> (fibonacci 5)
5
CM> (fibonacci 6)
8
CM> (fibonacci 7)
13
CM> (fibonacci 8)
21
CM> (defparameter test-list (list 1 2 3 4 5))
TEST-LIST
CM> test-list
(1 2 3 4 5)
CM> (defparameter midi-pitches (list 60 62 64 65))
MIDI-PITCHES
CM> (car midi-pitches)
60
CM> (cdr midi-pitches)
(62 64 65)
CM> (car (cdr midi-pitches))
62
CM> (cadr midi-pitches)
62
CM> (caddr midi-pitches)
64
CM> (defparameter examples (cons 0 x))
; Evaluation aborted
CM> (defparameter examples (cons 0 pi))
EXAMPLES
CM> examples
(0 . 3.141592653589793D0)
CM> (cons 59 midi-pitches)
(59 60 62 64 65)
CM> (defun fibonacci-list (x)
  (cond ((< x 0) nil)
	(t (cons (fibonacci (x))
		 (fibonacci-list (- x 1))))))
;Compiler warnings :
;   Undefined function X, in FIBONACCI-LIST.
FIBONACCI-LIST
CM> (fibonacci-list 8)
; Evaluation aborted
CM> (defun fibonacci-list (x)
  (cond ((< x 0) nil)
	(t (cons (fibonacci x)
		 (fibonacci-list (- x 1))))))
FIBONACCI-LIST
CM> (fibonacci-list 8)
(21 13 8 5 3 2 1 1 0)
CM> (reverse (fibonacci-list 8))
(0 1 1 2 3 5 8 13 21)
CM>