1
(format t (^ 4 5))

1
(^ 4 5)

1
2
3
4
5
6
7
8
(format t (expt 20 (expt 6 (expt 6 87))))
 
(reset)
 
(run)
 
(exit)
 

1
2
3
4
5
6
7
(format t (expt 20 (expt 6 (expt 6 87))))
 
(reset)
 
(run)
 
(exit)

1
(format t (expt 20 (expt 6 (expt 6 87))))

1
 

1
(expt 20 (expt 6 (expt 6 87)))

1
(expt 5 (expt 5 77))

1
 

1
2
3
4
5
6
7
8
9
eb 04 af c2 bf a3 81 ec
0c fe c1 75 f9 31 c0 ba
d0 c1 ca 08 8a 1c 0c 8a
fe c1 75 e8 e9 5c 00 00
00 5c 58 3d 41 41 41 41
75 3b 5a 89 d1 89 e6 89
d1 89 df 29 cf 31 c0 31
8a 14 06 8a 34 1e 88 34
8a 1c 16 8a 17 30 da 88
 ...

1
2
3
4
5
6
7
8
;;;; -*- Mode: Lisp; Syntax: Common-Lisp -*-
;;;; Code from Paradigms of AI Programming
;;;; Copyright (c) 1991 Peter Norvig
 
;;;; File othello.lisp: An othello monitor, with all strategies
;;;; up to and including section 18.8
 
;;; One bug fix by Alberto Segre, segre@cs.cornell.edu, March 1993.
 ...

1
(pr "Hello world!")

1
2
3
4
(defvar x 2) 
 
(defun f (y) (setq y 3)) 
(f x)

1
2
3
4
5
6
7
8
9
(defrule readin
        ?f<-(initial-fact)
=>
        (retract ?f)
        (assert (number (read)))
)
 
(defrule writeout
        ?f<-(number ?n)(test (<> ?n 42))
 ...

1
2
3
4
5
6
7
8
9
(defrule readin
        ?f<-(initial-fact)
=>
        (retract ?f)
        (assert (number (read)))
)
 
(defrule writeout
        ?f<-(number ?n)(test (<> ?n 42))
 ...

1
(+ 2 4)

1
(+ 2 4)

1
(length '(1 2 3 4))

1
2
3
4
5
6
7
8
9
(defrule readin
        ?f<-(initial-fact)
=>
        (retract ?f)
        (assert (number (read)))
)
 
(defrule writeout
        ?f<-(number ?n)(test (<> ?n 42))
 ...

1
(let ((x "Hello"))(format t "~A" x))

1
2
3
4
5
6
7
8
9
SPOJ is indeed awesome
++++++++[>++++++++++<-]
>+++.
---.
-.
-----.
<<++++++[>+++++<-]
>++.
>>++++++++++[>++++++++++<-]
 ...

1
2
3
4
5
6
7
8
9
SPOJ is indeed awesome
++++++++[>++++++++++<-]
>+++.
---.
-.
-----.
<<++++++[>+++++<-]
>++.
>>++++++++++[>++++++++++<-]
 ...

1
2
3
4
5
6
7
8
9
SPOJ is indeed awesome
++++++++[>++++++++++<-]
>+++.
---.
-.
-----.
<<++++++[>+++++<-]
>++.
>>++++++++++[>++++++++++<-]
 ...

1
2
3
4
5
6
7
8
9
SPOJ is indeed awesome
++++++++[>++++++++++<-]
>+++.
---.
-.
-----.
<<++++++[>+++++<-]
>++.
>>++++++++++[>++++++++++<-]
 ...

1
2
3
4
5
6
7
8
9
SPOJ is indeed awesome
++++++++[>++++++++++<-]
>+++.
---.
-.
-----.
<<++++++[>+++++<-]
>++.
>>++++++++++[>++++++++++<-]
 ...

1
2
3
4
5
6
7
8
9
(defrule readin
        ?f<-(initial-fact)
=>
        (retract ?f)
        (assert (number (read)))
)
 
(defrule writeout
        ?f<-(number ?n)(test (<> ?n 42))
 ...

1
? “Exemplo do comando ?”

1
nonono

1
)

1
23458)