diff --git a/README.md b/README.md index 90ddafb..1b303e3 100644 --- a/README.md +++ b/README.md @@ -5,7 +5,7 @@ Install the Haskell build tool `stack` and ensure `~/.local/bin` is in your `$PATH` ``` -curl -sSL https://get.haskellstack.org/ | sh +curl -sSL https://get.haskellstack.org | sh -s - -d ~/.local/bin ``` Run the demo: diff --git a/src/AcceptReject.hs b/src/AcceptReject.hs index 7527739..719a701 100644 --- a/src/AcceptReject.hs +++ b/src/AcceptReject.hs @@ -30,4 +30,3 @@ main = do normalPointsAR <- generateNormalPointsAR 10 0 1 putStrLn "Normal distribution points (Acceptance-Rejection):" print normalPointsAR - diff --git a/src/RandomUtils.hs b/src/RandomUtils.hs index 0ab5924..f1e68b1 100644 --- a/src/RandomUtils.hs +++ b/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 -