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:[]
13 >type UntereGrenze = Integer
14 >type ObereGrenze = Integer
15 >type MaxZykLaenge = Integer
17 >maxZyklus :: UntereGrenze -> ObereGrenze -> (UntereGrenze,ObereGrenze,MaxZykLaenge)
18 >maxZyklus m n | (0 < m) && (m < n) && (n < 1000000) =