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

(import "@prelude")

(func contains 
    (key map) 
    (gt 0 
        (length 
            (filter 
                (lambda '
                    (k) '
                    (eq 
                        (first k) 
                        key)) map))))
(func insert 
    (kvpair map) 
    (cons kvpair 
        (filter 
            (lambda '
                (k) '
                (not 
                    (eq 
                        (first k) 
                        (first kvpair)))) map)))
(metafunc insert! ($kvpair $map) (let $map (insert ,$kvpair ,$map)))
(let 'remove. (lambda 
    '(key map) 
        '(filter 
            (lambda '
                (k) '
                (not 
                    (eq 
                        (first k) 
                        key))) map)))
(metafunc remove! ($key $map) (let $map (remove. ,$key ,$map)))
(export 'remove remove.)
(func extract 
    (key map) 
    (second 
        (first 
            (filter 
                (lambda '
                    (k) '
                    (eq 
                        (first k) 
                        key)) map))))