30 lines
900 B
Scheme
30 lines
900 B
Scheme
(begin
|
|
(displayln "--- TEST: = ----------------------------------------------------")
|
|
(displayln(= 123))
|
|
(displayln(= 123 123))
|
|
(displayln(= 123 456))
|
|
(displayln(= 123 123 123))
|
|
(displayln(= 456 123 123))
|
|
(displayln(= 123 456 123))
|
|
(displayln(= 123 123 456))
|
|
(displayln(= 123 123 123 123))
|
|
(displayln(= 456 123 123 123))
|
|
(displayln(= 123 456 123 123))
|
|
(displayln(= 123 123 456 123))
|
|
(displayln(= 123 123 123 456))
|
|
(newline)
|
|
(displayln "--- TEST: + ----------------------------------------------------")
|
|
(displayln (+))
|
|
(displayln (+ 123))
|
|
(displayln (+ 1 10))
|
|
(displayln (+ 1 10 100))
|
|
(displayln (+ 1 10 100 1000))
|
|
(newline)
|
|
(displayln "--- TEST: - ----------------------------------------------------")
|
|
(displayln (- 0))
|
|
(displayln (- 123))
|
|
(displayln (- 100 1))
|
|
(displayln (- 100 1 2))
|
|
(displayln (- 100 1 2 3))
|
|
(displayln (- 100 1 2 3 4))
|
|
)
|