import Prelude hiding (head, length, and, take)
max3 x y z =
if x > y
then if x > z
then x
else z
else if y > z
then y
else z
max31 x y z
| x > y && x > z = x
| y > z = y
| otherwise = z
max32 x y z = max (max x y) z
head :: [a] -> a
head [] = error "List empty!!"
head (x:xs) = x
und x y = zuZahl x * zuZahl y > 0
zuZahl True = 1
zuZahl False = 0
und2 True True = True
und2 x y = False
length xs = lengthHelp xs 0
lengthHelp [] acc = acc
lengthHelp (x:xs) acc = lengthHelp xs (acc + 1)
and (False:xs) = False
and (True:xs) = and xs
and [] = True
einsen = repeat 1
einsen2 = [1,1..]
einsen3 = 1 : einsen3
plus x y = x + y
plusTupel (x,y) = x + y
plus1 x = (\y -> x + y)
take 0 x = []
take x [] = []
take x (y:ys) = y : take (x - 1) ys