http://ja.doukaku.org/30/ import Data.Maybe (fromJust) import System (getArgs) import Control.Monad (liftM) type Point = ((Int,Int),Char) data Direction = N | S | W | E deriving (Eq, Show) direction d = fromJust $ lookup d [(N,[E,N,W,S]),(…