1
2
3
4
5
6
(defun k-combinator (x y)
        (y x)
        x)
        
        
(k-combinator 10 (format t "%a"))

1
2
3
4
5
6
(defun k-combinator (x y)
        (y x)
        x)
        
        
(k-combinator (10 (format t "%a")))

1
2
3
4
5
6
(defun k-combinator (x y)
        (y x)
        x)
        
        
(k-combinator (x (format t "%a")))

1
(print (car nil))

1
2
3
4
5
6
7
(defun flatten (l) 
  (cond 
    ((null l) nil)
    ((or (null (car l)) (atom (car l)))    (cons (car l) (flatten (cdr l))))
    (T (append (flatten (car l)) (flatten (cdr l))))))
 
(print (flatten '((1 2) (3 4 (5 6 7) 8) 9 10 (11))))

1
2
3
4
5
6
7
(defun flatten (l) 
  (cond 
    ((null l) nil)
    ((or (null (car l)) (atom (car l)))    (cons (car l) (flatten (cdr l))))
    (T (cons (flatten (car l)) (flatten (cdr l))))))
 
(print (flatten '((1 2) (3 4 (5 6 7) 8) 9 10 (11))))

1
(print (subseq '(1 2 3) 1))

1
(print (subseq 1 '(1 2 3)))

1
(print (nth 0 '(1 2 3)))

1
(print (nth 0 '(1 2 3))

1
(print (listp '(((f)))))

1
(print (cdr '(((f)))))

1
(print (macroexpand-1 '(defun f () (print 'a))))

1
2
3
4
(loop 
        for line = (read-line *standard-input* nil nil) 
        while (not (equal line "42")) 
        do (format t "~A~%" line))

1
2
3
4
(defun outer (a b)
  (defun inner () (* a b)))
(outer 5 3)
(format t "~a" (inner))

1
2
3
4
(defun outer (a b)
  (defun inner () (* a b)))
(outer 5 3)
(format t "~a" (inner))

1
2
3
4
(defun outer (a b)
  (defun inner () (* a b))
(outer 5 3)
(format t "~a" (inner))

1
 

1
2
3
4
5
6
7
8
9
 (funcall (lambda (toi three xexp xx pred)
           (funcall (lambda (x)
                      (map (quote (vector character)) (lambda (i) (funcall (lambda (x) (code-char (+ 48 x))) (ldb (byte (funcall toi (lambda (f) (lambda (x) (funcall f (funcall f (funcall f x)))))) i) x)))
                           (funcall (lambda (x)
                                      (declare (special x))
                                      (funcall (lambda (tf) (funcall (lambda (f) (funcall tf f)) (lambda (f) (funcall tf f))))
                                               (lambda (f)
                                                 (cons (funcall toi x)
                                                       (unless (funcall (funcall x (lambda (x) nil)) t)
 ...

1
2
3
4
5
6
7
8
9
 (funcall (lambda (toi three xexp xx pred)
           (funcall (lambda (x)
                      (map (quote (vector character)) (lambda (i) (funcall (lambda (x) (code-char (+ 48 x))) (ldb (byte (funcall toi (lambda (f) (lambda (x) (funcall f (funcall f (funcall f x)))))) i) x)))
                           (funcall (lambda (x)
                                      (declare (special x))
                                      (funcall (lambda (tf) (funcall (lambda (f) (funcall tf f)) (lambda (f) (funcall tf f))))
                                               (lambda (f)
                                                 (cons (funcall toi x)
                                                       (unless (funcall (funcall x (lambda (x) nil)) t)
 ...

1
2
3
4
5
6
7
8
9
 (funcall (lambda (toi three xexp xx pred)
           (funcall (lambda (x)
                      (map (quote (vector character)) (lambda (i) (funcall (lambda (x) (code-char (+ 48 x))) (ldb (byte (funcall toi (lambda (f) (lambda (x) (funcall f (funcall f (funcall f x)))))) i) x)))
                           (funcall (lambda (x)
                                      (declare (special x))
                                      (funcall (lambda (tf) (funcall (lambda (f) (funcall tf f)) (lambda (f) (funcall tf f))))
                                               (lambda (f)
                                                 (cons (funcall toi x)
                                                       (unless (funcall (funcall x (lambda (x) nil)) t)
 ...

1
(print (equal NIL NIL))

1
(print 'cazzo)

1
(equal NIL NIL)

1
(setf a 1)

1
2
3
4
(loop 
        for line = (read-line *standard-input* nil nil) 
        while (not (equal line "42")) 
        do (format t "~A~%" line))

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 (mod 7 3))

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 (mod -7 3))

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 21 15))

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))