kgyokov

let Factors = 
     [ (3,"Pling"); (5,"Plang"); (7,"Plong") ]

let Show x =
      let matches = 
          Factors
          |> List.filter (fun (f,_)  -> (x % f) = 0)
          |> List.map snd 
      if matches |> List.isEmpty 

kgyokov

module Main where

import Prelude
import Data.String
import Data.List
import Data.Foldable
import Data.Maybe
import Control.Monad.Eff (Eff)
import Control.Monad.Eff.Console (CONSOLE, log)