Main.purs

module Main where
    
import Prelude
import Control.Monad.Eff.Console (logShow)
import Data.Array ((..))
import Data.Array as A
import Data.Foldable (sum)
import TryPureScript (render, withConsole)



result :: Int
result =
  (0 .. 999)
  # A.filter (multipleOf 3 `or` multipleOf 5)
  # sum
  where
   multipleOf n m = m `mod` n == 0
   or f g n = f n || g n

main = render =<< withConsole do
  logShow result