CIS194/Lecture 03/Scratch/Scratch.hs

25 lines
582 B
Haskell
Raw Permalink Normal View History

2016-10-17 15:00:19 +00:00
module Scratch where
mapInteger :: (Integer -> Integer) -> [Integer] -> [Integer]
mapInteger _ [] = []
mapInteger f (x:xs) = f x : mapInteger f xs
plus1 :: Integer -> Integer
plus1 x = x + 1
filterInteger :: (Integer -> Bool) -> [Integer] -> [Integer]
filterInteger _ [] = []
filterInteger f (x:xs)
| f x == True = x : filterInteger f xs
| otherwise = filterInteger f xs
greaterThanTwo :: Integer -> Bool
greaterThanTwo x = x > 2
data Tree = Leaf Char
| Node Tree Int Tree
deriving Show
tree :: Tree
tree = Node (Leaf 'x') 1 (Node (Leaf 'y') 2 (Leaf 'z'))