fork download
copy 
  1. data D=W|S|E|N deriving(Show,Read,Enum)
  2. main=interact$(\(x,y)->tail$map show y++[show(toEnum x::D)]>>=(',':)).(\(a:b:_)->foldl(\(f,j@[g,h])i->case i of 'M'->(f,[g+rem(f-1)2,h+rem(f-2)2]);'L'->(mod(f+1)4,j);'R'->(mod(f-1)4,j))((\(c,d,e)->(fromEnum(e::D),[c::Int,d]))$read('(':a++")"))b).lines
Success #stdin #stdout 0s 6308KB
comments (?)
stdin
copy 
1,2,N
MRMLM
stdout
copy 
2,4,N
https://ideone.com/nXNbDH
language:
Haskell (ghc 8.4.4)
created:
9 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!