CodinGame - Thor

thor.hs

import System.IO

main = do
    hSetBuffering stdout NoBuffering -- DO NOT REMOVE
    [lightx, lighty, initialtx, initialty] <- fmap (map read . words) getLine
    mapM_ (\ x -> getLine >> putStrLn x) (path initialtx initialty lightx lighty)

path x y lx ly =
    zipWith (++) (direction "S" "N" (y - ly)) (direction "E" "W" (x - lx))
    where
        totalMoves = max (abs (x - lx)) (abs (y - ly))
        direction n p os
            | os == 0 = replicate totalMoves ""
            | os < 0 = replicate (abs os) n ++ replicate (totalMoves - abs os) ""
            | os > 0 = replicate (abs os) p ++ replicate (totalMoves - abs os) ""