USACO 1.1 你的飞碟在这儿Your Ride Is He…

题目描述

众所周知，在每一个彗星后都有一只UFO。这些UFO时常来收集地球上的忠诚支持者。不幸的是，他们的飞碟每次出行都只能带上一组支持者。因此，他们要用一种聪明的方案让这些小组提前知道谁会被彗星带走。他们为每个彗星起了一个名字，通过这些名字来决定这个小组是不是被带走的那个特定的小组（你认为是谁给这些彗星取的名字呢？）。关于如何搭配的细节会在下面告诉你；你的任务是写一个程序，通过小组名和彗星名来决定这个小组是否能被那颗彗星后面的UFO带走。

小组名和彗星名都以下列方式转换成一个数字：最终的数字就是名字中所有字母的积，其中“A”是1，“Z”是26。例如，“USACO”小组就是21*19*1*3*15=17955。如果小组的数字 mod 47等于彗星的数字mod 47,你就得告诉这个小组需要准备好被带走！（记住“a mod b”是a除以b的余数；34 mod 10等于4）

写出一个程序，读入彗星名和小组名并算出用上面的方案能否将两个名字搭配起来，如果能搭配，就输出“GO”，否则输出“STAY”。小组名和彗星名均是没有空格或标点的一串大写字母（不超过6个字母）。

输入输出格式

输入格式：
第1行：一个长度为1到6的大写字母串，表示彗星的名字。

第2行：一个长度为1到6的大写字母串，表示队伍的名字。

输出格式：
输入输出样例

输入样例#1：
[输入1]
COMETQ
HVNGAT
[输入2]
ABSTAR
USACO
输出样例#1：
[输出1]
GO
[输出2]
STAY
说明

题目翻译来自NOCOW。

USACO Training Section 1.1

模拟：
1.2个逐个按位转化。
2.mod 47判断。
时间复杂度:O(length(x)+length(y))

var
  x,y:string[6];
  xx,yy,i:longint;
begin
  readln(x);
  readln(y);
   xx:=1; yy:=1;
   for i:=1 to length(x) do xx:=xx*(ord(x[i])-64);
   for i:=1 to length(y) do yy:=yy*(ord(y[i])-64);
   if xx mod 47=yy mod 47 then writeln('GO')
                          else writeln('STAY');
end.