8 lines
189 B
Haskell
8 lines
189 B
Haskell
|
import System.IO
|
||
|
|
|
||
|
|
sum35 i acc max | i >= max = acc
|
||
|
|
| rem i 3 == 0 ||rem i 5 == 0 = sum35 (i+1) (acc+i) max
|
||
|
|
| otherwise = sum35 (i+1) acc max
|
||
|
|
|
||
|
|
main = print (sum35 1 0 1000)
|