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
(setq x 10) 
(setq y 15)
(loop
(when (or (= x 0) (= y 0)) (return (+ x y)))
(if (> x y) (setq x (mod x y)) (setq y (mod y x)))
 

1
2
3
4
5
6
(setq x 10) 
(setq y 15)
(loop
(when (or (= x 0) (= y 0)) (return (+ x y)))
(if (> x y) (setq x (mod x y)) (setq y (mod y x)))
 

1
2
3
4
5
6
 
(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)))
)

1
2
3
4
5
6
7
8
9
(defun myreplace(x y list)
   (if (null list)
      nil
      (if (equal (car list) x)
         (cons y (myreplace x y (cdr list)))
         (cons (car list) (myreplace x y (cdr list)))
      )
   )
)
 ...

1
2
3
4
5
6
7
8
9
(defun myreplace(x y list)
   (if (null list)
      nil
      (if (equal (car list) x)
         (cons y (myreplace x y (cdr list)))
         (cons (car list) (myreplace x y (cdr list)))
      )
   )
)
 ...

1
2
3
4
5
6
7
8
9
(defun replace(x y list)
   (if (null list)
      nil
      (if (equal (car list) x)
         (cons y (replace x y (cdr list)))
         (cons (car list) (replace x y (cdr list)))
      )
   )
)
 ...

1
2
3
4
5
6
7
8
9
(defun myreplace (x y list)
   (if (null list)
      nil
      (if (equal (car list) x)
         (cons y (myreplace x y (cdr list)))
         (cons (car list) (myreplace x y (cdr list)))
      )
   )
)

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

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

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

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

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

1
(+ 1 2 3 4)

1
2
3
4
5
6
7
8
9
v################################################
v################################################
>###8995*\9-13\##>-p55:2**3$#!+59*:!3$9$$2+2p6v##
v############################################$<##
v##########################?#####################
1################################################
4#####?##########>v##############################
8##########>##v##$ ##############################
*###########>v#########################v-<#######
 ...

1
2
3
4
5
6
7
8
9
Er ist’s 
        
                   
        
        Frühling läßt sein blaues Band       
        
        wieder flattern durch die Lüfte;               
        
        süße, wohlbekannte Düfte     
 ...

1
2
3
4
5
6
7
8
9
(defun two-to-the (x)
        (cond
                ((= x 0) 1)
                ((< x 0) (/ (two-to-the (+ x 1)) 2))
                (T (* 2 (two-to-the (- x 1))))
        )
)
 
(print (two-to-the 4))
 ...

1
2
3
4
5
6
7
8
(defun two-to-the (x)
        (cond
                ((eq x 0) 1)
                (T (* 2 (two-to-the (- x 1))))
        )
)
 
(print (two-to-the 4))

1
2
3
4
5
6
7
8
(defun two-to-the (x)
        (cond
                ((eq x 1) 0)
                (T (* 2 (two-to-the (- x 1))))
        )
)
 
(print (two-to-the 4))

1
2
3
4
5
6
7
8
(defun two-to-the (x)
        (cond
                ((eq x 1) 0)
                (T (* 2 (two-to-the (- x 1))))
        )
)
 
(two-to-the 4)

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
2
3
4
5
6
7
8
        IDENTIFICATION DIVISION.
        PROGRAM-ID. SAMPLE.
 
        ENVIRONMENT DIVISION.
 
        DATA DIVISION.
        WORKING-STORAGE SECTION.
        77 n PIC Z9 .
 ...

1
class Main{int main(String[] args) {System.out.println("asd");}}

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))
(print (fu 32 41))
 ...

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))
(print (fu 32 41))
 ...

1
2
3
4
5
6
7
8
9
class a{
 public static  void main(String args[]){
try{
String h1="hai";
String h2="hai";
String h3=new String("hai");
if(h.euals(h2)){
System.out.println("hi..");
}else{
 ...

1
2
3
4
5
6
7
8
9
class a{
 public static  void main(String args[]){
String h1="hai";
String h2="hai";
String h3=new String("hai");
if(h.euals(h2)){
System.out.println("hi..");
}else{
System.out.println("hihi..");
 ...

1
2
3
4
5
6
7
8
9
class a{
static public  void main(String args[]){
String h1="hai";
String h2="hai";
String h3=new String("hai");
if(h.euals(h2)){
System.out.println("hi..");
}else{
System.out.println("hihi..");
 ...