import System Environment even xs xs even odd xs xs odd task xs do pri

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
import System.Environment
even' xs = [x | x <- xs, even x]
odd' xs = [x | x <- xs, odd x]
task xs = do
print (even' xs)
print (odd' xs)
main = task [6, 2, 9, 3, 1, 4, 5, 1, 1]