dimitri/orbit
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Rearrange csvFromInit

Browse source
This commit is contained in:
Dimitri Lozeve 2017-11-09 23:19:51 +00:00
parent ed6a0c5bc1
commit f150994cc7
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
app/Main.hs
View file

@ -76,7 +76,7 @@ csvFromInit :: Int -- ^ The number of time steps to keep
-> Double -- ^ The Barnes-Hut threshold theta -> Double -- ^ The Barnes-Hut threshold theta
-> [Body] -- ^ The initial state (list of bodies) -> [Body] -- ^ The initial state (list of bodies)
-> String -- ^ CSV data -> String -- ^ CSV data
csvFromInit n dt theta b = concat . take n $ map (uncurry csvFromBodies) (steps dt theta b) csvFromInit n dt theta b = concat $ map (uncurry csvFromBodies) (take n $ steps dt theta b)
main :: IO () main :: IO ()
main = do main = do