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

Add planets

Browse source
This commit is contained in:
Dimitri Lozeve 2017-07-19 14:25:32 +02:00
parent 104ec50dcd
commit 01d5e8640f
2 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
app/Main.hs
View file

@ -24,4 +24,4 @@ steps n dt bodies = do
steps (n-1) dt (updateAll dt bodies)
main :: IO ()
main = steps 1000000 10 [sun, earth, moon]
main = steps 1000000 10 [sun, earth, moon, mercury, venus, mars]