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
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
(values 1 2 3)

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

1
(print (last '(1 2 3)))

1
(last '(1 2 3))

1
2
(+ 3 2)
(print (+ 3 2))

1
2
(defun f (n) (format t "~a~%" n) (cons n (f (1+ n))))
(f 1)

1
0><|=02|), )-(4|_||°7574|)7 |)32 3|\|61!5()-(3|\| 624|=5()-(4|=7 0><|=02|)5)-(!23 I33)-(32I33267 3!|\|!63 31!73|_||\|!\/325!7°A°73|\|. |_||\||) |)|_| 63)-(°O°257 4|_|()-( z|_| 3!|\|32 31!73 - |)3|\||\| |)|_| |<4|\||\|57 |)!353|\| 73><7 1353|\| |)32 !|\| 13375|°34|< 635()-(2!3I33|\| !57. \/\/45 ? |)|_| )-(457 \/02)-(32 |\|0()-( |\|!3 \/\/45 |)4\/0|\| 63)-(°O°27 ? 72°O°573 |)!()-( 35 63)-(7 \/!313|\| 50. 3|\|7\/\/3|)32 I3!57 |)|_| °U°I332 |)3|\| )-(!|\|7 )-(!32 )-(32 63|<0/\/\/\/\3|\| 0|)32 |)|_| \/\/4257 5()-(0|\| !/\/\/\/\32 3!|\| \/\/!553|\||)32. 3!|\|3213!, _|37z7 63)-(7 35 4I3 !|\| |)!3 |\|47|_|2. |)3|\| (4()-(3 5|_|()-(3|\|. |_||\||) |)3|\| |=!|\||)357 |)|_| )-(!32: |\|02|) \/!32 4()-(7 624|) |\||_|11 4()-(7 |°|_||\||<7 \/!32 5!3I33|\| |=°U°|\||= 057 |\||_|11 3!|\|5 53()-(5 624|) 3!|\|5 |=°U°|\||= |°|_||\||<7 |\||_|11 |\|3|_||\| |=°U°|\||= \/!31 5|°4ß |_||\||) 32|=016. 

1
2
3
4
5
6
7
8
(define (fibo n)
(if (= 0 n)
1
(if (= 1 n) 
2
(fibo(- n 1)+fibo(- n 2))))
 
(fibo 10)

1
2
3
4
5
6
(define (factorielle n)
(if (= 0 n)
1
(* n (factorielle (- n 1))))
 
(factorielle 4)

1
print "nya"

1
2
3
4
5
6
7
8
9
(define (count-change amount)
  (cc amount 5))
 
(define (cc amount kinds-of-coins)
  (cond ((= amount 0) 1)
        ((or (< amount 0) (= kinds-of-coins 0)) 0)
        (else (+ (cc amount
                     (- kinds-of-coins 1))
                 (cc (- amount
 ...

1
(define (fact N) (if (= N 0) [then] 1 [else] (* N (fact (- N 1)))))

1
(+ (* 3 4) (* 5 6))

1
2
3
(define (fact N) (if (= N 0) [then] 1 [else] (* N (fact (- N 1)))))
 
(fact 10)

1
2
3
(define (fact N) (if (= N 0) [then] 1 [else] (* N (fact (- N 1)))))
 
(fact 10)

1
2
3
(define (fact N) (if (= N 0) [then] 1 [else] (* N (fact (- N 1)))))
 
(fact 10)

1
(+ 4444 444444 4444444444)

1
2
3
4
5
(display (< 1 2))
(display (random 1000))
(define (square a) (* a a))
(display (time (square 3)))
 

1
2
3
4
5
(print (< 1 2))
(print (random 1000))
(defun (square a) (* a a))
(print (square 3))
 

1
2
3
4
5
(print (< 1 2))
(print (random 1000))
(define (square a) (* a a))
(print (square 3))
 

1
2
3
(print (< 1 2))
(print (random 1000))
 

1
2
3
4
(print (< 1 2))
(print (runtime))
(print (random 1000))
 

1
2
(print (< 1 2))
 

1
2
(print (+ 1 2))
 

1
2
(+ 1 2)
 

1
2
(+ 1 2)%
 

1
2
>(+ 1 2)