1
2
3
4
5
6
7
8
9
#!/usr/bin/env python
# -*- coding: utf-8 -*-
#
#    This program is free software: you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation, either version 3 of the License, or
#    (at your option) any later version.
#
#    This program is distributed in the hope that it will be useful,
 ...

1
2
3
4
5
6
7
8
9
#!/usr/bin/env python
# -*- coding: utf-8 -*-
#
#    This program is free software: you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation, either version 3 of the License, or
#    (at your option) any later version.
#
#    This program is distributed in the hope that it will be useful,
 ...

1
2
3
4
5
6
7
8
9
(defun combined_gas_law ()
 
(princ "Enter the initial values of P,V,T ")
 
(setq p1 (read))
 
(setq pre (pre_conv p1))
 
(setq v1 (read))
 ...

1
2
3
4
5
6
7
8
9
(defun combined_gas_law ()
 
(princ "Enter the initial values of P,V,T ")
 
(setq p1 (read))
 
(setq pre (pre_conv p1))
 
(setq v1 (read))
 ...

1
2
3
; is it a comment
(defun hello_world()
(princ "hello world")

1
 

1
(+ 2 2)

1
2
3
4
5
6
7
class Test {
 
        public static void main(String[] args){
                System.out.println("Hello, World!");
        }
 
}

1
2
3
(define (sqrt x)
  (the y (and (>= y 0)
              (= (square y) x))))

1
2
3
4
(loop 
        for line = (read-line *standard-input* nil nil) 
        while (not (equal line "42")) 
        do (format t "~A~%" line))

1
(write (* 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20))

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
3
4
5
6
7
8
9
        global _start
 
section .data
        buffer  dw      0h
 
section .text
 
_start:
        mov             ecx, buffer
 ...

1
2
(print '( 5.0 5.0))
 

1
2
(print(= 5.0 5.0))
 

1
2
(= 5.0 5.0)
 

1
2
(= '(5 5))
 

1
2
(= (5 5))
 

1
2
= (5 5)
 

1
2
=5 5
 

1
'(1 2 3)

1
('1 '2 '3)

1
(1 2 3)

1
(a b c)

1
2
3
4
5
6
7
8
9
(defun fibonacci (n)
    (defun fib-iter (a b count)
        (if (zerop count)
            b
            (fib-iter (+ a b) a (- count 1))
        )
    )
    (fib-iter 1 0 n)
)
 ...

1
(atom ‘a)

1
(atom ‘a) -> t

1
(atom x)

1
2
3
4
5
6
7
(defun factorial (n)
    (if (= n 0)
        1
        (* n (factorial (- n 1))) ) )
 
(loop for i from 0 to 1000
    do (format t "~D! = ~D~%" i (factorial i)) )

1
2
3
4
5
6
7
(defun factorial (n)
    (if (= n 0)
        1
        (* n (factorial (- n 1))) ) )
 
(loop for i from 0 to 100
    do (format t "~D! = ~D~%" i (factorial i)) )