fork download
  1. import Data.List
  2. import Data.Function
  3.  
  4. isEven x = x `mod` 2 == 0
  5.  
  6. main = print $ sortBy (compare `on` isEven) [1..4]
Success #stdin #stdout 0s 6232KB
stdin
Standard input is empty
stdout
[1,3,2,4]