Mercurial > 12ws.info2
changeset 0:9bd0c4f30c49
week 1
author | Markus Kaiser <markus.kaiser@in.tum.de> |
---|---|
date | Wed, 17 Oct 2012 14:47:38 +0200 |
parents | |
children | e532198d58f4 |
files | blatt1.pdf exercises/src/Exercise_1.hs |
diffstat | 2 files changed, 71 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/exercises/src/Exercise_1.hs Wed Oct 17 14:47:38 2012 +0200 @@ -0,0 +1,71 @@ +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