fork(1) download 
  1. main = getLine >> fmap (map read . words) getLine >>= \jabloki -> let
  2. 	po100 = div (sum jabloki) 100
  3. 	skok200 = sum [1 | 200 <- jabloki]
  4. 	in putStrLn $ if even po100 && skok200 <= 2*(div (div po100 2) 2) then "YES" else "NO"
Success #stdin #stdout 0s 6288KB
comments (?)
stdin 
3
100 200 100
stdout 
YES
https://ideone.com/shdMR7
language:
Haskell (ghc 8.4.4)
created:
9 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!