# HG changeset patch # User Markus Kaiser # Date 1350478058 -7200 # Node ID 9bd0c4f30c498234a88e9c961f783e4b7beacaa5 week 1 diff -r 000000000000 -r 9bd0c4f30c49 blatt1.pdf Binary file blatt1.pdf has changed diff -r 000000000000 -r 9bd0c4f30c49 exercises/src/Exercise_1.hs --- /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