mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2026-09-14 13:21:21 +00:00
Code Issues 1 Releases Wiki Activity

Fix if-let when-let and add put-in (assoc-in)

Browse Source
This commit is contained in:
Gavlooth
2018-03-25 21:33:03 +03:00
parent 1bc5705667
commit 5ff0367d0f
2 changed files with 23 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
examples/utils.dst
+22
View File
@@ -0,0 +1,22 @@
(defn put-in [coll keys val]
(defn assoc [the-coll n]
(if-let [current-key (get keys n)
current-val (get the-coll current-key)]
(put the-coll current-key (assoc current-val (inc n)))
val))
(assoc coll 0))
(defn update-in [coll keys an-fn]
(def new-keys (array-slice coll 0 -2) )
(def last-key (get (array-slice coll -1 -2) 0))
(defn assoc [the-coll n]
(if-let [current-key (get keys n)
current-val (get the-coll current-key)]
(put the-coll current-key (assoc current-val (inc n)))
( update the-coll last-key an-fn )))
(assoc coll new-keys 0))
;; (defn update-in-test [ ] (update-in @{:a "x" :b {:y {"pipa" 3}}} [:b :y "pipa"] type))