해적들이 숨겨둔 보물을 찾는 것은 정말 쉽습니다. 이것에 필요한 모든 것은지도입니다. 해적은 손으로지도를 그리고 다음과 같은 방식으로 장소를 찾기위한 알고리즘을 설명하는 것으로 널리 알려져 있습니다.

이러한 경로를 통한 여행은 일반적으로 경치를 볼 수있는 좋은 기회입니다 … 그러나 오늘날 아무도 그럴 시간이 없습니다. 그렇기 때문에 보물 구직자들은 주어진지도를 사용하여 보물의 정확한 위치를 결정하는 프로그램을 작성하도록 요청했습니다.

입력

입력은 여러 개의 명령어로 구성되며 <Direction> <Distance>쉼표로 구분됩니다 (각 뒤에 공백이 하나씩).

방향 은 다음 중 하나입니다
N.-북쪽, S-남쪽, E-동쪽, W-서쪽,
NE-북동쪽, NW-북서쪽, SE-남동쪽, SW-남서쪽.

거리는 정수 (1 ~ 1000)입니다.

산출

결과는 지침을 완료 한 후 쉼표와 공백으로 구분 된 소수점 이하 세 자리로 끝나는 좌표입니다. 시작 위치는 0 좌표 (0, 0)를 갖습니다.

첫 번째 좌표는 X입니다 (East는 0보다 큰 좌표를 의미하고 West는 0보다 작음을 의미합니다).
두 번째 좌표는 Y입니다 (North는 0 보다 크며 South는 0보다 작 습니다).

예

1. N 3, E 1, N 1, E 3, S 2, W 1

    3.000, 2.000

2. NW 10

    -7.071, 7.071

삼. NE 42, NW 42, SE 42, SW 42

    0.000, 0.000

^{출처 (우크라이나어). 입력 형식이 다릅니다.}

답변

l=0
gets.scan(/(\w+) (\d+)/){|d,n|l+=n.to_i*?i.to_c**%w[E NE N NW W SW S SE].index(d).quo(2)}
puts'%.3f, %.3f'%l.rect

import Text.Printf
d=sqrt(0.5)
f"N"n(x,y)=(x,y+n)
f"S"n(x,y)=(x,y-n)
f"E"n(x,y)=(x+n,y)
f"W"n(x,y)=(x-n,y)
f[a,b]n(x,y)=(s,t)where(s,_)=f[b](d*n)(x,y);(_,t)=f[a](d*n)(x,y)
p[]=(0,0)
p(a:b:c)=f a(read b::Float)$p c
s(a,b)=printf"%.3f, %.3f"a b
main=getLine>>=putStrLn.s.p.words.filter(/=',')

#define B ;break;
#include<math.h>
#include<stdio.h>
float x,y,w,z,j;int
main(void){int
k;char
c[3];while(scanf("%s%d,",c,&k)==2){j=k;w=1;switch(c[1]){case'E':w=3;default:w-=2;j=sqrt(k*k/2)B
case
0:w=z=0;}switch(*c){case'N':z=1
B
case'S':z=-1
B
case'E':w=1
B
default:w=-1;}x+=w*j;y+=z*j;}printf("%5.3f, %5.3f\n",x,y);}

p=0j
for s in raw_input().split(','):c,d=s.split();v=sum(dict(N=1j,E=1,S=-1j,W=-1)[x]for x in c);p+=v*int(d)/abs(v)
print'%.3f, %.3f'%(p.real,p.imag)

prompt(X=Y=0).replace(/(N|S)?(.)? (\d+)/g,
        function(m,y,x,n){
            n/=x&&y?Math.SQRT2:1
            Y+=y?y<'S'?n:-n:0
            X+=x?x<'W'?n:-n:0
        })
alert(X.toFixed(3)+', '+Y.toFixed(3))

import Text.Printf
import Complex
i=0:+(1::Float)
e 'S'= -i
e d=i^mod(fromEnum d-1)4
g p(d:s:t)=g(p+(signum.sum.map e)d*(fst(reads s!!0):+0))t
g(x:+y)[]=printf"%.3f, %.3f"x y
main=interact$g 0.words

var (x,y,s)=(.0,.0,.7071);args.mkString(" ").split(",").foreach{m=>val a=m.trim.split(" ");var (n,u,v)=(a(1).toInt,.0,.0);a(0) match{case "N"=>v=1;case "S"=>v= -1;case "E"=>u=1;case "W"=>u= -1;case "NW"=>{u= -s;v=s};case "NE"=>{u=s;v=s};case "SW"=>{u= -s;v= -s};case "SE"=>{u=s;v= -s}};x += n*u;y += n*v};printf("%1.3f %1.3f\n",x,y)