1
2
3
4
5
6
7
8
(defun fu (x y)
(loop
(when (or (= x 0) (= y 0)) (return (+ x y)))
(if (> x y) (setq x (mod x y)) (setq y (mod y x)))
)
)
 
(write-line (fu 10 12))

1
2
3
4
5
6
7
8
(defun fu (x y)
(loop
(when (or (= x 0) (= y 0)) (return (+ x y)))
(if (> x y) (setq x (mod x y)) (setq y (mod y x)))
)
)
 
print((fu 10 12))

1
2
3
4
5
6
7
8
(defun fu (x y)
(loop
(when (or (= x 0) (= y 0)) (return (+ x y)))
(if (> x y) (setq x (mod x y)) (setq y (mod y x)))
)
)
 
(fu 10 12)

1
write((mod -7 3))

1
(mod -7 3)

1
(mod 7 3)

1
2
3
4
5
6
7
(defvar *db* nil)
(defun add-cd (cd)
    (push cd *db*))
(defun make-cd (title artist rating ripped)
    (list :title title :artist artist :rating rating :ripped ripped))
 
(add-cd (make-cd "hi" "you" 9 "n"))

1
(FORMAT t "Hello, world!")

1
(eq ‘(1 2) ‘(1 2))

1
2
3
4
5
6
7
8
9
(defun fu (x y)
(loop
(when (or (= x 0) (= y 0)) (return (+ x y)))
(if (> x y) (setq x (mod x y)) (setq y (mod y x)))
)
)
 
(print (fu 10 12))
(print (fu 21 15))
 ...

1
2
3
4
(defun sqrts (x)
  (values (sqrt x) (- (sqrt x))))
(print (sqrts  9))
(print (type (sqrts  9)))

1
2
3
4
5
(defun sqrts (x)
  (values (sqrt x) (- (sqrt x))))
(print (sqrts  9))
(print (cdr #(1 2 3)))
(print (type (sqrts  9)))

1
2
(print (typep '(1 2 3) 'sequence))
(print (typep #(1 2 3) 'sequence))

1
2
3
4
5
6
7
8
(defun fu (x y)
        (loop
        (when (or (= x 0) (= y 0)) (return (+ x y)))
        (if (> x y) (setq x (mod x y)) (setq y (mod y x)))
        )
)
 
(format t "~A" (fu 10 12))

1
2
3
4
5
6
7
8
(defun fu (x y)
        (loop
        (when (or (= x 0) (= y 0)) (return (+ x y)))
        (if (> x y) (setq x (mod x y)) (setq y (mod y x)))
        )
)
 
(format t "~A" (cons (fu 10 12) nil))

1
2
3
4
5
6
7
8
(defun fu (x y)
        (loop
        (when (or (= x 0) (= y 0)) (return (+ x y)))
        (if (> x y) (setq x (mod x y)) (setq y (mod y x)))
        )
)
(setq W (fu 10 12))
(format t "~A" (cons W nil))

1
2
3
4
5
6
7
8
(defun fu (x y)
        (loop
        (when (or (= x 0) (= y 0)) (return (+ x y)))
        (if (> x y) (setq x (mod x y)) (setq y (mod y x)))
        )
)
(setq W fu(10 12))
(format t "~A" (cons W nil))

1
2
3
4
5
6
7
8
(defun fu (x y)
        (loop
        (when (or (= x 0) (= y 0)) (return (+ x y)))
        (if (> x y) (setq x (mod x y)) (setq y (mod y x)))
        )
)
(setq W fu(10,12))
(format t "~A" (cons W nil))

1
2
3
4
5
6
7
8
(defun fu (x y)
(loop
(when (or (= x 0) (= y 0)) (return (+ x y)))
(if (> x y) (setq x (mod x y)) (setq y (mod y x)))
)
)
(setq W fu(10,12))
(format t "~A" (cons W, nil))

1
2
3
4
5
6
7
(defun fu (x y)
(loop
(when (or (= x 0) (= y 0)) (return (+ x y)))
(if (> x y) (setq x (mod x y)) (setq y (mod y x)))
)
)
(format t "~A" (cons fu(10,12, nil))

1
2
3
4
5
6
7
(defun fu (x y)
(loop
(when (or (= x 0) (= y 0)) (return (+ x y)))
(if (> x y) (setq x (mod x y)) (setq y (mod y x)))
)
)
(format t "~A" (cons '(fu(10,12), nil)))

1
2
3
4
5
6
7
(defun fu (x y)
(loop
(when (or (= x 0) (= y 0)) (return (+ x y)))
(if (> x y) (setq x (mod x y)) (setq y (mod y x)))
)
)
(format t "~A" cons(fu(10,12), nil))

1
2
3
4
5
6
7
(defun fu (x y)
(loop
(when (or (= x 0) (= y 0)) (return (+ x y)))
(if (> x y) (setq x (mod x y)) (setq y (mod y x)))
)
)
(format t "~A" fu(10,12))

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

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

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

1
2
3
4
5
6
7
8
(print
(do
( (a 0) (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
(print
(do
( (a 0) (x 0 (+ x 1)) (y 1 (* y 2)) )
( (> x 4) (print a))
(print x)
(setq a (+ a y)) )
)

1
2
3
4
5
6
7
(print
(do
( (a 0) (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 1) (x 0 (+ x 1)) (y 1 (* y 2)) )
( (> x 4) (print a) y)
(print x)
(setq a (+ a y)) )
)