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

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

입력

입력은 여러 개의 명령어로 구성되며 <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

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

루비 1.9 175 171 162 153 130 120 117

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

하스켈 (291)

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(/=',')

C99 (319 자)

#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);}

입력 stdin, ideone에서 테스트 실행 :)

파이썬 158 개 154 150 문자

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)

자바 스크립트, 179 164 170 168 158 156 153 자

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))

• 170 : 고정 정확도 문제
• 168 : (E|W)정규식으로 대체(.)
• 158 : 함수의 반복 논리를 변수로 대체 d
• 156 : n새로운 변수 대신 재사용d

• 153 : 개인적으로,이 편집으로 인해 10 배 더 추한 것으로 생각되지만 3 자 더 짧습니다. 그것은 당신이 정규식 함수로 객체를 호출 할 수있는 표준이 아닌 행동을 기반으로 : /./g('string')와 동일합니다 /./g.exec('string'):

  for(p=prompt(X=Y=0),R=/(N|S)?(.)? (\d+)/g;[,y,x,n]=R(p)||0;X+=x?x<'W'?n:-n:0)n/=x&&y?Math.SQRT2:1,Y+=y?y<'S'?n:-n:0;alert(X.toFixed(3)+', '+Y.toFixed(3))

하스켈, 199 자

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

스칼라 ( 367 , 332)

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)

자바 (459) (445) (402) (382) (363) (352)

import java.util.*;class
M{public
static void main(String[]a){double
x=0,y=0;Scanner
s=new
Scanner(System.in);s.useDelimiter("\\W+");while(s.hasNext()){String
d=s.next();double
z=Math.sqrt(d.length());int
w=s.nextInt();y+=(d.contains("N")?w:d.contains("S")?-w:0)/z;x+=(d.contains("E")?w:d.contains("W")?-w:0)/z;}System.out.format("%1.3f %1.3f",x,y);}}

표준 입력

PowerShell, 178

$input-split','|%{,@{N=0,1
NE=($s=.707106781186548),$s
E=1,0
SE=$s,-$s
S=0,-1
SW=-$s,-$s
W=-1,0
NW=-$s,$s}[($a=-split$_)[0]]*$a[1]}|%{$x+=$_[0]
$y+=$_[1]}
'{0:N3}, {1:N3}'-f$x,$y

√2 / 2의 정확도를 줄이면 최대 10자를 잃을 수 있습니다.

C (gcc) , 155152 바이트

ceilingcat 덕분에 -3 바이트

float x,y,l;D;main(d){for(;scanf("%s%f,",&d,&l)>0;y+=d^78?d^83?0:-l:l)D=d,l/=D>99?D/=256,d&=255,sqrt(2):1,x+=D^87?D^69?0:l:-l;printf("%.3f, %.3f",x,y);}

온라인으로 사용해보십시오!

그루비 (215)

x=0.0;y=0.0;args.join(' ').split(', ').each{d=it.split(' ');c=d[0]==~/../?Math.sqrt(2):1;s=d[1] as int;a=['N':1,'S':-1,'E':1,'W':-1];m=d[0]=~/N|S/;y+=m?a[m[0]]*(s/c):0;m=d[0]=~/E|W/;x+=m?s/c*a[m[0]]:0};print "$x,$y"

입력을 프로그램 인수로 읽습니다. 예:

groovy golf.groovy NW 10, SW 10, W 10

펄 5 -n , 122 바이트

s,(N|S)?(E|W)? (\d+),$d=$3/($1&$2?2**.5:1);$x+=$2&&$d*(-1)**($2gt F);$y+=$1&&$d*(-1)**($1gt O),ge;printf"%.3f, %.3f",$x,$y

온라인으로 사용해보십시오!

J , 93 바이트

[:0j3&":@+.@(1#.".@>@{:*(0j1^2%~i.8){~<;._1@' E NE N NW W SW S SE'i.{.)@|:[:(<;._1);._1', ',]

온라인으로 사용해보십시오!