mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-11-29 03:19:54 +00:00
Code Issues 1 Releases Wiki Activity

Fix interleave

Browse Source
This commit is contained in:
Calvin Rose 2018-11-07 22:56:26 -05:00
parent 3ba49ed111
commit d603e0eb8d
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/core/core.janet
View File

@ -798,10 +798,12 @@ value, one key will be ignored."
then the second, etc." then the second, etc."
[& cols] [& cols]
(def res @[]) (def res @[])
(def len (apply min 0 (mapa length cols))) (def ncol (length cols))
(loop [i :range [0 len]] (when (> ncol 0)
(loop [c :in col] (def len (apply min (mapa length cols)))
(array.push res (get c i)))) (loop [i :range [0 len]]
(loop [ci :range [0 ncol]]
(array.push res (get (get cols ci) i)))))
res) res)
### ###