turtle-lang 0.1.1

A humble, fun, and friendly Lisp
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51

(import "@prelude")
(import "@math")

;; Greater than
(assert (gt 0 1 2 3 4))
(assert (not (gt 3 2 1)))
(assert (gt -5 -4.0 -3 -2 1 2 3 4 500))

;; Greater than or equal to
(assert (ge -1 -0 0 1 1 2))
(assert (not (ge -5 -5 -4 -5)))

;; Sums
(assert (eq (sum 5 4 3 2 1) 15))
(assert (eq (sum 5 4 3 2 -1) 13))

;; Modulo
(assert (eq (modulo 5 3) 2))
(assert (eq (modulo 5 -3) 2))

;; Products
(assert (eq (prod 5 4 3 2 1) 120))
(assert (eq (prod 5 4 3 2 -1) -120))

;; Math shorthands
(assert (eq (+ 5 4 3) 12))
(assert (eq (- 5 4) 1))
(assert (eq (- 5 -5) 10))
(assert (eq (* 5 4 3 2 1) 120))
(assert (eq (/ 1 10) 0.1))

;; Increasing & decreasing
(assert (increasing 5))
(assert (increasing 1 2 3 4 5))
(assert (not (increasing 1 2 8 3 4 5)))
(assert (increasing 1 2 3 3 4 5))

(assert (strictly-increasing 5))
(assert (strictly-increasing 1 2 3 4 5))
(assert (not (strictly-increasing 1 2 8 3 4 5)))
(assert (not (strictly-increasing 1 2 3 3 4 5)))

(assert (decreasing 5))
(assert (decreasing 5 4 3 2 1))
(assert (not (decreasing 5 4 3 2 3 4 5)))
(assert (decreasing))

(assert (strictly-decreasing 5))
(assert (strictly-decreasing 5 4 3 2 1))
(assert (not (strictly-decreasing 1 2 8 3 4 5)))
(assert (not (strictly-decreasing 5 4 4 3 2)))