module Simple where

-- einfache Funktionen

add    x y   =  x+y
square x     =  x * x
simple a b c =  a * (add b c)

rest   x y   =  x `mod` y
quotient x y =  x `div` y 

-- Konstanten
newline =  '\n'
eps =  0.000001

-- Test auf identische Argumente
allEqual n m p =  (n==m) && (m==p)


-- eigene Maximumsfunktion, max ist vordefiniert
maxi n m | n>=m      =  n
         | otherwise =  m