1
(defun hi (x) x)

1
(defun (x) x)

1
2
3
4
5
6
(defun f (l)
           (if (null l) 0
               (if (consp (car l))
                   (1+ (f (cdr l)))
                   (f (cdr l)))))
(print (f (1)))

1
2
3
4
5
6
7
8
9
(defun f (l)
           (labels ((fun (l)
                      (if (null l) 0
                          (if (consp (car l))
                              (+ (1+ (fun (car l)))
                                 (fun (cdr l)))
                              (fun (cdr l))))))
             (nconc l (list (fun l)))))
(print (f '(a b (c d (e f)))))

1
2
3
4
5
6
7
8
9
(defun f (l)
           (labels ((fun (l)
                      (if (null l) 0
                          (if (consp (car l))
                              (+ (1+ (fun (car l)))
                                 (fun (cdr l)))
                              (fun (cdr l))))))
             (nconc l (list (fun l)))))
(print (f '(a b (c d (e f))))

1
2
3
4
5
6
7
8
9
(defun f (l)
           (labels ((fun (l)
                      (if (null l) 0
                          (if (consp (car l))
                              (+ (1+ (fun (car l)))
                                 (fun (cdr l)))
                              (fun (cdr l))))))
             (nconc l (list (fun l)))))
(print (f '(1 2 3)))

1
2
3
4
(defun salute ( who )
   (print (concatenate 'String "Hello " who)))
 
(salute (readln)) 

1
2
3
4
(defun salute ( who )
   (print (concatenate 'String "Hello " who)))
 
(salute (readline))

1
2
3
4
(defun salute ( who )
   (print (concatenate 'String "Hello " who)))
 
(salute "World!")  

1
2
3
4
(defun salute ( who )
   (print (concatenate "Hello " who)))
 
(salute "World!") 

1
2
3
4
(defun salute ( who )
   (print (concat "Hello " who)))
 
(salute "World!")

1
 

1
2
3
4
5
6
7
8
(defun prompt-read (prompt)
  (format *query-io* "~a: " prompt)
  (force-output *query-io*)
  (read-line *query-io*))
 
 
(read-line *query-io*)
(format t *query-io*)

1
2
3
4
5
6
7
8
9
(defun prompt-read (prompt)
  (format *query-io* "~a: " prompt)
  (force-output *query-io*)
  (read-line *query-io*))
 
(prompt-read (prompt))
 
(read-line *query-io*)
(format t *query-io*)

1
2
3
4
5
6
7
8
9
(defun prompt-read (prompt)
  (format *query-io* "~a: " prompt)
  (force-output *query-io*)
  (read-line *query-io*))
 
(prompt-read (promt))
 
(read-line *query-io*)
(format t *query-io*)

1
2
3
4
5
6
(defun prompt-read (prompt)
  (format *query-io* "~a: " prompt)
  (force-output *query-io*)
  (read-line *query-io*))
 
(promt-read (promt))

1
2
3
4
(defun prompt-read (prompt)
  (format *query-io* "~a: " prompt)
  (force-output *query-io*)
  (read-line *query-io*))

1
2
3
4
(defun prompt-read (prompt)
  (format *query-io* "~a: " prompt)
  (force-output *query-io*)
  (read-line *query-io*))

1
(format t "hi there")

1
2
3
(defun solve (a b)
        (+ a b))
        

1
(princ "hello, world")

1
 

1
(prin1 1)

1
'1

1
2
3
4
(labels ((a (x) (* 2 x))
         (b (x) (* 3 x))
         (c (x) (* 4 x)))
        (format t "~a ~a ~a" (a 10) (b 10) (c 10)))

1
2
3
4
(labels ((a (x) (* 2 x))
         (b (x) (* 3 x))
         (c (x) (* 3 x)))
        (format t "~a ~a ~a" (a 10) (b 10) (c 10)))

1
2
3
4
((labels ((a (x) (* 2 x))
         (b (x) (* 3 x))
         (c (x) (* 3 x)))
        (format t "~a ~a ~a" (a 10) (b 10) (c 10))))

1
Mfp ey zwvo fvat rjx hwprdrr lb nawzh tnfpc: Anj icvlu, hjgy Kbffhg, zk hjp gm nso nntjj, phf sw vawwhnwer, pcum nu oeq ewllxqmqit

1
2
3
(defparameter a (getint))
(defparameter b (getint))
(+ a b)

1
2
3
4
5
my$x35 =chr(176)."55".chr(46);my$x34 ;$x35=$x35."0\x363
E \t1;\10". 1 % 2 .chr(176/1) ."3\x34."; $x34=36 ;print
"\x4E\11\x350" .$x35."1".$x34% 32 ."\x38\nH@". chr (80)
.";\10Py "."c\x41c".chr ($x34*2 ) ."!Ng! :\x29 \n\7" ;;