poj 1002
487-3279
Time Limit: 2000MS
Memory Limit: 65536K
Total Submissions: 152444
Accepted: 26004
Description
Businesses like to have memorable telephone numbers. One way to make a telephone number memorable is to have it spell a memorable word or phrase. For example, you can call the University of Waterloo by dialing the memorable TUT-GLOP. Sometimes only part of the number is used to spell a word. When you get back to your hotel tonight you can order a pizza from Gino's by dialing 310-GINO. Another way to make a telephone number memorable is to group the digits in a memorable way. You could order your pizza from Pizza Hut by calling their ``three tens'' number 3-10-10-10.
The standard form of a telephone number is seven decimal digits with a hyphen between the third and fourth digits (e.g. 888-1200). The keypad of a phone supplies the mapping of letters to numbers, as follows:
A, B, and C map to 2
D, E, and F map to 3
G, H, and I map to 4
J, K, and L map to 5
M, N, and O map to 6
P, R, and S map to 7
T, U, and V map to 8
W, X, and Y map to 9
There is no mapping for Q or Z. Hyphens are not dialed, and can be added and removed as necessary. The standard form of TUT-GLOP is 888-4567, the standard form of 310-GINO is 310-4466, and the standard form of 3-10-10-10 is 310-1010.
Two telephone numbers are equivalent if they have the same standard form. (They dial the same number.)
Your company is compiling a directory of telephone numbers from local businesses. As part of the quality control process you want to check that no two (or more) businesses in the directory have the same telephone number.
Input
The input will consist of one case. The first line of the input specifies the number of telephone numbers in the directory (up to 100,000) as a positive integer alone on the line. The remaining lines list the telephone numbers in the directory, with each number alone on a line. Each telephone number consists of a string composed of decimal digits, uppercase letters (excluding Q and Z) and hyphens. Exactly seven of the characters in the string will be digits or letters.
Output
Generate a line of output for each telephone number that appears more than once in any form. The line should give the telephone number in standard form, followed by a space, followed by the number of times the telephone number appears in the directory. Arrange the output lines by telephone number in ascending lexicographical order. If there are no duplicates in the input print the line:
No duplicates.
Sample Input
12 4873279 ITS-EASY 888-4567 3-10-10-10 888-GLOP TUT-GLOP 967-11-11 310-GINO F101010 888-1200 -4-8-7-3-2-7-9- 487-3279
Sample Output
310-1010 2 487-3279 4 888-4567 3
很简单的题啊…….
直接看代码
var
a:array[0..9999999] of longint;
c:array['A'..'Z'] of integer;
ch:char;
s:string;
f:boolean;
b,num,sum,i,j,aa:longint;
function cal(x:integer):longint;
var
i:integer;
begin
cal:=1;
for i:=1 to x do
cal:=cal*10;
exit(cal);
end;
begin
assign(input,'input.in');
assign(output,'output.out');
reset(input);
rewrite(output);
readln(num);
c['A']:=2; c['B']:=2; c['C']:=2;
c['D']:=3; c['E']:=3; c['F']:=3;
c['G']:=4; c['H']:=4; c['I']:=4;
c['J']:=5; c['K']:=5; c['L']:=5;
c['M']:=6; c['N']:=6; c['O']:=6;
c['P']:=7; c['R']:=7; c['S']:=7;
c['T']:=8; c['U']:=8; c['V']:=8;
c['W']:=9; c['X']:=9; c['Y']:=9;(这段..........当时好纠结)
for i:=1 to num do
begin
j:=0;
sum:=0;
while not eoln do
begin
read(ch);
f:=false;
if ch in ['A'..'Z'] then
begin
f:=true;
aa:=c[ch];
inc(j);
end;
if ch in ['0'..'9'] then
begin
f:=true;
aa:=ord(ch)-48;
inc(j);
end;
if f then
sum:=sum+aa*cal(7-j);
end;
readln;
inc(a[sum]);
end;
f:=false;
for i:=0 to 9999999 do
if a[i]>1 then
begin
f:=true;
str(i,s);
while length(s)<7 do
insert('0',s,1);
insert('-',s,4);
writeln(s,' ',a[i]);
end;
if not f then writeln('No duplicates.');
close(input);
close(output);
end.