UVA118 – Mutant Flatworld Explorers

#include<iostream> #include<string> #include<cstring> #include<sstream> #include<cctype> #include<string.h> #include<algorithm> #include<cmath> #include<stack> #include<fstream> #include<cstdlib> #include<vector> #include<map> #include<utility> #include<iomanip> using namespace std; int main() { int x,y,a,b,a1,b1,i; string s; char c; bool d; map<pair<int,int>,int>nt; cin>>x>>y; while(cin>>a>>b>>c>>s) { d=true; for(i=0;i<s.length();i++) { if(s[i]=='L'){ if(c=='N')c='W'; else if(c=='W')c='S'; else if(c=='S')c='E'; else if(c=='E')c='N'; } else if(s[i]=='R'){ if(c=='N')c='E'; else if(c=='E')c='S'; else if(c=='S')c='W'; else if(c=='W')c='N'; } else if(s[i]=='F'){ if(c=='N'){ b1=b+1; if(b1>y){ if(nt[make_pair(a,b)]!=1){ nt[make_pair(a,b)]=1; d=false; break; } } else b++; } else if(c=='E'){ a1=a+1; if(a1>x){ if(nt[make_pair(a,b)]!=1){ nt[make_pair(a,b)]=1; d=false; break; } } else a++; } else if(c=='S'){ b1=b-1; if(b1<0){ if(nt[make_pair(a,b)]!=1){ nt[make_pair(a,b)]=1; d=false; break; } } else b--; } else if(c=='W'){ a1=a-1; if(a1<0){ if(nt[make_pair(a,b)]!=1){ nt[make_pair(a,b)]=1; d=false; break; } } else a--; } } if(d==false)break; } cout<<a<<" "<<b<<" "<<c; if(d==false) cout<<" LOST"; cout<<endl; } return 0; }

const fi='; nmax=5000; type data=longint; var f:text; S:string; maxx,maxy,x,y:data; c:char; dd:array[-nmax..nmax+1,-nmax..nmax+1] of boolean; d:boolean; procedure xuli; var i,j:data; begin d:=true; for i:=1 to length(s) do begin if s[i]='F' then begin case c of 'N': if y+1>maxy then begin if not dd[x,y+1] then begin dd[x,y+1]:=true; d:=false; break; end; end else inc(y); 'E': if x+1>maxx then begin if not dd[x+1,y] then begin dd[x+1,y]:=true; d:=false; break; end; end else inc(x); 'S': if y-1<0 then begin if not dd[x,y-1] then begin dd[x,y-1]:=true; d:=false; break; end; end else dec(y); 'W': if x-1<0 then begin if not dd[x-1,y] then begin dd[x-1,y]:=true; d:=false; break; end; end else dec(x); end; continue; end; case S[i] of 'L': begin case c of 'N': c:='W'; 'W': c:='S'; 'S': c:='E'; 'E': c:='N'; end; end; 'R': begin case c of 'N': c:='E'; 'E': c:='S'; 'S': c:='W'; 'W': c:='N'; end; end; end; end; write(x,' ',y,' ',c); if d=false then writeln(' LOST') else writeln; end; procedure docfile; var i,j:data; begin assign(f,fi); reset(f); readln(f,maxx,maxy); while not eof(f) do begin read(f,x,y); read(f,c); readln(f,c); readln(f,s); xuli; end; close(f); end; begin docfile; readln; end.