Contents

module Etl
  ( transform
  ) where

import Prelude
import Data.Array (foldl)
import Data.Char (toLower)
import Data.Map (Map, insert, empty, toUnfoldable)
import Data.Tuple (Tuple(..))

transform :: Map Int (Array Char) -> Map Char Int
transform = toUnfoldable
            >>> expand
            >>> foldl add empty
  where expand xs = do
          Tuple k ys <- xs
          y <- ys
          pure $ Tuple k y
        add m (Tuple k v) = insert (toLower v) k m

Version data entries

242 entries across 242 versions & 1 rubygems

Version	Path
trackler-2.1.0.0	tracks/purescript/exercises/etl/examples/src/Etl.purs
trackler-2.0.8.55	tracks/purescript/exercises/etl/examples/src/Etl.purs