yogsototh/euler
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Better visualization

Browse source
This commit is contained in:
Yann Esposito (Yogsototh) 2011-12-19 18:02:19 +01:00
parent 47a1f0404a
commit 0018ef8137
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
066.hs
View file

@ -38,9 +38,12 @@ sol d = if isSquare d
else phead $ filter (hasSolution d) [2..1000000]
main = let
lst = map sol [2..1000]
m = 100
lst = map sol [2..m]
maxelem = foldl' (\x y -> if x>y then x else y) 0 lst
in do
forM_ [2..1000] (\d -> do putStr $ (show d) ++ " -> "; print $ lst !! d)
forM_ [2..m] (\d -> do putStr $ (show d) ++ " -> "; print $ lst !! (d-2))
putStr "Maximum value: "
print maxelem
print $ elemIndex maxelem lst
putStr "Maximum D: "
print $ 2 + (fromJust $ elemIndex maxelem lst)