Mercurial > 12ws.info2
view exercises/src/Exercise_1.hs @ 0:9bd0c4f30c49
week 1
author | Markus Kaiser <markus.kaiser@in.tum.de> |
---|---|
date | Wed, 17 Oct 2012 14:47:38 +0200 |
parents | |
children | e532198d58f4 |
line wrap: on
line source
module Exercise_1 where import Test.QuickCheck {---------------------------------------------------------------------} {- G1.1 -} threeDifferent :: Integer -> Integer -> Integer -> Bool threeDifferent x y z = undefined fourEqual :: Integer -> Integer -> Integer -> Integer -> Bool fourEqual w x y z = undefined {---------------------------------------------------------------------} {- G1.2 -} fac :: Integer -> Integer fac n = undefined sum_ten :: Integer -> Integer sum_ten n = undefined {---------------------------------------------------------------------} {- G1.3 -} g :: Integer -> Integer g n = if n < 10 then n*n else n max_g :: Integer -> Integer max_g n = undefined {- Aufgabe H1.1 -} {-WETT-} {- Diese Zeile nicht entfernen -} sum_max_sq :: Integer -> Integer -> Integer -> Integer sum_max_sq x y z = undefined {-TTEW-} {- Diese Zeile nicht enfernen! -} {---------------------------------------------------------------------} {- Aufgabe H1.2 -} {- Teil 1 -} f :: Integer -> Integer f n = undefined {- Teil 2 -} {- - Schreiben Sie ihre Lösungen in diesen Kommentar -} {- Teil 3 -} f' :: Integer -> Integer f' n = undefined {- Quickcheck test -} {---------------------------------------------------------------------} {- Aufgabe H1.3 -} {- Teil 1 -} is_square' :: Integer -> Integer -> Bool is_square' n m = undefined {- Teil 2 -} is_square :: Integer -> Bool is_square n = undefined