js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.2/growth.scm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

(define (square x) (* x x))

(define (squares sent)
  (if (empty? sent)
      '()
      (se (square (first sent))
	  (squares (bf sent)) )))


(define (sort sent)
  (if (empty? sent)
      '()
      (insert (first sent)
	      (sort (bf sent)) )))

(define (insert num sent)
  (cond ((empty? sent) (se num))
	((< num (first sent)) (se num sent))
	(else (se (first sent) (insert num (bf sent)))) ))