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) =