SOE ex.9.3



xs = [1, 2, 3] :: [Float]
ys = map (+) xs

{-
  map :: (a -> b) -> [a] -> [b]
  (+) :: Num a => a -> a -> a
  ys = [ (+1), (+2), (+3) ]
  ys :: [ Float -> Float ]
-}

Leave a Reply