[Haskell-cafe] Weaving fun

[Mark T.B. Carroll]

"Bas van Dijk" <v.dijk.bas at gmail.com> writes:

>   weave [[1,1,1], [2,2,2], [3,3]] ==> [1,2,3,1,2,3,1,2]
>   weave [[1,1,1], [2,2], [3,3,3]] ==> [1,2,3,1,2,3,1]
>
> Note that 'weave' stops when a list is empty.

My naive implementation is,

weave [] = []
weave ([]:_) = []
weave (x:xs) = head x : weave (xs ++ [tail x])

It's at least brief!

-- Mark