Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 18 lines (17 sloc) 0.379 kB
92cb8c0 @avolkov Initial commit. On page 65.
authored
1 (defun radius(r) (* pi (* r r)))
2 (defun interest (x) (* x (/ 0.1 12)))
3 (defun square (x) (* x x))
4 (defun eu-distance (p1 p2)
9b01ba3 @avolkov All examples from ch04 started doing exercises.
authored
5 ;Eucleadian distance calculator
92cb8c0 @avolkov Initial commit. On page 65.
authored
6 (sqrt (-
7 (square (- (car p1) (car p2)))
8 (square (- (cadr p1) (cadr p2)))
9 )
10 )
11 )
9b01ba3 @avolkov All examples from ch04 started doing exercises.
authored
12 ;predicates
92cb8c0 @avolkov Initial commit. On page 65.
authored
13 (defun head (x) (car x))
14 (defun tail (x) (cdr x))
15 (defun switch (x)
16 (list (cadr x) (car x))
17 )
Something went wrong with that request. Please try again.