zip3 implementation with ZipList & ado

Main.purs

module Main where

import Prelude

import Effect.Console as Console
import TryPureScript (render, withConsole)
import Data.Array as Array
import Data.List.ZipList (ZipList(..))

zip3 :: Array Int -> Array Int -> Array Int -> Array (Array Int)
zip3 as bs cs = Array.fromFoldable ado
  a <- ZipList (Array.toUnfoldable as)
  b <- ZipList (Array.toUnfoldable bs)
  c <- ZipList (Array.toUnfoldable cs)
  in [ a, b, c ]

main = render =<< withConsole do
  Console.logShow (zip3 [1,2,3] [4,5,6] [7,8,9])