수평으로 1 마일 , 현재 위치에서 수직으로 B 마일 떨어진 지점으로 여행한다고 상상해보십시오 . 다른 말로하면, (0, 0)지점 간 여행입니다 (a, b). 여행을 얼마나 끝내야합니까? 이것은 간단한 질문처럼 보이지만 대답은 당신이 누구에게 물어 느냐에 달려 있습니다. 당신이 까마귀있어, 당신이 여행 할 수 있다면 까마귀 파리로 , 거리 단지입니다 여행 유클리드 거리 에 (a, b). 이것은

sqrt(a^2 + b^2)

그러나 당신이 지루한 인간이라면, 먼 거리를 걷고 싶지 않기 때문에 택시를 타야합니다. 대부분의 택시는 일반적으로 도로에 머 무르려고하기 때문에 목적지를 향해 직선으로 운전하지 않습니다. 따라서 이동하게 될 실제 거리는 수직 거리와 수평 거리의 합입니다. 또는 공식은 다음과 같습니다.

abs(a) + abs(b)

이것을 Taxicab Distance 라고합니다 . 이 그림은이 둘의 차이점을 잘 보여줍니다.

여행을 (6, 6), 까마귀는 녹색 선에 비행 할 수 있으며, 이것은 거리 제공 6 * sqrt(2)대략 8.49 또는. 택시는 빨간색, 파란색 또는 노란색 경로를 이용할 수 있지만 모두 12 개가 소요됩니다.

이것은 내가 묻는 실제 질문으로 이어집니다. 까마귀와 택시가 모두 지점 (0, 0)에서 출발하여 지점 으로 이동하는 경우 (a, b), 택시의 경로는 얼마나 더 걸립니까? 더 많은 수학 용어로

2 차원 벡터가 주어지면 벡터의 norm2와 벡터의 norm1 사이의 차이를 결정하십시오.

이 질문에 대답하려면 가능한 가장 짧은 프로그램이나 기능을 작성해야합니다. 'a'와 'b'를 두 개의 개별 입력 또는 두 개의 항목 튜플로 선택할 수 있습니다. 합리적인 형식으로 입력 및 출력 할 수 있습니다. 차이가 정수가 아닌 경우 소수점 이하 두 자리까지 정확해야합니다.

항상 'a'와 'b'는 정수이고 둘 다 0이 아니라고 가정 할 수 있습니다.

평소와 같이 표준 허점이 적용되어 프로그램을 가능한 한 짧게 바이트 단위로 계산하려고 시도합니다.

코드가 어떻게 작동하는지에 대한 설명을 게시하고 바이트를 절약하는 데 사용되는 멋진 트릭을 보여주는 답변을지지합니다.

다음은 코드를 테스트 할 수있는 몇 가지 예입니다.

#input    #output
3, 4      2
-3, 4     2
-3, -4    2
6, 6      3.51
42, 0     0
10, 10    5.86
3, 3      1.76

즐거운 골프 되세요! :)

택시 , 7394 3773 바이트

Go to Post Office:w 1 l 1 r 1 l.Pickup a passenger going to Tom's Trims.Pickup a passenger going to Tom's Trims.Go to Tom's Trims:n.[a]Pickup a passenger going to The Babelfishery.Go to The Babelfishery:s 1 l 1 r.Pickup a passenger going to Cyclone.Go to Cyclone:n 1 l 1 l 2 r.Pickup a passenger going to Addition Alley.Pickup a passenger going to Multiplication Station.1 is waiting at Starchild Numerology.Go to Starchild Numerology:s 2 l 2 r.Pickup a passenger going to Cyclone.Go to Cyclone:w 1 r 4 l.Pickup a passenger going to Addition Alley.Go to Addition Alley:n 2 r 1 r.Pickup a passenger going to The Underground.Go to Cyclone:n 1 l 1 l.Pickup a passenger going to Multiplication Station.Go to The Underground:n 2 r 2 r.Switch to plan "b" if no one is waiting.Pickup a passenger going to Charboil Grill.Go to Charboil Grill:s 2 r 1 l 1 l 2 r.-1 is waiting at Starchild Numerology.Go to Starchild Numerology:e 2 r.Pickup a passenger going to Multiplication Station.Go to The Underground:w 1 r 2 r 1 r 2 l.[b]Go to Multiplication Station:s 1 l 1 r.Go to Tom's Trims:s 1 r 3 r.Switch to plan "c" if no one is waiting.Switch to plan "a".[c]Go to Multiplication Station:s 1 l 3 l.Pickup a passenger going to Cyclone.Pickup a passenger going to Cyclone.Go to Cyclone:s 1 r 2 l 2 r.Pickup a passenger going to Addition Alley.Pickup a passenger going to Cyclone.Pickup a passenger going to Addition Alley.Go to Addition Alley:n 2 r 1 r.Pickup a passenger going to Multiplication Station.-1 is waiting at Starchild Numerology.Go to Starchild Numerology:n 1 l 1 l 1 l 3 l.Pickup a passenger going to Multiplication Station.Go to Multiplication Station:w 1 r 2 r 1 r 4 l.Pickup a passenger going to Rob's Rest.Go to Rob's Rest:s 1 r 2 l 1 l 1 r 1 r.Go to Cyclone:s 1 l 1 l 1 l 1 r.Pickup a passenger going to Cyclone.[d]Pickup a passenger going to Multiplication Station.Pickup a passenger going to Multiplication Station.Go to Multiplication Station:s 1 l 2 r 4 l.Pickup a passenger going to Addition Alley.Go to Cyclone:s 1 r 2 l 2 r.Switch to plan "e" if no one is waiting.Switch to plan "d".[e]Go to Addition Alley:n 2 r 1 r.Pickup a passenger going to Cyclone.99 is waiting at Starchild Numerology.Go to Starchild Numerology:n 1 l 1 l 1 l 3 l.Pickup a passenger going to The Underground.Go to Cyclone:e 1 l 2 r.Pickup a passenger going to Trunkers.Pickup a passenger going to Sunny Skies Park.Go to Sunny Skies Park:n 1 r.Go to Trunkers:s 1 l.[f]Pickup a passenger going to Cyclone.Go to Cyclone:w 2 r.Pickup a passenger going to Divide and Conquer.Pickup a passenger going to Trunkers.Go to Trunkers:s 1 l.Go to Sunny Skies Park:w 1 r.Pickup a passenger going to Cyclone.Go to Cyclone:n 1 l.Pickup a passenger going to Divide and Conquer.Go to Zoom Zoom:n.Go to Divide and Conquer:w 1 l 2 r 1 r.Pickup a passenger going to Addition Alley.Go to Cyclone:e 1 l 1 l 2 l.Pickup a passenger going to Addition Alley.Go to Addition Alley:n 2 r 1 r.Pickup a passenger going to Divide and Conquer.2 is waiting at Starchild Numerology.Go to Starchild Numerology:n 1 l 1 l 3 l 2 r.Pickup a passenger going to Divide and Conquer.Go to Divide and Conquer:w 1 r 2 r 1 r 2 l 3 l.Pickup a passenger going to Sunny Skies Park.Go to Sunny Skies Park:e 1 l 1 l 2 l 1 l.Go to The Underground:s 1 l 1 r 2 l.Switch to plan "g" if no one is waiting.Pickup a passenger going to The Underground.Go to Trunkers:s 2 r 1 l.Switch to plan "f".[g]Go to Rob's Rest:n 3 l 2 l 1 l 2 r 1 r.Pickup a passenger going to What's The Difference.Go to Sunny Skies Park:s 1 l 1 l.Pickup a passenger going to What's The Difference.Go to What's The Difference:n 1 r 1 l.Pickup a passenger going to The Babelfishery.Go to The Babelfishery:e 3 r.Pickup a passenger going to Post Office.Go to Post Office:n 1 l 1 r.

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

훨씬 더 숙련 된 택시 골퍼 인 엔지니어 토스트 (Toast Toast )는 기본적으로 재 작성하여 시간을 내고 (내보다 훨씬 적은 시간) 택시 프로그램을 다운하기로 결정했습니다. 편집 내역에서 이전 답변 본문과 이전 TIO에 대한 링크를 찾을 수 있습니다.

엔지니어 토스트의 언 제곱근 알고리즘 : 온라인으로 사용해보십시오!

설명이없는 언 골프 드 :

[ Crow vs. Taxi ]


[ GET THE NEGATIVE ABSOLUTE VALUES OF BOTH STDINS ]

[Move the stdin values to Tom's Trims b/c:]
[1) Stdin doesn't count as a passenger waiting]
[2) Checking for no one waiting is shorter that keeping tracker of a count for just 2 iterations OR repeating all the code over again]
Go to Post Office:w 1 l 1 r 1 l.
Pickup a passenger going to Tom's Trims.
Pickup a passenger going to Tom's Trims.
Go to Tom's Trims:n.

[a]
[Clone the first waiting value]
[If we've already picked up both, move to the next process]
[Switch to plan "c" if no one is waiting.]
Pickup a passenger going to The Babelfishery.
Go to The Babelfishery:s 1 l 1 r.
Pickup a passenger going to Cyclone.
Go to Cyclone:n 1 l 1 l 2 r.
Pickup a passenger going to Addition Alley.
Pickup a passenger going to Multiplication Station.

[Add one to the value]
1 is waiting at Starchild Numerology.
Go to Starchild Numerology:s 2 l 2 r.
Pickup a passenger going to Cyclone.
Go to Cyclone:w 1 r 4 l.
Pickup a passenger going to Addition Alley.
Go to Addition Alley:n 2 r 1 r.
Pickup a passenger going to The Underground.

[Pick up a clone of that one to feed into Multiplication Station]
Go to Cyclone:n 1 l 1 l.
Pickup a passenger going to Multiplication Station.

[Subtract one and see if that's more than zero]
Go to The Underground:n 2 r 2 r.
Switch to plan "b" if no one is waiting.

[It was more than zero so we make it negative]
[First, though, get rid of the pesky result from The Underground]
Pickup a passenger going to Charboil Grill.
Go to Charboil Grill:s 2 r 1 l 1 l 2 r.
-1 is waiting at Starchild Numerology.
Go to Starchild Numerology:e 2 r.
Pickup a passenger going to Multiplication Station.
Go to The Underground:w 1 r 2 r 1 r 2 l.

[b]
[Make sure it's a negative value and leave it at Multiplication Station]
[Either it was already negative OR we now have -1 as a passenger]
Go to Multiplication Station:s 1 l 1 r.

[Get the next stdin unless we've already gotten them both]
Go to Tom's Trims:s 1 r 3 r.
Switch to plan "c" if no one is waiting.
Switch to plan "a".


[ ADD THE TWO NEGATIVES AND INVERT TO GET THE TAXI DISTANCE]

[c]
[Pickup the two negative absolute values and clone them]
Go to Multiplication Station:s 1 l 3 l.
Pickup a passenger going to Cyclone.
Pickup a passenger going to Cyclone.
Go to Cyclone:s 1 r 2 l 2 r.
Pickup a passenger going to Addition Alley.
Pickup a passenger going to Cyclone.
Pickup a passenger going to Addition Alley.

[Add the two clones values to get the negative Taxi distance]
Go to Addition Alley:n 2 r 1 r.
Pickup a passenger going to Multiplication Station.

[Invert to get the Taxi distance and store it at Rob's Rest]
-1 is waiting at Starchild Numerology.
Go to Starchild Numerology:n 1 l 1 l 1 l 3 l.
Pickup a passenger going to Multiplication Station.
Go to Multiplication Station:w 1 r 2 r 1 r 4 l.
Pickup a passenger going to Rob's Rest.
Go to Rob's Rest:s 1 r 2 l 1 l 1 r 1 r.


[ FIND THE CROW DISTANCE ]
[Uses the Babylonian method: https://en.wikipedia.org/wiki/Methods_of_computing_square_roots#Babylonian_method ]

[Square and Sum the cloned values]
Go to Cyclone:s 1 l 1 l 1 l 1 r.
Pickup a passenger going to Cyclone.
[d]
Pickup a passenger going to Multiplication Station.
Pickup a passenger going to Multiplication Station.
Go to Multiplication Station:s 1 l 2 r 4 l.
Pickup a passenger going to Addition Alley.
Go to Cyclone:s 1 r 2 l 2 r.
Switch to plan "e" if no one is waiting.
Switch to plan "d".
[e]
Go to Addition Alley:n 2 r 1 r.
Pickup a passenger going to Cyclone.

[Pickup our cycle counter]
[It's cheaper to do this than to check each iteration's value as equal to the last]
[Taxi can only handle integers up to 2^31-1 so 99 iterations is sufficient.]
99 is waiting at Starchild Numerology.
Go to Starchild Numerology:n 1 l 1 l 1 l 3 l.
Pickup a passenger going to The Underground.

[Duplicate stdin to be stored as S at Trunkers and as x0 at Sunny Skies Park]
[a & b are always integers so Trunkers won't hurt S and it's close with a short name so it's good for golfing]
Go to Cyclone:e 1 l 2 r.
Pickup a passenger going to Trunkers.
Pickup a passenger going to Sunny Skies Park.
Go to Sunny Skies Park:n 1 r.
Go to Trunkers:s 1 l.

[ This is our starting position for square root:           ]
[  • x at Sunny Skies Park                                 ]
[  • S at Trunkers                                         ]
[  • Taxi at Trunkers                                      ]
[  • The iterator as a passenger going to The Underground  ]

[f]

[Duplicate S so we don't lose it]
Pickup a passenger going to Cyclone.
Go to Cyclone:w 2 r.
Pickup a passenger going to Divide and Conquer.
Pickup a passenger going to Trunkers.
Go to Trunkers:s 1 l.

[Diplicate x for division and addition]
Go to Sunny Skies Park:w 1 r.
Pickup a passenger going to Cyclone.
Go to Cyclone:n 1 l.
Pickup a passenger going to Divide and Conquer.

[Gas will be super important in this loop]
Go to Zoom Zoom:n.

[Perform (x + S/x)/2]
[(/2) turns out to be a few bytes shorter than (*.5), mostly due to place names]
Go to Divide and Conquer:w 1 l 2 r 1 r.
Pickup a passenger going to Addition Alley.
Go to Cyclone:e 1 l 1 l 2 l.
Pickup a passenger going to Addition Alley.
Go to Addition Alley:n 2 r 1 r.
Pickup a passenger going to Divide and Conquer.
2 is waiting at Starchild Numerology.
Go to Starchild Numerology:n 1 l 1 l 3 l 2 r.
Pickup a passenger going to Divide and Conquer.
Go to Divide and Conquer:w 1 r 2 r 1 r 2 l 3 l.
Pickup a passenger going to Sunny Skies Park.
Go to Sunny Skies Park:e 1 l 1 l 2 l 1 l.
[Now we have the next iteration of x]

[Check the iterator]
Go to The Underground:s 1 l 1 r 2 l.
Switch to plan "g" if no one is waiting.
Pickup a passenger going to The Underground.

[Reset the loop]
Go to Trunkers:s 2 r 1 l.
Switch to plan "f".


[ ADD THE NEGATIVE SUM TO THE SQUARE ROOT TO GET THE NEGATIVE DIFFERENCE ]

[g]
Go to Rob's Rest:n 3 l 2 l 1 l 2 r 1 r.
Pickup a passenger going to What's The Difference.
Go to Sunny Skies Park:s 1 l 1 l.
Pickup a passenger going to What's The Difference.
Go to What's The Difference:n 1 r 1 l.
Pickup a passenger going to The Babelfishery.
Go to The Babelfishery:e 3 r.
Pickup a passenger going to Post Office.
Go to Post Office:n 1 l 1 r.

자바 스크립트 (ES6), 36 바이트

@dtkaias 덕분에 -1 바이트

(x,y,s=Math.hypot)=>s(x)+s(y)-s(x,y)

코드 스 니펫 예제 :

f=

(x,y,s=Math.hypot)=>s(x)+s(y)-s(x,y)

for(i=0;i<7;i++)
  a=[3,-3,-3,6,42,10,3][i],
  b=[4,4,-4,6,0,10,3][i],
  console.log(`f(${a},${b}) = ${f(a,b)}`)

줄리아, 20 바이트

x->norm(x,1)-norm(x)

소요 a및 b목록으로.

Julia의 norm두 번째 인수의 기본값은 2입니다. 따라서 이것은와 같습니다 norm(x, 1) - norm(x, 2).

자바 8, 47 바이트

골프 :

(a,b)->(a<0?-a:a)+(b<0?-b:b)-Math.sqrt(a*a+b*b)

이것이 얻는 것만큼이나 기본적입니다. 차이를 찾기 위해 두 개의 계산 된 값을 빼십시오. 이것은 Math.abs()발생마다 1 바이트를 저장하는 대신 삼항 논리를 사용합니다 . 불행하게도, 연산자 우선 순위로 인해 괄호가 필요합니다.

출력은 Java가 double보유 할 수있는 모든 것입니다. 소수점 이하 두 자리까지 정확하며 질문의 정확성 요구 사항을 충족시킵니다.

언 골프 드 :

public class TheCrowVsTheTaxicab {

  public static void main(String[] args) {
    int[][] inputs = new int[][] { { 3, 4 }, { -3, 4 }, { -3, -4 }, { 6, 6, }, { 42, 0 }, { 10, 10 }, { 3, 3 } };
    double[] outputs = new double[] { 2, 2, 2, 3.51, 0, 5.85, 1.76 };

    for (int i = 0; i < inputs.length; ++i) {
      double actual =
        f((a, b) -> (a < 0 ? -a : a) + (b < 0 ? -b : b) - Math.sqrt(a * a + b * b), inputs[i][0], inputs[i][1]);

      System.out.println("Input:    " + inputs[i][0] + ", " + inputs[i][1]);
      System.out.println("Expected: " + outputs[i]);
      System.out.println("Actual:   " + actual);
      System.out.println();
    }
  }

  private static double f(java.util.function.BiFunction<Integer, Integer, Double> f, int a, int b) {
    return f.apply(a, b);
  }
}

산출:

Input:    3, 4
Expected: 2.0
Actual:   2.0

Input:    -3, 4
Expected: 2.0
Actual:   2.0

Input:    -3, -4
Expected: 2.0
Actual:   2.0

Input:    6, 6
Expected: 3.51
Actual:   3.5147186257614305

Input:    42, 0
Expected: 0.0
Actual:   0.0

Input:    10, 10
Expected: 5.85
Actual:   5.857864376269049

Input:    3, 3
Expected: 1.76
Actual:   1.7573593128807152

수학, 32 바이트

N[Tr@Abs[a={##1}]-Sqrt@Tr[a^2]]&

또는

Mathematica, 31 바이트

N[Abs@#+Abs@#2-Sqrt[#^2+#2^2]]&

또는 @ 나무가 아닌 제안

Mathematica, 26 바이트

N[Tr@Abs@{##}-Abs[#+I#2]]&

또는 @alephalpha의 제안

매스 매 티카, 19 바이트

N[#~Norm~1-Norm@#]&

Dyalog APL, 13 바이트

+/∘|-.5*⍨+.×⍨

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

설명 (입력 X) :

+/∘|     - Sum of the element-wise absolute value of X
-        - Minus
.5*⍨+.×⍨ - Euclidean distance = sqrt(X . X)

R , 30 바이트

function(v)norm(v)-norm(v,'f')

얻어 v1 열의 매트릭스. norm디폴트는 L1 표준 (taxicab) 및 fL2 표준 ( 'f'Frobenius / Euclidean의 경우) 으로 행렬의 특정 표준을 계산합니다 .

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

파이썬 2 , 40 38 바이트

vaultah 덕분에 -2 바이트

재미있는 사실,이 코드의 11 바이트는 질문에서 복사되어 골프를 쳤습니다.

lambda a,b:abs(a)+abs(b)-(a*a+b*b)**.5

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

Japt , 11 9 바이트

@ETHproductions 덕분에 -2 바이트

Nxa -MhUV

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

설명

Nxa -MhUV   // implicit: U and V are input integers, N = [U,V]

N a         // get absolute value of both inputs
 x          // sum those values
    -MhUV   // subtract hypot(U, V) -> sqrt(U^2 + V^2)

구성표-58 바이트

(define (f a b) (-(+(abs a)(abs b))(sqrt(* a a)(* b b))))

Pyth, 8 바이트

-s.aMQ.a

온라인으로 사용해보십시오. 테스트 스위트.

설명

-s.aMQ.aQ      Q (input) appended implicitly
  .aMQ         absolute values of input vector
 s             sum
-              subtract
      .aQ      norm2 of input vector

APL (Dyalog) , 14 바이트

형식으로 인수를 취합니다 xJy. 예 :3J4

||-2+/∘|9 11○⊢

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

|^Doc  의 규모

| 논증의 규모

- 마이너스

2+/ 쌍별 합계

∘ 의

| 의 크기

9 11.○⊢ 논증의 실수와 허수 부분. ^문서

골프를위한 특별한 속임수는 쌍방향 감소 ( 2+/)를 +/사용하여 좌익이없는 논증을 제공함으로써 괄호를 피하는 것입니다.||-(+/∘|9 11○⊢)

J, 13 바이트

+/@:|-+/&.:*:

이것은 좌표를 배열로 취하는 함수입니다. 예 :

   (+/@:|-+/&.:*:) _3 4
2

설명:

+/             sum
  @:           of
    |          absolutes
     -         minus
      +/       sum
        &.:    under
           *:  square

05AB1E , 7 바이트

ÄO¹nOt-

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

설명

Ä        # absolute value of inputs
 O       # sum
  ¹      # push input again
   n     # square
    O    # sum
     t   # sqrt
      -  # subtract

TI 기본 (TI-84 Plus CE), 10 바이트

sum(abs(Ans))-√(sum(Ans2

프로그램에있는 두 정수리스트로서 입력 Ans으로 예 호 {3,4}:prgmCROW(대체3,4 with input 및 CROW프로그램 이름으로 ).

설명:

sum(abs(Ans))-√(sum(Ans2
        Ans               # The input list of two integers
    abs(   )              # Absolute value of each item in the list
sum(        )             # Sum of the list
                    Ans   # The input list of two integers
                       2  # Square of each item in the list
                sum(      # Sum of the list
              √(          # Square root of the sum
             -            # Difference of the two values

MATL , 8 7 바이트

|sG2&|-

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

설명

|    % Implicit input: vector of two numbers. Absolute value, element-wise
s    % Sum of vector
G    % Push input again
2    % Push 2
&|   % 2-norm of input
-    % Subtract. Implicit display

공통 리스프, 57 바이트

(defun g(a b)(+(abs a)(abs b)(-(sqrt(+(* a a)(* b b))))))

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

GNU APL 1.2, 24 바이트

∇f P
(+/|P)-(+/P*2)*.5
∇

∇f P선언 함수 f벡터 얻어 P인수로 거리를 포함하는 (예 [3, 4])

APL은 벡터에서 작동하므로 연산자 ( 함수)를 벡터의 각 요소에 +/|P적용한 다음 평가합니다.|abs+ 각 요소 하므로 모든 요소를 ​​추가합니다. 이것은 택시 거리를 제공합니다.

P*2P각 요소의 제곱 과 같지만 동일한 벡터를 생성합니다 . +/P*2APL이 오른쪽에서 왼쪽이므로 우선 순위를 괄호로 묶습니다.*.5 제곱근을 얻으려면 ( . 이것은 까마귀 거리를 제공합니다.

우선 순위에 대해 택시 거리에 괄호를 추가하고 차이를 계산하십시오.

∇ 기능을 종료합니다.

J , 9 8 바이트

동료 인 Marshall에게 감사합니다.

+&|-|@j.

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

소요 를 왼쪽 인자와 같은 B 오른쪽 인자로.

+ 합계

& 의

| 크기

- 마이너스

| 규모

@ 의

j. A + B i

골프 트릭 : 대각선이 쉽게 구할 수 있기 때문에 값을 단일 복소수로 결합하고, 합이 구하기 쉬우므로 값을 별도로 유지하십시오.

추가 ++ , 59 57 바이트

D,f,@@,|@|+
D,g,@@,d*@d*+
_
$f>G>G
V
$g>?>?
S
-G
$f>x>0
O

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

이 문제를 해결하는 데 오랜 시간이 걸렸습니다. Add ++에서는 불가능하기 때문에 최종 답변을 반올림하지 않습니다. 이것은 프로그램이 입력 -3과 작동하는 방식 이며 -4( ACC누적 기 값입니다)

D,        Define a function
  f,      called f
  @@,     that takes 2 arguments (e.g. -3, -4)
     |    absolute value;   STACK = [-3, 4]
     @    reverse stack;    STACK = [4, -3]
     |    absolute value;   STACK = [4, 3]
     +    sum;              STACK = [7]
          implicitly return the top of the stack

D,        Define a function
  g,      called g
  @@,     that takes 2 arguments (e.g. -3, -4)
     d    duplicate;  STACK = [-3, -4, -4]
     *    multiply;   STACK = [-3, 16]
     @    reverse;    STACK = [16, -3]
     d    duplicate;  STACK = [16, -3, -3]
     *    multiply;   STACK = [16, 9]
     +    sum;        STACK = [25]
          implicitly return the top of the stack

_         store the inputs in the second stack;  ACC = 0;  STACK = [-3, -4]
$f>G>G    apply f with -3 and -4 as arguments;   ACC = 7;  STACK = []
V         store ACC in the stack;                ACC = 7;  STACK = [7]
$g>?>?    apply g with -3 and -4 as arguments;   ACC = 25; STACK = [7]
S         square root the ACC;                   ACC = 5;  STACK = [7]
-G        subtract the stack value from the ACC; ACC = -2; STACK = []
$f>x>0    apply f with ACC and 0 as arguments;   ACC = 2;  STACK = []
O         output ACC as a number

PHP> = 7.1, 54 바이트

[,$x,$y]=$argv;echo abs($x)+abs($y)-sqrt($x**2+$y**2);

PHP 샌드 박스 온라인

PHP , 55 바이트

<?=abs($x=$argv[1])+abs($y=$argv[2])-sqrt($x**2+$y**2);

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

PHP , 60 바이트

전체 프로그램 대신 함수로

function f($x,$y){return abs($x)+abs($y)-sqrt($x**2+$y**2);}

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

Excel VBA, 34 바이트

범위에서 입력을 가져 와서 [A1:B1]유클리드와 Taxicab 거리의 차이를 VBE 즉시 창으로 출력하는 익명 VBE 즉시 창 기능 .

?[ABS(A1)+ABS(B1)-SQRT(A1^2+B1^2)]

Pari / GP , 26 바이트

x->normlp(x,1)-normlp(x,2)

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

젤리 , 7 바이트

²S½ạAS$

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

형식은 두 숫자의 목록입니다.

,,,, 18 바이트

본질적으로 내 파이썬 답변의 포트.

a:↔a:0•2*⇆2*+√↔+↔-

루비 , 31 바이트

거리를 계산할 복소수를 만듭니다.

->x,y{x.abs+y.abs-(x+y*1i).abs}

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

루비 (2.0.0-2.3.0), 57 바이트

x,y=$*.map(&:to_i);puts x.abs+y.abs-Math.sqrt(x**2+y**2)

이것은 ARGV로부터 입력을받는 것으로 가정합니다.

ruby -e 'x,y=$*.map(&:to_i);puts x.abs+y.abs-Math.sqrt(x**2+y**2)' -- -3 4

Ruby에는 abs 및 sqrt 함수가있는 수학 라이브러리가 있기 때문에 속임수처럼 느껴집니다 (자신의 abs 및 sqrt 함수를 작성한 사람과 달리, 그러한 함수의 사용을 금지하는 것은 보지 못했습니다).

첫 번째 트릭은 바이트를 절약하는 .map대신 .each사용하고 &:symbol표기법을 사용하여 우리가 실행하는 proc을 전달하는 것입니다.to_i 하여 배열의 각 항목에서 하고 여러 할당을 사용하여 x와 y에 값을 할당하는 것입니다.

더 긴 버전은 다음과 같습니다.

(x, y) = ARGV.map{ |string| string.to_i }

(지도가 배열을 반환하기 때문에 여러 할당이 그것을 수행하는 방법 일 수 있습니다. 이는 추가 매개 변수를 버리지 만 어쨌든 두 개의 입력 만 가정합니다)

그런 다음 방금 방정식의 모든 공백을 제거했습니다.

더 긴 버전 인 84 바이트

$*.map!(&:to_i);puts$*.inject(0){|x,y|x+y.abs}-Math.sqrt($*.inject(0){|x,y|x+y**2})

목표는 여기에 예를 작성하지, 나 자신을 반복하지이었다 x또는 abs두 번 내 두 번 제곱x**2 + y**2

그것은 작동하지 않았다.

그러나 흥미로운 것은 풋에 공간이 필요 없다는 것입니다. 렉서가 특별한 문자를 볼 수있을만큼 똑똑하고 특별한 var인지 알 수 있습니다.

inject과 reduce동의어이며, 분사는의 서명이

inject(initial) {| memo, obj | block }

이 경우 초기 값을 0으로 설정해야합니다. 그러면 누산기 (예 : memo = 0)와 각 반복의 객체가 있습니다.

이 방법의 단점은 두 개 이상의 입력이 필요하며 배열의 모든 값을 합산 또는 제곱 한 다음 더하기 sqrt한다는 것입니다.

내가 생각하는 내가 가진 시험에 루비 2.4.0이없는 --though - 72 바이트에서 온이뿐만 아니라 작동합니다 :

$*.map!(&:to_i);puts$*.sub{|x,y|x+y.abs}-Math.sqrt($*.sum{|x,y|x+y**2})

합계는 0으로 기본 설정되어 있으며 주입 / 축소와 동일하게 작동합니다.

Google 스프레드 시트, 31 바이트

범위에서 입력을 가져와 [A1:B1]유클리드 거리와 택시 거리 사이의 차이를 출력하는 워크 시트 기능

=ABS(A1)+ABS(B1)-SQRT(A1^2+B1^2

Excel, 32 바이트

위와 동일하지만 MS Excel 형식

=ABS(A1)+ABS(B1)-SQRT(A1^2+B1^2)

피스 , 7 바이트

a.aQsa0

여기 사용해보십시오

피스 ,  25  23 바이트

이것은 최초의 솔루션이며, 처음에는 그리 중요하지 않은 Pyth 솔루션이며 Pyth에서 골프를 타는 데 얼마나 나쁜지 알 수 있습니다. :)

K.aswJ.asw-+KJ^+^K2^J2 .5

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

핍 , 15 바이트

ABa+ABb-RT$+g*g

명령 줄 인수에서 입력을받습니다. 온라인으로 사용해보십시오!

설명

의사 코드에서 이것은입니다 abs(a) + abs(b) - sqrt(fold+(g*g)). a그리고 b처음 두 cmdline args g이며 cmdline args (즉 argv)의 목록입니다. *운영자는 너무 많은 핍 사업자처럼, 벡터화 $+g*g와 같은 것입니다 a*a + b*b. 나머지는 매우 간단합니다.

불행히도 $+ABgfold를 가진 연산자의 우선 순위가 아직 작동하지 않기 때문에 바이트를 저장할 수 없습니다 . $+바이너리보다 우선 순위가 약간 높아야 -하지만 현재는로 구문 분석되어 $+(ABg-RT$+g*g)잘못된 답변을 제공합니다. 그렇게하면 ($+ABg)-RT$+g*g위조되지 않은 버전 위에 바이트가 저장되지 않습니다.