1
2
3
4
5
6
7
(print
(do
( (a 7) (x 0 (+ x 1)) (y 1 (* y 2)) )
( (> x 4) (print a) y)
(print x)
(setq a (+ a y)) )
)

1
2
3
4
5
6
7
(print
(do
( (a 7) (x 0 (+ x 1)) (y 1 (* y 2)) )
( (> x 4) y)
(print x)
(setq a (+ a y)) )
)

1
2
3
4
5
6
7
(print
(do
( (a 1 7) (x 0 (+ x 1)) (y 1 (* y 2)) )
( (> x 4) y)
(print x)
(setq a (+ a y)) )
)

1
2
3
4
5
6
7
8
(print
(do
( (a 1 7) (x 0 (+ x 1)) (y 1 (* y 2)) )
( (> x 4) y)
(print x)
(setq a (+ a y)) )
)
(print a)

1
2
3
4
5
6
7
8
(print
(do
( (a 1) (x 0 (+ x 1)) (y 1 (* y 2)) )
( (> x 4) y)
(print x)
(setq a (+ a y)) )
)
(print a)

1
2
3
4
5
6
 
(do
( (a 1) (x 0 (+ x 1)) (y 1 (* y 2)) )
( (> x 4) y)
(print x)
(setq a (+ a y)) )

1
2
3
4
5
6
(setq a 1)
(do
( (x 0 (+ x 1)) (y 1 (* y 2)) )
( (> x 4) y)
(print x)
(setq a (+ a y)) )

1
2
3
4
5
(do
( (x 0 (+ x 1)) (y 1 (* y 2)) )
( (> x 4) y)
(print x)
(setq a (+ a y)) )

1
2
(setq a (+ a 1))
(print a)

1
2
(setq a 1)
(print (eq a 1))

1
2
3
(setq a 1)
(print (equal a 1))
(print a)

1
2
3
(setq a 1)
(print (equal 'a 1))
(print a)

1
2
(setq a 1)
(print (equal 'a 1))

1
2
(setq a 1)
(print (eq 'a 1))

1
2
(setq a 1)
(print (= 'a 1))

1
2
(setq a 1)
(print (= 1 1))

1
(let (a 1) (print (= a 1)))

1
(print (= 1 1))

1
(print (let ((x 1) (y 2))))

1
(print (let ((x 1) (y 2))(print y) (+ x y) ))

1
(print (let ((x 1) (y 2)) (+ x y) (print y)))

1
(print (let ((x 1) (y 2)) (+ x y) (print x)))

1
(print (let ((x 1) (y 2)) (+ x y)) x)

1
2
(print (let ((x 1) (y 2)) (+ x y)))
(print x)

1
(print (let ((x 1) (y 2)) (+ x y)))

1
print( (let ((x 1) (y 2)) (+ x y)))

1
(let ((x 1) (y 2)) (+ x y))

1
2
3
4
5
6
7
8
9
;; Fibonacci sequence
;; Doesn't work; don't know why.
;; Need access to a Lisp REPL to debug and fix it.
(defun f (x)
  (cond ((atom x) (car (f (cons x (cons 0 0)))))
        (t
          (let ((n (car x)) (a (cadr x)) (b (cddr x))) 
            (cond ((<= n 0) b)
                  (t (f (cons (- n 1) (cons b (+ a b))))))))))
 ...

1
2
3
4
5
6
7
8
9
(defun f (x)
  (cond ((atom x) (f (cons x (cons 0 0))))
        (t
          (let ((n (car x)) (a (cadr x)) (b (cddr x))) 
            (cond ((<= n 0) b)
                  (t (f (cons (- n 1) (cons b (+ a b))))))))))
 
 
(defun f_out (x)
 ...

1
2
3
4
5
6
7
8
9
(defun f (x)
  (cond ((atom x) (f (cons x (cons 0 0))))
        (t
          (let ((n (car x)) (a (cadr x)) (b (cddr x))) 
            (cond ((<= n 0) b)
                  (t (f (cons (- n 1) (cons b (+ a b))))))))))
 
 
(defun f_out (x)
 ...