1
0
mirror of https://github.com/janet-lang/janet synced 2024-11-28 19:19:53 +00:00

Update core library.

This commit is contained in:
Calvin Rose 2018-11-07 22:52:49 -05:00
parent 2a127af1ca
commit 3ba49ed111

View File

@ -793,6 +793,17 @@ value, one key will be ignored."
(put freqs x (if n (+ 1 n) 1)))
freqs)
(defn interleave
"Returns an array of the first elements of each col,
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))))
res)
###
###
### Pretty Printer