fork download
  1. import Control.Monad (replicateM)
  2. import Data.Functor ((<&>))
  3.  
  4. main :: IO ()
  5. main = do
  6. a <- replicateM 5 getLine <&> \xs ->
  7. [ y
  8. | x <- xs
  9. , let y = read x
  10. , y `mod` 10 == 0
  11. ]
Success #stdin #stdout 0s 4868KB
stdin
10
11
15
20
25
stdout
[10,20]