@@ -11,9 +11,14 @@ module Main where
11 import Control.Monad.Eff.Console (CONSOLE, log)
11 import Control.Monad.Eff.Console (CONSOLE, log)
12 import Test.Assert (ASSERT, assert')
12 import Test.Assert (ASSERT, assert')
13 import Data.List (List(..), (:))
13 import Data.List (List(..), (:))
14+ import Data.List as L
15 infixl 6 Cons as !
17 infixl 6 Cons as !
20+ infixl 6 L.Cons as !!
17 get1 ∷ ∀ a. a → List a → a
22 get1 ∷ ∀ a. a → List a → a
18 get1 y xs = case xs of
23 get1 y xs = case xs of
19 _ : x : _ → x
24 _ : x : _ → x