diff options
| author | Charles <sircharlesaze@gmail.com> | 2019-08-11 22:36:40 +0200 |
|---|---|---|
| committer | Charles <sircharlesaze@gmail.com> | 2019-08-11 22:36:40 +0200 |
| commit | 6b16d921543a62d880171791d39bcc58560785fa (patch) | |
| tree | d47f5a23a52612107ddcc280c9bd128be7d1070f /haskell/001-multiples_of_3_and_5.hs | |
| parent | 7b624de8e3e3637a07364f992c1d7e4185e4a872 (diff) | |
| download | project_euler-6b16d921543a62d880171791d39bcc58560785fa.tar.gz project_euler-6b16d921543a62d880171791d39bcc58560785fa.tar.bz2 project_euler-6b16d921543a62d880171791d39bcc58560785fa.zip | |
haskell problems 001 -> 006
Diffstat (limited to 'haskell/001-multiples_of_3_and_5.hs')
| -rw-r--r-- | haskell/001-multiples_of_3_and_5.hs | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/haskell/001-multiples_of_3_and_5.hs b/haskell/001-multiples_of_3_and_5.hs new file mode 100644 index 0000000..f99af1e --- /dev/null +++ b/haskell/001-multiples_of_3_and_5.hs @@ -0,0 +1,10 @@ +-- Multiples of 3 and 5 + +-- Problem 1 +-- If we list all the natural numbers below 10 that are multiples of 3 or 5, we get 3, 5, 6 and 9. The sum of these multiples is 23. + +-- Find the sum of all the multiples of 3 or 5 below 1000. + + +main = do + print (sum [x | x <- [0..999], x `mod` 3 == 0 || x `mod` 5 == 0]) |