ride.pas

Magio牛的usaco源代码

{
ID:maigoak1
PROG:ride
}

program ride;
var
  fin,fout:text;
  s1,s2:string;
function product(s:string):longint;
  var
    i:byte;
  begin
    product:=1;
    for i:=1 to length(s) do
      product:=product*(ord(s[i])-64);
    product:=product mod 47;
  end;
begin
  assign(fin,'ride.in');
  reset(fin);
  readln(fin,s1);
  readln(fin,s2);
  close(fin);
  assign(fout,'ride.out');
  rewrite(fout);
  if product(s1)=product(s2) then writeln(fout,'GO') else writeln(fout,'STAY');
  close(fout);
end.