You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
28 lines
378 B
28 lines
378 B
|
|
type Name = String
|
|
type Table = [ (Name, Name) ]
|
|
|
|
fathers :: Table
|
|
fathers = [
|
|
("a", "d"),
|
|
("b", "r")
|
|
]
|
|
|
|
head' :: [a] -> a
|
|
head' (x:xs) = x
|
|
|
|
|
|
helper :: Integer -> [a] -> Integer
|
|
helper acc (x:xs) = helper (acc + 1) xs
|
|
helper acc ([]) = acc
|
|
|
|
len' :: [a] -> Integer
|
|
len' xs = helper 0 xs
|
|
|
|
|
|
inv :: [a] -> [a]
|
|
inv _ = _
|
|
|
|
|
|
getF :: Name -> Maybe Name
|
|
getF n = lookup n fathers
|
|
|