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
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
3
4
(defun factorial (x)
  (if (eql x 0)
    1 
    (* x (factorial (- x 1)))))

1
(a b c)

1
2
3
4
5
6
7
8
9
                                                                   
"EXECIO * DISKR ORDERDAT (STEM orderData."                         
                                                                   
if 0 <> RC then                                                    
  do                                                               
    say 'ERROR: Unable to read in the ORDERDAT file'               
    exit 8                                                         
  end                                                              
                               
 ...

1
2
3
4
(defun hoge (piyo fuga)
  (+ piyo fuga))
 
(hoge 1 2)

1
2
3
4
(defun hoge (piyo fuga)
  (+ piyo fuga))
 
(hoge 1 2)

1
2
3
4
5
6
7
8
9
(DEFUN MEM2 (X L)        (COND
   ((NULL L) NIL)
   (T (OR (COND ((ATOM (CAR L)) (EQUAL X                 (CAR L)))
            (T (MEM2 X (CAR L)))
                      )
                      (MEM2 X (CDR L))
)        )                                 ) )
(SETQ Y '(1 2 3 1 2))
(SETQ Z '())
 ...

1
2
3
4
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" ;;

1
2
3
4
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" ;;

1
http://easylogins.blogspot.com easylogins xxx passes xxxpass xxx passes free logins porn site sex

1
 

1
2
3
4
5
6
7
 (f n)
 (do ((d (do ((i (- n 1) (- i 1))
              (d '() (cons i d)))
             ((< i 0) d))
         (append (cddr d) (list (car d)))))
     ((null? (cdr d)) (car d)))
(f 123456789)

1
2
3
4
5
6
7
(define (f n)
 (do ((d (do ((i (- n 1) (- i 1))
              (d '() (cons i d)))
             ((< i 0) d))
         (append (cddr d) (list (car d)))))
     ((null? (cdr d)) (car d))))
(display (f 123456789))

1
Die Zeichen des Frühlings sind unsichtbar UMS Team

1
(+ 2 2)

1
(display(+123))

1
(display(+123465))

1
(display(+12))

1
(+123456)

1
2
3
4
5
6
7
8
9
<p align="left"><strong><font color="#5F5F5F"><span style="FONT-SIZE: 12pt">November 1,
2011</span></font><span style="FONT-SIZE: 12pt">&nbsp;</span></strong></p>
 
<p align="left"><strong><span style="FONT-SIZE: 12pt"><font color="#5F5F5F">Under
      Construction</font><font color="#5F5F5F">-</font></span><font color="#5F5F5F"><span style=
      "FONT-SIZE: 12pt">Thanks for Y</span><span style="FONT-SIZE: 12pt">our P</span><span style=
      "FONT-SIZE: 12pt">atience!</span></font></strong></p>
 
<p align="left"><font color="#5F5F5F"><strong><span style="FONT-SIZE: 12pt">This website is not quite done
 ...

1
2
3
4
((lambda(a b c)
(+(*(-(*(* a b)(- a(+ 8 a c)))
(* 3(/ c a)))(/(+ c(* a)b))
(-(expt a b)(expt c 10)))) 2/5 -3 -1)

1
2
3
(defun car3(l1 l2 l3)
(cons(car l1)(cons(car l2)(cdr l3)))
(cons(cons(car l1)(cons(car l2)nil))(cdr l3))

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
(defun f ()
        (loop :for i :from 0 :to 10000
                :collect i))
 
(f)

1
2
3
4
5
6
7
8
; Prime Number Finder in Common Lisp
; אוהב חכמה
 
(defun check (max i sq)
  (if (> i sq)
      (format t "~d~%" max)
      (if (not (= (mod max i) 0))
          (check max (+ i 2) sq))))
 ...

1
2
3
4
5
6
7
8
; Prime Number Finder in Common Lisp
; אוהב חכמה
 
(defun check (max i sq)
  (if (> i sq)
      (format t "~d~%" max)
      (if (not (= (mod max i) 0))
          (check max (+ i 2) sq))))
 ...

1
2
3
4
5
6
7
8
9
/* Cayetano López de Pablo Serna,                */
/* Grado de Matemáticas 1r curso. Turno de tarde */
/* Programa ejercicio de programacion cientifica */
/*   ejercici24 página 15                        */
/*                                               */
/*  aproximacion al calculo integral             */
/* ----------------------------mayo  2011        */
/*-----------------------------ejerci24.c -------*/
/*-----------------------------------------------*/
 ...