github/euler
1
0
Fork 0
mirror of https://github.com/correl/euler.git synced 2024-11-24 03:00:08 +00:00
Code Issues Projects Releases Packages Wiki Activity

Haskell 001 with guards

Browse source
This commit is contained in:
Correl Roush 2011-10-10 23:12:17 -04:00
parent 32f83b946f
commit 25798c7cc2
1 changed files with 4 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
haskell/e001.hs
View file

@ -7,13 +7,10 @@
import Text.Printf import Text.Printf
multiples :: (Integral a) => a -> a multiples :: (Integral a) => a -> a
multiples max = multiples max
if max < 3 then | max < 3 = 0
0 | (max `mod` 5 == 0) || (max `mod` 3 == 0) = max + multiples (max - 1)
else | otherwise = multiples (max - 1)
if (max `mod` 5 == 0 || max `mod` 3 == 0) then
max + multiples (max - 1)
else multiples (max - 1)
main = do main = do
printf "Sum of multiples below 10: %d\n" (multiples 9 :: Int) printf "Sum of multiples below 10: %d\n" (multiples 9 :: Int)