From f4e4457df71937952d61e47bff63cd1e219ee6af Mon Sep 17 00:00:00 2001 From: nek0 Date: Sun, 5 Jan 2020 15:22:41 +0100 Subject: [PATCH] no big planets and less small things --- examples/example02/Init.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/examples/example02/Init.hs b/examples/example02/Init.hs index 806eb6c..e824ef5 100644 --- a/examples/example02/Init.hs +++ b/examples/example02/Init.hs @@ -94,14 +94,14 @@ load = do y <- randomRIO (-50, 50) z <- randomRIO (-50, 50) return (V3 x y z) - ) [0..2222] + ) [0..1999] poss2 <- mapM (\_ -> do x <- randomRIO (-100, 100) y <- randomRIO (-100, 100) z <- randomRIO (-100, 100) return (V3 x y z) - ) [0..9] + ) [] -- [0..9] let shipList = zipWith (Ship shipBO stl) poss