mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-11-28 19:19:53 +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."
[& cols]
(def res @[])
(def len (apply min 0 (mapa length cols)))
(loop [i :range [0 len]]
(loop [c :in col]
(array.push res (get c i))))
(def ncol (length cols))
(when (> ncol 0)
(def len (apply min (mapa length cols)))
(loop [i :range [0 len]]
(loop [ci :range [0 ncol]]
(array.push res (get (get cols ci) i)))))
res)
###