1
2
3
4
5
6
7
8
class a{
static public  void main(String args[]){
String h1="hai";
String h2="hai";
String h3=new String("hai");
 
System.out.println("hi.."+h1.equals(h2));
 
 ...

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

1
2
3
4
5
6
7
8
class a{
static public  void main(String args[]){
String h1="hai";
String h2="hai";
String h3=new String("hai");
 
System.out.printl("hi.."h1.equals(h2));
 
 ...

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");
System.out.printl(h1.equals(h2));
 
System.out.println("hi");
}
 ...

1
2
3
4
5
6
7
8
9
(print(mod 7 4))
(print(mod -7 4))
(print(mod 7 -4))
(print(mod -7 -4))
 
(print(rem 7 4))
(print(rem -7 4))
(print(rem 7 -4))
(print(rem -7 -4))

1
2
3
4
5
6
7
8
9
(print(mod 7 4))
(print(mod -7 4))
(print(mod 7 -4))
(print(mod -7 -4))
 
(print(rem 7 4))
(print(rem -7 4))
(print(rem 7 -4))
(print(rem -7 -4))

1
2
3
4
5
6
7
8
9
(print(mod 7 4))
(print(mod -7 4))
(print(mod 7 -4))
(print(mod -7 -4))
 
(print(rem 7 4))
(print(rem -7 4))
(print(rem 7 -4))
(print(rem -7 -4))

1
2
3
4
(print(mod 7 4))
(print(mod -7 4))
(print(mod 7 -4))
(print(mod -7 -4))

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)))
        )
)
(format t "~D~%" (fu 10 12))
(format t "~D~%" (fu 21 15))
(format t "~D~%" (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)))
        )
)
(format t "~D~%" (fu 10 12))
(format t "~D~%" (fu 21 15))
(format t "~D~%" (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)))
        )
)
(format t "~D~%" (fu 10 12))
(format t "~D~%" (fu 21 15))
(format t "~D~%" (fu 32 41))
 ...

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 "~D~%" (fu 10 12))

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)))
        )
)
(fu 10 12)

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
(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
(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
(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
(print "ciao tribe")

1
(print 'ciao)

1
(print ciao)

1
2
3
4
5
6
7
(defun col (n)
  (format t "~x " n)
  (cond ((equal n 1) 1)
        ((zerop (mod n 2)) (col (/ n 2)))
        (t (col (1+ (* 3 n))))))        
 
(col 27)

1
2
3
4
5
6
7
(defun col (n)
  (format t "~x~%" n)
  (cond ((equal n 1) 1)
        ((zerop (mod n 2)) (col (/ n 2)))
        (t (col (1+ (* 3 n))))))        
 
(col 11)

1
((lambda (x) x)(lambda (y) y))

1
(lambda (x) x)

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
(defun count-sublists (a-list)
  (labels ((count-sublists-rec (the-list count)
            (cond
              ((null the-list)        count)
              ((listp (car the-list)) (count-sublists-rec (cdr the-list) (1+ count)))
              (T                      (count-sublists-rec (cdr the-list) count)))))
    (count-sublists-rec a-list 0)))
 
(format t "~a" (count-sublists '((1 2) 3 (4 5) (6 7) 2 3 4 (10 34)))) 

1
2
3
4
5
6
7
8
9
(defun count-sublists (a-list)
  (labels ((count-sublists-rec (the-list count)
            (cond
              ((null the-list)        count)
              ((listp (car the-list)) (count-sublists-rec (cdr the-list) (1+ count)))
              (T                      (count-sublists-rec (cdr the-list) count)))))
    (count-sublists-rec a-list 0)))
 
(format t "~a" (count-sublists '((1 2) (3) (4 5) (6 7) 2 3 4 (10 34)))) 

1
2
3
4
5
6
7
8
9
(defun count-sublists (a-list)
  (labels ((count-sublists-rec (the-list count)
            (cond
              ((null the-list)        count)
              ((listp (car the-list)) (count-sublists-rec (cdr the-list) (1+ count)))
              (T                      (count-sublists-rec (cdr the-list) count)))))
    (count-sublists-rec a-list 0)))
 
(format t "~a" (count-sublists '((1 2) 3 (4 5) (6 7) 2 3 4 (10 34)))) 

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