[题解](续II)Let’s Celebrate the 100th Contest on ZOJ! » ZOJ3441hs

ZOJ3441hs
ZOJ3441hs.hs


import Data.List ((\\))

main = do fmap (map (map read . words) . lines) getContents >>= putStr . unlines . gao where
	gao [] = []
	gao (a:b:s) = gao' a b : gao s where
		gao' a b = unwords $ map show $ (filter (>=0) a) \\ (map abs b)
Leave a Reply