blob: 83404e21888c2dde02209cc568d37314902e72b7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
;;
;; Basic arithmetic operations.
;;
;; Addition.
(print "(+ 10 100) -> ") (+ 10 100)
(print "(+ 1 -2 3 4) -> ") (+ 1 -2 3 4)
;; Substraction.
(print "(- 100 75) -> ") (- 100 75)
(print "(- 10 20 30) -> ") (- 10 20 30)
;; Multiplication.
(print "(* 10 7) -> ") (* 10 7)
(print "(* -1 66) -> ") (* -1 66)
;; Division.
(print "(/ 45 5) -> ") (/ 45 5)
(print "(/ 10 5 2) -> ") (/ 10 5 2)
;; Nesting operations.
(print "(* 20 (+ 100 (- 50 30) (/ 300 3)) 10) -> ") (* 20 (+ 100 (- 50 30) (/ 300 3)) 10)
|
