]> git.somenet.org - pub/jan/funcprog.git/blob - Aufgabe3_jj.lhs
fertig... fast
[pub/jan/funcprog.git] / Aufgabe3_jj.lhs
1 Aufg 3.1
2
3 >dreiNplusEins :: Integer -> [Integer]
4 >dreiNplusEins x | (x > 1) && ((mod x 2) == 0) = x:(dreiNplusEins (div x 2))
5 >dreiNplusEins x | (x > 1) && ((mod x 2) == 1) = x:(dreiNplusEins ((x * 3)+1))
6 >dreiNplusEins 1 = 1:[]
7 >dreiNplusEins _ = []
8
9
10
11 Aufg 3.2
12
13 >type UntereGrenze = Integer
14 >type ObereGrenze = Integer
15 >type MaxZykLaenge = Integer
16
17 >maxZyklus :: UntereGrenze -> ObereGrenze -> (UntereGrenze,ObereGrenze,MaxZykLaenge)
18 >maxZyklus m n | (0 < m) && (m < n) && (n < 1000000) =