Re: Plz,are there any skills to solve it in TL?
It is easy.
I just two array.
for point(x,y)
change these point:
x+dx,y+dy
x+dx,y-dy
x-dx,y+dy
x-dx,y-dy
Then you will got AC in 0.031s.
##########################################################
dx:array [0..52] of longint=(0,3,4,5,6,7,8,8,9,9,10,12,12,12,12,14,15,15,15,16,16,18,20,20,20,21,21,24,24,24,24,24,27,28,28,30,30,32,33,35,36,36,36,40,40,40,42,44,45,45,48,48,48);
dy:array [0..52] of longint=(0,4,3,12,8,24,6,15,12,40,24,5,9,16,35,48,8,20,36,12,30,24,15,21,48,20,28,7,10,18,32,45,36,21,45,16,40,24,44,12,15,27,48,9,30,42,40,33,24,28,14,20,36);
##########################################################
Edited by author 29.05.2004 08:52