pascal 24765번 Mia (백준)

var a,b,c,d:word;
begin
repeat
read(a,b,c,d);
if a+b+c+d=0 then break;
if a+b=3 then a:=0
else if a<>b then if a>b then a:=90-a*10-b else a:=90-b*10-a
else a:=7-a;
if c+d=3 then c:=0
else if c<>d then if c>d then c:=90-c*10-d else c:=90-d*10-c
else c:=7-c;

if a=c then writeln('Tie.') 
else begin
 if a<c then a:=1 else a:=2;
 writeln('Player ',a,' wins.');
end;
until 1=0;
end.

 

풀이 : 구현, 많은 조건 분기

 

입력받은 값에 대해서 문제 조건에 맞추어 tier를 부여한 다음,

tier가 같다면 Tie.

다르다면 더욱 tier 숫자가 낮은 쪽이 이겼다고 출력했습니다.

 

1,2    2,1 => 0

6 6 => 1

5 5 => 2

4 4 =>3

3 3 =>4

2 2 =>5

1 1 =>6

 

이 외의 경우는

if a>b => 90-a*10-b

if a<b => 90-b*10-a

 

이런식으로 tier을 부여합니다.

 

ex) 5 6

90 - 6 * 10 - 5 = 25

 

ex) 2 3

90 - 3* 10 - 2 = 58

 

5 6 이 2 3 보다 tier 숫자가 낮다 => 5 6 이 2 3 을 이긴다!!!