1
2
3
4
5
6
7
8
(defun calculate-kaprekar (index expt-number)
   (cond 
          ((= (length (prin1-to-string expt-number)) index) 0)
          ((= (parse-integer (subseq (prin1-to-string expt-number) index)) 0 ) 0)
 
          (t (+ (parse-integer (subseq (prin1-to-string expt-number) 0 index))
               (parse-integer (subseq (prin1-to-string expt-number) index)))
          ))
 ...

1
2
3
4
5
6
7
8
(defun calculate-kaprekar (index expt-number)
   (cond 
          ((= (length (prin1-to-string expt-number)) index) 0)
          ((= (parse-integer (subseq (prin1-to-string expt-number) index)) 0 ) 0)
 
          (t (+ (parse-integer (subseq (prin1-to-string expt-number) 0 index))
               (parse-integer (subseq (prin1-to-string expt-number) index)))
          ))
 ...

1
2
3
4
5
6
7
8
(defun calculate-kaprekar (index expt-number)
   (cond 
          ((= (length (prin1-to-string expt-number)) index) 0)
          ((= (parse-integer (subseq (prin1-to-string expt-number) index)) 0 ) 0)
 
          (t (+ (parse-integer (subseq (prin1-to-string expt-number) 0 index))
               (parse-integer (subseq (prin1-to-string expt-number) index)))
          ))
 ...

1
2
3
4
5
6
7
8
(defun calculate-kaprekar (index expt-number)
   (cond 
          ((= (length (prin1-to-string expt-number)) index) 0)
          ((= (parse-integer (subseq (prin1-to-string expt-number) index)) 0 ) 0)
 
          (t (+ (parse-integer (subseq (prin1-to-string expt-number) 0 index))
               (parse-integer (subseq (prin1-to-string expt-number) index)))
          ))
 ...

1
Buchhalter Nötzli sass gerade wieder vor seinem Schreibtisch der SBU am Hauptsitz in Zürich, als er die Nachricht im Radio hörte: Deutsche Steuerfahnder offerieren für gestohlene Bankdaten über 1 Mio Euro! Wie ein Blitz durchfuhr es sein Gehirn..…Er der jahrelang zu einem bescheidenen Lohn bei der Bank arbeitete, derweil seine Vorgesetzten 6-stellige Boni abklassierten, obwohl es der Bank schlecht ging und soeben einen Milliardenverluste eingefahren hat! Wie wär es denn wenn er ………………!? Er ging schnell zum abgesicherten Tresor, gab das geheime Passwort ein und entnahm die geheime Bankdaten - CD um eine Kopie anzufertigen. Er wusste genau was kommen würde, wenn dies entdeckt würde….Befragungen sämtlicher Mitarbeiter mit Hausdurchsuchung nach der kopierten Bankdaten - CD und Einschaltung der Bundespolizei! Aber wo die CD verstecken? Da kam ihm ein Gedanke, schliesslich war er in seiner Freizeit Geocacher!

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

1
0baac7fd32273cfefd9b6e10e46d52bc16f9a9a70fb3898ac1bb54430eace490b73ce43748daa7130546b62ba9e5559a110ec28fcf4445f98c7d07269122b934

1
(+ 1 3)

1
(+ 1 2)

1
2
(print (let ((str "g6 g7 B"))
        (loop :for c :across str :sum (char-code c))))

1
2
(let ((str "g6 g7 B"))
        (loop :for c :across str :sum (char-code c)))

1
(print (- (char-code #\W) (char-code #\B)))

1
(- (char-code #\W) (char-code #\B))

1
(print "hello world")

1
(print "hello world")

1
(* 7 8)

1
2
3
4
5
6
7
8
9
(defun fac (n)
  (loop for result = 1 then (* result i)
        for i from 2 to n
        finally (return result)))
 
(defun zeros (n)
  (loop for num = n then (/ num 10)
        for zero = (zerop (rem num 10))
        until (null zero)
 ...

1
2
3
4
5
6
7
8
9
(defun fac (n)
  (loop for result = 1 then (* result i)
        for i from 2 to n
        finally (return result)))
 
(defun zeros (n)
  (loop for num = n then (/ num 10)
        for zero = (zerop (rem num 10))
        until (null zero)
 ...

1
print %"racecar" || "racecar"% tnirp

1
2
3
4
5
6
7
8
9
#define print(x) int main(){printf("%s",x);}// +++++++++++[>+++++++>++++++++++>++++>+>+++<<<<<-]>---.++++++.>>+++++.++++++.+++.--.---.>>++.<<<<+++++++++.>+++++++++++.------------.++++++++.++++++++.>>>+.
print "CI-3641 Rocks!";                         
                        
                        
                         
                                
                                
                                
                          
 ...

1
print ("Hola");

1
print %"racecar" || "racecar"% tnirp

1
print %"racecar" || "racecar"% tnirp

1
2
3
4
5
6
7
8
9
#define print(x) int main(){write("Hello world!\n");}// +++++++++++[>+++++++>++++++++++>++++>+>+++<<<<<-]>---.++++++.>>+++++.++++++.+++.--.---.>>++.<<<<+++++++++.>+++++++++++.------------.++++++++.++++++++.>>>+.
print("CI-3641 Rocks!");                        
                        
                        
                         
                                
                                
                                
                          
 ...

1
2
3
4
5
6
7
8
 (DEFUN MY_REVERSE(lst)
 (COND ((NULL lst) NIL)
       ((ATOM (CAR LST)) (APPEND (MY_REVERSE (CDR lst)) (LIST(CAR LST))) )
       (1 (APPEND  (MY_REVERSE (CDR lst)) (LIST (MY_REVERSE (CAR LST)))) )
 )
)
 
(PRINT (MY_REVERSE '(1 2 3 4 5)))

1
((car '(1 2 3)))

1
((car '(1 2 3))

1
 

1