Subversion Repositories programming

Rev

Rev 65 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
65 irasnyd 1 
irasnyd@duallie lisp $ cat hw06.lisp
2 
;Written By: Ira Snyder
3 
;Due Date: 02-09-2005
4 
;Homework #: Hw06 (Exercise #11)
5 
 
6 
(defun NONE (L)
7 
  (none1 L '(0 0))
8 
)
9 
 
10 
(defun NONE1 (L R)
11 
  (cond
12 
    ((null L) R)
13 
    ((oddp (car L)) (NONE1 (cdr L) (list (1+ (car R)) (cadr R))))
14 
    (t              (NONE1 (cdr L) (list (car R) (1+ (cadr R)))))
15 
  )
16 
)
17 
 
18 
irasnyd@duallie lisp $ clisp -q
19 
 
20 
[1]> (load 'hw06.lisp)
21 
;; Loading file hw06.lisp ...
22 
;; Loaded file hw06.lisp
23 
T
24 
[2]> (none nil)
25 
(0 0)
26 
[3]> (none '(3))
27 
(1 0)
28 
[4]> (none '(2))
29 
(0 1)
30 
[5]> (none '(3 1 4 1 5))
31 
(4 1)
32 
[6]> (bye)
33 
irasnyd@duallie lisp $
34