1
2
3
4
5
6
7
8
9
Private static void ShowCoordinates()
{
string dummy = "5320432941379723768723456";
 
int a = 0x34;
int b = 3; AddOne(b);
string c = Regex.Replace(dummy, "(?:9?[^8]0*)", "");
int d = 1 << 3;
int e = 1 ^ 2;
 ...

1
2
3
4
5
6
7
8
9
Private static void ShowCoordinates()
{
string dummy = "5320432941379723768723456";
 
int a = 0x34;
int b = 3; AddOne(b);
string c = Regex.Replace(dummy, "(?:9?[^8]0*)", "");
int d = 1 << 3;
int e = 1 ^ 2;
 ...

1
2
3
4
5
6
7
8
9
(define (natural? x)
  (and (integer? x) (positive? x)))
 
(define (make-vector size item-generator)
  ...)
 
(provide/contract
  (natural? (any? . -> . boolean?))
  (make-vector (natural? procedure? . -> . vector?)))

1
2
3
4
5
6
7
8
#include<stdio.h>
int main()
{
  float f=4;
  int i=7;
  printf("%f %u %c",f,&f,i);
  return;
}

1
2
3
4
5
6
#include<stdio.h>
int main()
{
printf("hello kotesh");
return 0;
}

1
2
3
4
5
6
7
8
9
== '''La Sedia Rotta''' ==
 
 
{| border="10" cellpadding="5"cellspacing="4"
!width="0"|Mandante
!width="0"|Titolo
!width="0"|Requisiti
!width="0"|Ricompensa   
!width="0"|Avviso
 ...

1
(format t "Hello, world!")

1
(format "Hello, world!")

1
(PRINT (+ 1 2))

1
(PRINT 'HOGE')

1
(PRINT "HOGE")

1
(PRINT 1)

1
(PRINT 'hello )

1
(DEFUN TAKEH (X) (+ 1 X)

1
2
(DEFUN TAKEH (X) (+ 1 X)
(TAKEH 3)

1
2
(defun tak (x y z)  (if (<= x y)      y      (tak (tak (1- x) y z)         (tak (1- y) z x)        (tak (1- z) x y))))
(time (tak 12 6 0))

1
2
 
(let ((a 3) (b 4)) (format t "~A" (+ a b)))

1
2
 
(let ((a 3) (b 4)) (+ a b))

1
(format t "hoge~Afoo~A" "fuga" 1)

1
2
 
(format t "(+ 2 (* 3 4)) = ~A")

1
2
 
(format t "(+ 2 (* 3 4)) = ~A" 1)

1
2
 
(format t "(+ 2 (* 3 4)) = ~A" (+ 2 (* 3 4)))

1
2
3
4
5
6
7
8
9
 
(format
        t
        "(+ 2 (* 3 4)) = ~A"
        (+
                2
                (*
                        3
                        4
 ...

1
(PLUS 2 3)

1
2
 
(format t "Hello, world!")

1
2
 
(format "Hello, world!")

1
(PRINT "A")

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
(define test (list 1 1 2 3 5))
 
(println (car test)
)
 
(println
(cdr test))

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