diff options
| -rw-r--r-- | libs/dict.neb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/libs/dict.neb b/libs/dict.neb index 7b474f4..dd7d5ba 100644 --- a/libs/dict.neb +++ b/libs/dict.neb @@ -5,20 +5,20 @@ (empty? (filter (lambda (x) (not (eq? x 2))) (map list-length in)))) -(func has? (in key) +(func has? (in :list key) (not (empty? (filter (lambda (x) (eq? (first x) key)) in)))) -(func get (d key) +(func get (d :list key) (first (rest (first (filter (lambda (x) (eq? (first x) key)) d))))) -(func set (d key val) +(func set (d :list key val) (if (has? d key) (map (lambda (x) (if (eq? key (first x)) (list (first x) val) x)) d) (append d (list key val)))) -(func keys (d) (map first d)) +(func keys (d :list) (map first d)) -(func drop (d key) +(func drop (d :list key) (filter (lambda (x) (not (eq? (first x) key))) d)) |