teko-rs 0.1.9

Command line interface for Teko
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
52
53
54
55
56
57
58

(def null? (fn (arg) (same? arg ())))

(def drop (fn (lst n)
              (if (> n 0)
                (drop (tail lst) (- n 1))
                lst)))

(def @take (fn (lst n accum)
               (if (> n 0)
                   (@take (tail lst) (- n 1) (pair (head lst) accum))
                   accum)))


(def take (fn (lst n) (@take lst n ())))

(def @reverse (fn (lst accum)
                  (if (null? lst)
                      accum
                      (@reverse (tail lst) (pair (head lst) accum)))))
(def reverse (fn (lst) (@reverse lst ())))

(def @@append (fn (lhs rhs)
                  (if (null? lhs)
                      rhs
                      (@@append (tail lhs) (pair (head lhs) rhs)))))

(def @append (fn (lhs rhs)
                 (@@append (reverse lhs) rhs)))

(def @append' (fn (lsts accum)
                  (if (null? lsts)
                    accum
                    (@append' (tail lsts) (@append accum (eval (head lsts)))))))

(def append (mo lsts (pair quote (@append' lsts ()))))

(def @map (fn (func lst accum)
          (if (null? lst)
            (reverse accum)
            (@map func (tail lst) (pair (func (head lst)) accum)))))
(def map (fn (func lst) (@map func lst ())))

(def @filter (fn (pred lst accum)
                 (if (null? lst)
                     (reverse accum)
                     (if (pred (head lst))
                         (@filter pred (tail lst) (pair (head lst) accum))
                         (@filter pred (tail lst) accum)))))
(def filter (fn (pred lst) (@filter pred lst ())))

(def @flatten (fn (lst accum)
                  (if (null? lst)
                      accum
                      (if (not (pair? (head lst)))
                          (@flatten (tail lst) (pair (head lst) accum))
                          (@flatten (tail lst) (@flatten (head lst) accum))))))

(def flatten (fn (lst) (reverse (@flatten lst ()))))