cleanup

src/AcceptReject.hs

@@ -30,4 +30,3 @@ main = do
     normalPointsAR <- generateNormalPointsAR 10 0 1
     putStrLn "Normal distribution points (Acceptance-Rejection):"
     print normalPointsAR
-

src/RandomUtils.hs

@@ -22,4 +22,3 @@ boxMullerTransform mu sigma (u1:u2:us) =
         z1 = sqrt (-2 * log u1) * sin (2 * pi * u2)
     in (mu + z0 * sigma) : (mu + z1 * sigma) : boxMullerTransform mu sigma us
 boxMullerTransform _ _ _ = []  -- If input list is not in pairs, return empty list
-