1
2
3
4
5
6
7
(defun f (n)
 (do ((d (do ((i (- n 1) (- i 1))
              (d '() (cons i d)))
             ((< i 0) d))
         (append (cddr d) (list (car d)))))
     ((null? (cdr d)) (car d))))
(print (f 123456789))

1
(lambda (n) (do ((d (do ((i (- n 1) (- i 1)) (d nil (cons i d))) ((< i 0) d)) (append (cddr d) (list (car d))))) ((null ? (cdr d)) (car d))))

1
2
3
4
5
6
7
(defun f (n)
 (do ((d (do ((i (- n 1) (- i 1))
              (d '() (cons i d)))
             ((< i 0) d))
         (append (cddr d) (list (car d)))))
     ((null? (cdr d)) (car d))))
(print (f 123456789))

1
2
3
4
5
6
7
(define (f n)
 (do ((d (do ((i (- n 1) (- i 1))
              (d '() (cons i d)))
             ((< i 0) d))
         (append (cddr d) (list (car d)))))
     ((null? (cdr d)) (car d))))
(display (f 123456789))

1
2
3
4
5
6
7
8
9
(defparameter *small* 1)
(defparameter *big* 100)
 
(defun guess-my-number ()
  (ash (+ *small* *big*) -1))
 
(defun smaller ()
  (setf *big* (1- (guess-my-number)))
    (guess-my-number))
 ...

1
2
3
4
5
6
7
8
9
(defrule readin
        ?f<-(initial-fact)
=>
        (retract ?f)
        (assert (number (read)))
)
 
(defrule writeout
        ?f<-(number ?n)(test (<> ?n 42))
 ...

1
2
3
4
(defun foo ()
 (format t "balbalbla"))
 
(foo)

1
2
3
4
(defun foo ()
 format t "balbalbla")
 
(foo)

1
2
3
4
5
6
7
8
(defvar A (LIST 'A 'B 'C 'D 'E 'F 'G 'H 'I 'J 'K 'L 'M 'N 'O 'P 'Q 'R 'S 'T 'U 'V 'W 'X 'Y 'Z))
(defvar B (LIST '\. '\, '\! '\$ '\& '\{ '\} '\°))
(defvar C (LIST 0 1 2 3 4 5 6 7 8 9))
 
(defun G (L Z)
        (setf Z (1- Z))
        (cond ((plusp Z)(G (CDR L) Z))(T (CAR L)))
);i <3 recursion!
 ...

1
2
3
4
5
6
7
8
(defvar A (LIST 'A 'B 'C 'D 'E 'F 'G 'H 'I 'J 'K 'L 'M 'N 'O 'P 'Q 'R 'S 'T 'U 'V 'W 'X 'Y 'Z))
(defvar B (LIST '\. '\, '\! '\$ '\& '\{ '\} '\°))
(defvar C (LIST 0 1 2 3 4 5 6 7 8 9))
 
(defun G (L Z)
        (setf Z (1- Z))
        (cond ((plusp Z)(G (CDR L) Z))(T (CAR L)))
);i <3 recursion!
 ...

1
2
3
4
5
6
7
8
9
(defun xlist_err ( /  ) 
        (setq *error* old_err)  
        (command "_.undo" "_end")
        (if old_cmd (setvar "cmdecho" old_cmd))
        (princ)
        ;(princ "xlist_err was called.")
); exit quietly
 
(defun GetList ( / iNest eList   )              
 ...

1
(format t "Hello world~%")

1
(+ 2 3)

1
(+ 2 3 )

1
2
3
4
5
6
7
(defun fac (n)
  (labels ((fac (n res)
              (if (= n 1) res
                  (fac (1- n) (* res n)))))
    (fac n 1)))
 
(fac 5)

1
2
3
4
5
6
7
(defun fac (n)
  (labels ((fac (n res)
              (if (= n 1) res
                  (fac (1- n) (* res n))))
    (fac n 1)))
 
(fac 5)

1
(format t "hello~%")

1
(format t "hello")

1
( + 5 2 )

1
( + 5 5 )

1
(list 0 1 6)

1
2
3
4
5
6
7
8
9
setcolor("gr+/b")
DO WHILE .T.
   CLS
   @ 01,04 to 07,52 double
   @ 02,05 PROMPT "1 - EMITIR CARTåES PONTO ATRAVES DO FORPONT"
   @ 03,05 PROMPT "2 - GRAVE OS CARTåES PONTO COMO CARTAO.TXT "
   @ 04,05 PROMPT "3 - CRIAR ARQUIVO DE DADOS DAS MARCA€åES   "
   @ 05,05 PROMPT "4 - ANALISAR MARCA€åES                     "
   @ 06,05 PROMPT "5 - REANALISAR MARCA€åES                   " 
 ...

1
2
(defun fizz-buzz-format2 (n)
  (format t "~[Fizz~;~]~[Buzz~;~]~@*~[~:;~[~:;~a~]~]~%" (mod n 3) (mod n 5) n))

1
2
3
4
5
6
7
8
9
(defun FizzBuzz (n)
  (if (> n 0)
      (progn
        (print (FizzBuzz (- n 1)))
        (if (= (mod n 15) 0)
            'FizzBuzz
          (if (= (mod n 5) 0)
              'Buzz
            (if (= (mod n 3) 0)
 ...

1
2
3
4
5
6
7
8
9
(define (FizzBuzz start end)
 
  (cond ((>= start end) '())
 
        ((= (remainder start 15) 0) (append '("FizzBuzz") (FizzBuzz (+ start 1) end)))
 
        ((= (remainder start  5) 0) (append '("Buzz") (FizzBuzz (+ start 1) end)))
 
        ((= (remainder start  3) 0) (append '("Fizz") (FizzBuzz (+ start 1) end)))
 ...

1
 

1
2
3
4
5
6
7
8
9
(define (FizzBuzz start end result)
　(define (getItem x)
　　(cond ((= (remainder x 15) 0) "FizzBuzz")
　　　　　　((= (remainder x 5) 0) "Buzz")
　　　　　　((= (remainder x 3) 0) "Fizz")
　　　　　　(else x)))
　(if (> start end)
　　　result
　　　(FizzBuzz start (- end 1) (cons (getItem end) result ))))

1
2
3
4
5
6
7
8
(defvar A (LIST 'A 'B 'C 'D 'E 'F 'G 'H 'I 'J 'K 'L 'M 'N 'O 'P 'Q 'R 'S 'T 'U 'V 'W 'X 'Y 'Z))
(defvar B (LIST '\. '\, '\! '\$ '\& '\{ '\} '\°))
(defvar C (LIST 0 1 2 3 4 5 6 7 8 9))
 
(defun G (L Z)
        (setf Z (1- Z))
        (cond ((plusp Z)(G (CDR L) Z))(T (CAR L)))
);i <3 recursion!
 ...

1
2
3
4
5
6
7
8
  (let ((int i j k)
        (float x y z))
 
  (SETF k 0)
  (SETF y z 0)
 
  (format nil "~a" k)
  (format nil "~f" y))

1
2
3
4
5
6
7
8
  (let ((int i j k)
        (float x y z))
 
  (SETF k 0)
  (SETF y z 0)
 
  (format nil "~a" i j)
  (format nil "~f" x y z))