mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-12-01 04:19:55 +00:00
Code Issues 1 Releases Wiki Activity

Make zipcoll more generic.

Browse Source 
Work with any iterable (next) type.
This commit is contained in:
Calvin Rose 2020-06-24 16:10:57 -05:00
parent ac5de1f96e
commit 6a187a384b
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/boot/boot.janet
View File

@ -1236,11 +1236,14 @@
Returns a new table." Returns a new table."
[ks vs] [ks vs]
(def res @{}) (def res @{})
(def lk (length ks)) (var kk nil)
(def lv (length vs)) (var vk nil)
(def len (if (< lk lv) lk lv)) (while true
(for i 0 len (set kk (next ks kk))
(put res (in ks i) (in vs i))) (if (= nil kk) (break))
(set vk (next vs vk))
(if (= nil vk) (break))
(put res (in ks kk) (in vs vk)))
res) res)
(defn get-in (defn get-in