Задний план

Бесчисленные поколения детей задавались вопросом, где бы они оказались, если бы вырыли яму прямо вниз. Оказывается, это, что неудивительно, было бы довольно опасно , но в любом случае ...

Антиподы - это точки, которые прямо противоположны друг другу на поверхности Земли. Это означает, что если бы была проведена линия между двумя точками, она прошла бы через центр Земли.

Вызов

Напишите программу или функцию, которая, учитывая точку, находит свой антипод.

В этом испытании точки представлены с использованием системы долгота-широта и градусов, минут дуги и секунд дуги. Чтобы найти антипод, поменяйте местами направления каждой ординаты ( N <-> Sи W <-> E) и вычтите долготу из 180градусов.

Пример:
взять точку N 50 26 23 W 4 18 29. Поменяйте местами, чтобы дать S 50 26 23 E 4 18 29. Вычтите координату долготы, 180 0 0чтобы дать 175 41 31, оставляя координаты антипода как S 50 26 23 E 175 41 31.

правила

вход

Набор координат широты и долготы в любом приемлемом формате , где каждая ордината содержит направление, количество градусов, количество минут дуги и количество секунд дуги.

Выход

Широта-долгота координат антипода в любом приемлемом формате , где каждая ордината содержит направление, количество градусов, количество минут дуги и количество секунд дуги.

Разумно предположить, что каждая часть координаты может быть однозначно различена.

Спекуляции

• Направление для ординаты широты - Nили S, а для ординаты долготы - Wили E.
• Все значения координат являются целыми числами. Значение градуса будет между 0и 90для широты, а также между 0и 180для долготы. Значения минуты дуги и секунды дуги для обеих ординат будут между 0и 59.
• Если все значения для ординаты равны 0, любое направление приемлемо.
• Нет необходимости дополнять нулями любые значения.
• Ни одна ордината широты никогда не будет больше 90градусов, и никакая ордината долготы никогда не будет больше 180градусов.
• Применяются стандартные лазейки .

Контрольные примеры

N 50 26 23 W 4 18 29 -> S 50 26 23 E 175 41 31

S 43 9 9 E 0 0 5     -> N 43 9 9 W 179 59 55

N 0 0 0 E 0 0 0      -> S/N 0 0 0 W/E 180 0 0 (either direction fine in each case)

S 1 2 3 W 4 5 6      -> N 1 2 3 E 175 54 54

S 9 21 43 W 150 7 59 -> N 9 21 43 E 29 52 1

S 27 40 2 W 23 0 0   -> N 27 40 2 E 157 0 0

N 0 58 37 W 37 0 0   -> S 0 58 37 E 143 0 0

Полезные ссылки

• Широта и долгота
• острова антиподов
• Минуты дуги и секунды дуги

Это код-гольф , поэтому выигрывает самый короткий ответ в байтах!

05AB1E, 37 34 байта

`60©3L<Rm*O3°648*s-®‰`s®‰s‚˜)'€Ã‡

Разъяснения

`                                      # split input to 4 lines with longitude on top
 60©3L<Rm*O                            # convert longitude to seconds
            3°648*                     # longitude 180 0 0 in seconds
                  s-                   # subtract our longitude from this
                    ®‰`                # get seconds part
                       s®‰             # get minute and degrees part
                          s‚˜)         # join to list
                              '€Ã‡    # translate directions

Попробуйте онлайн

Редактировать: 3 байта сохранены благодаря Аднану .

JavaScript (ES6), 88 байт

(a,b,c,d,e,f,g,h)=>[a<'S'?'S':'N',b,c,d,e<'W'?'W':'E',!(g|h)+179-f,g|h&&!h+59-g,h&&60-h]

Принимает 8 параметров и возвращает массив в качестве результата. Ожидается, aчто он будет одним из Nили Sаналогичным образом eбудет одним из Wили E. Расчеты:

• fДолжен быть вычтен из 179, если один gили hненулевой, но 180, если оба gи hравны нулю (потому что нет заимствования), таким образом !(g|h), добавляется к 179.
• gдолжен быть равен нулю, если оба gи hравны нулю, таким образом g|h&&, в противном случае его нужно вычесть из 59, если он hравен нулю, но 60, если он hравен нулю (потому что нет заимствования), таким образом !h, добавляется к 59.
• h должен быть равен нулю, если он уже был равен нулю, в противном случае он просто вычитается из 60.

Другой способ смотреть на это заметить , что вычитание в двоичной системе достигается за счет добавления 1s дополнение плюс дополнительный 1. Перевод этой проблемы, мы принимаем 179-f, 59-gи 59-hи добавить 1 59-h+ 1 60-h, но если это 60 , то он несет Таким образом, желаемый результат равен нулю, если hизначально был равен нулю. Мы добавляем 1 к 59-gесли есть перенос из h, т.е. если hизначально был ноль. Опять же, мы должны разрешить перенос, который на этот раз происходит, если оба gи hравны нулю, и мы добавляем 1 179-fв этом случае.

MATL , 51 байт

'NS'tPXEii'WE'tPXE648e3i60:qXJZA-JYAtn3-?2:&)wJZAwh

Формат ввода:

'N'
[50 26 23]
'W'
[4 18 29]

Выходной формат:

S
50 26 23
E
175  41  31

Попробуйте онлайн!

объяснение

'NS'tPXE     % Take input (string) implicitly. Exchange 'N' and 'S'
i            % Take input (array)
i'WE'tPXE    % Take input (string). Exchange 'W' and 'E'
648e3        % Push 648000
i            % Take input (array)
60:qXJ       % Push [0 1 ... 59]. Copy into clipboard J
ZA           % Convert second input array from base 60 to decimal
-            % Subtract
JYA          % Convert to base 60
tn3-?        % If length exceeds 3
  2:&)       %   Split into first two elements and then the rest
  w          %   Swap
  JZA        %   Convert from base 60 to decimal
  wh         %   Swap, concatenate

Ракетка, 199 байт

(λ(l)(cons(cons(if(eq?(caar l)'n)'s'n)(cdar l))(cons(if(eq?(cadr l)'e)'w'e)(list (- 180(+(caddr l)(sgn(foldl + 0(cdddr l)))))(modulo(- 60(+(fourth l)(sgn(fifth l))))60)(modulo(- 60(fifth l))60)))))

Это ужасно долго. Вероятно, есть некоторые вещи, которые я мог бы сделать, чтобы сократить его дальше, но вздрагивает, я полностью закончил.

Принимает cons пару из двух lists: один для широты и один для долготы. Каждый список имеет направление (в виде строчного символа ракетки) в качестве первого элемента и после него градусы, минуты дуги и секунды дуги. Выходы в том же формате

Racket будет интерпретировать эту пару из двух списков как один список с другим списком в качестве первого элемента. Это прекрасно, так как вы все равно можете получить доступ к широте и долготе, как если бы они были двумя списками в паре.

Использование:

>    (
     (λ(l)(cons(cons(if(eq?(caar l)'n)'s'n)(cdar l))(cons(if(eq?(cadr l)'e)'w'e)(list (- 180(+(caddr l)(sgn(foldl + 0(cdddr l)))))(modulo(- 60(+(fourth l)(sgn(fifth l))))60)(modulo(- 60(fifth l))60)))))
     (cons (list 's 43 9 9) (list 'e 0 0 5)))
'((n 43 9 9) w 179 59 55)

Что может быть интерпретировано будущим кодом как '((n 43 9 9) (w 179 59 55))два списка.

Pyth, 41 45 43 35 байт

K60-"NS"ww-"EW"wA.D-*3^K3iEKK+.DGKH

Использует преобразование base-60 для поворота градусов и минут в секунды.

Формат ввода / вывода:

N
[1,2,3]
E
[4,5,6]

Он печатает строку каждый раз, когда вы вводите строку, поэтому, чтобы иметь красивый формат, вы можете либо использовать CLI и передать ввод, либо, что более удобно, использовать онлайн-реализацию Pyth .

В псевдокоде:

K60                                              K = 60
   -"NS"w                                        "NS".remove(input())
         w                                       print(input())
          -"EW"w                                 "EW".remove(input())
                A.D                              G,H = divmod(
                   -*3^K3                          3*K**3 -
                         iEK                         baseToDec(input(),K)),
                            K                      K)
                             +.DGKH              divmod(G,K)+H

Python 2, 140 122 байта

Обновлено:

def f(c):x=([180,0,0],[179,59,60])[1<sum(c[6:8])];print['NS'['N'in c]]+c[1:4]+['EW'['E'in c]]+map(lambda x,y:x-y,x,c[5:8])

При этом используется немного другой подход: установка значений для вычитания из долготы на основе минут и секунд. Если есть 0 минут и секунд, он вычитает 180 из градусов, а если есть> 0 минут и секунд, он вычитает 179, 59 и 60 из d, m, s соответственно.

Оригинал:

def f(c):v=divmod;m,s=v((180-(c[5]+c[6]/60.+c[7]/3600.))*3600,60);d,m=v(m,60);print['NS'['N'in c]]+c[1:4]+['EW'['E'in c]]+map(round,[d,m,s])

Принимает ввод в виде списка:, f(['N', 0, 0, 0, 'E', 0, 0, 0])преобразует долготу в десятичные градусы, вычитает из 180, затем преобразует обратно в градусы, минуты, секунды и восстанавливает список, переворачивая направления в процессе.

Un-golfed:

def f(c):
    minutes,seconds=divmod((180-(c[5]+c[6]/60.+c[7]/3600.))*3600,60)
    degrees,minutes=divmod(minutes,60)
    print ['NS'['N'in c]]+c[1:4]+['EW'['E'in c]]+map(round,[degrees,minutes,seconds])

Попытайся

JavaScript, 138 137 129 124 112 110

Улучшение 2 байта, вдохновленное кодом @ Neil

f=a=>a.map((v,i,a)=>i%4?i>6?v&&60-v:i>5?(59-v+!a[7])%60:i>4?179-v+!(a[7]|a[6]):v:'NEWS'[3-'NEWS'.indexOf(v)]);

• input = output = массив, содержащий 2x (1 заглавный символ и 3 int)
• протестировано в Firefox

ungolfed

f=a=>a.map((v,i,a)=>
i%4?
    i>6?v&&60-v              // 7: invert seconds - old: (60-v)%60
    :i>5?(59-v+!a[7])%60     // 6: invert minutes, increase if seconds are 0
    :i>4?179-v+!(a[7]|a[6])  // 5: invert degrees, increase if seconds and minutes are 0
    :v                       // 1,2,3: unchanged
:'NEWS'[3-'NEWS'.indexOf(v)] // 0,4: swap directions
);

тесты

<table id=out border=1><tr><th>in</th><th>out<th>expected</th><th>ok?</th></tr></table>
<script>
addR=(r,s)=>{var d=document.createElement('td');d.appendChild(document.createTextNode(s));r.appendChild(d)}
test=(x,e,f)=>{var y,r=document.createElement('tr');addR(r,x);addR(r,y=('function'==typeof f)?f(x):f);addR(r,e);addR(r,e.toString()==y.toString()?'Y':'N');document.getElementById('out').appendChild(r)}

samples=[
'N',50,26,23,'W',4,18,29,   'S',50,26,23,'E',175,41,31,
'S',43,9,9,'E',0,0,5,       'N',43,9,9,'W',179,59,55,
'N',0,0,0,'E',0,0,0,        'S',0,0,0,'W',180,0,0,
'S',1,2,3,'W',4,5,6,        'N',1,2,3,'E',175,54,54,
'S',9,21,43,'W',150,7,59,   'N',9,21,43,'E',29,52,1,
'S',27,40,2,'W',23,0,0,     'N',27,40,2,'E',157,0,0,
'N',0,58,37,'W',37,0,0,     'S',0,58,37,'E',143,0,0,
];
while (samples.length)
{
    x=samples.splice(0,8);
    e=samples.splice(0,8);
    test(x,e,h);
    test(e,x,h);
}
</script>

Python 3, 131 130 байт

def f(w,x,y,z):S=60;d=divmod;a,b,c=y;l,m=d(648e3-c-S*b-S*S*a,S);return w,"N" if x=="S" else "S",d(l,S)+(m,),"E" if z=="W" else "W"

Форматы: углы - это кортежи формы (deg,min,sec), направления - формы N. Выводит четверку из 2 углов, за которыми следует направление.

Безголовая версия:

def f(latitude,NS,longitude,EW):
    degree,minute,second=longitude
    minute,second=divmod(648000-second-60*minute-60*60*degree,60)
    return latitude, "N" if NS=="S" else "S", divmod(minute,60)+(second,), "E" if EW=="W" else "W"

C #, 310 269 ​​байт

float[]t(string[]a,int n)=>a.Skip(n).Take(3).Select(float.Parse).ToArray();string A(string i){var s=i.Split(' ');var w=t(s,5);float a=180-(w[0]+w[1]/60+w[2]/3600),b=a%1*60;return(s[0][0]>82?"N":"S")+$" {string.Join(" ",t(s,1))} {(s[4][0]<70?'W':'E')} {a} {b} "+b%1*60;}

Ввод одной строки. Вы можете попробовать это на .NetFiddle .

Код

float[]t(string[]a,int n)=>a.Skip(n).Take(3).Select(float.Parse).ToArray();
string A(string i) {
    var s=i.Split(' ');var w=t(s,5);float a=180-(w[0]+w[1]/60+w[2]/3600),b=a%1*60;
    return (s[0][0]>82?"N":"S")
        +$" {string.Join(" ",t(s,1))} {(s[4][0]<70?'W':'E')} {a} {b} "+b%1*60;
}

Если я не принимаю в stringкачестве входных данных, но char, float[], char, float[]я могу сделать:

C #, 167 166 165 163 152 148 147 139 байт

(s,n,e,w)=>{float a=180-(w[0]+w[1]/60+w[2]/3600),b=a%1*60;return(s>82?"N":"S")+$" {string.Join(" ",n)} {(e<70?'W':'E')} {a} {b} "+b%1*60;};

Код

(s,n,e,w) => {
    float a=180-(w[0]+w[1]/60+w[2]/3600),b=a%1*60;
    return(s>82?"N":"S")+$" {string.Join(" ",n)} {(e<70?'W':'E')} {a} {b} "+b%1*60;
};

Также я могу удалить 3600и использовать ฐвместо этого для перемещения до 164 символов и 166 байтов. Должен ли я использовать это?

C #, 150 байт

(s,n,m,p,e,w,x,y)=>{var t=new TimeSpan(180,0,0)-new TimeSpan(w,x,y);return(s>82?"N":"S")+$" {n} {m} {p} {(e<70?'W':'E')} {t.TotalHours} {t:%m\\ s}";};

Код

(s,n,m,p,e,w,x,y) => {
    var z=new TimeSpan(180,0,0)-new TimeSpan(w,x,y);
     return(s>82?"N":"S")+$" {n} {m} {p} {(e<70?'W':'E')} {z.TotalHours} {z:%m\\ s}";
};

Более. NET способ! Я делегировать всю логику в .NET , struct TimeSpanи я абы использовать строку логики форматирования. Вход есть char, int, int, int, char, int, int, int. Я делюсь этим, чтобы дать некоторые идеи. Может быть, кто-то улучшится лучше, чем я.

Java, 199 177 или 151 или 134 байта

177 байтов решение, которое печатает результат

void t(int...a){int i=648000-(a[5]*3600+a[6]*60+a[7]);System.out.println(a[0]=='N'?"S":"N"+" "+a[1]+" "+a[2]+" "+a[3]+" "+(a[4]=='E'?"W":"E")+" "+i/3600+" "+i/60%60+" "+i%60);}

151 байтовое решение, которое возвращает результат в виде массива

Object[]y(int...a){int i=648000-(a[5]*3600+a[6]*60+a[7]);return new Object[]{a[0]=='N'?"S":"N",a[1],a[2],a[3],a[4]=='E'?"W":"E",i/3600,i/60%60,i%60};}

134 байта, если мы использовали лямбда-нотацию

a->{int i=648000-a[5]*3600-a[6]*60-a[7];return new Object[]{a[0]=='N'?"S":"N",a[1],a[2],a[3],a[4]=='E'?"W":"E",i/3600,i/60%60,i%60};}

С 188

main(int c,char**v){int n=*v[1]==78?83:78,e=*v[5]==69?87:69,b=648000-(atoi(v[6])*3600+atoi(v[7])*60+atoi(v[8]));printf("%c %s %s %s %c %d %d %d\n",n,v[2],v[3],v[4],e,b/3600,b/60%60,b%60);}

Требуется 8 аргументов программы, в противном случае произойдет сбой. Передавайте аргументы как N 50 26 23 W 4 18 29. Указатели поворота N, S, E, W, должны быть капитализированы.

PostGIS, 123 байта

Tool-For-The-Job разочаровывающе многословен, отчасти из-за многословности SQL, а отчасти из-за необходимости приведения к геометрии и обратно:

CREATE FUNCTION f(p geography)
RETURNS geography
AS 'SELECT ST_Affine(p::geometry,1,0,0,-1,180,0)::geography' LANGUAGE sql;

С другой стороны, эта единственная функция преобразует точки, наборы точек или более сложные формы (такие как вся береговая линия Австралии и Новой Зеландии).

PHP, 148 байт

тот же подход, что и мой ответ JavaScript , посмотрите на разбивку

• +16 функция над головой
• +17 к $знакам
• +12 для парантезов (другой приоритет оператора)
• +4, foreachпотому что PHP array_mapимеет огромные накладные расходы
• +1, (60-$v)%60потому что $v&&60-$vприводит к булеву в PHP
• -8 работая над оригиналом
• -4 с помощью chr, ordи некоторая арифметика на смену направления

function f(&$a){foreach($a as$i=>$v)$a[$i]=$i%4?($i>6?(60-$v)%60:($i>5?(59-$v+!$a[7])%60:($i>4?179-$v+!($a[7]|$a[6]):$v))):chr(($i?156:161)-ord($v));}

• функция работает на оригинал
• формат: массив с 2x (1 заглавная буква, 3 int)

тесты

function out($a){if(!is_array($a))return$a;$r=[];foreach($a as$v)$r[]=out($v);return'['.join(',',$r).']';}
function cmp($a,$b){if(is_numeric($a)&&is_numeric($b))return 1e-2<abs($a-$b);if(is_array($a)&&is_array($b)&&count($a)==count($b)){foreach($a as $v){$w = array_shift($b);if(cmp($v,$w))return true;}return false;}return strcmp($a,$b);}
$samples=[
N,50,26,23,W,4,18,29,   S,50,26,23,E,175,41,31,
S,43,9,9,E,0,0,5,       N,43,9,9,W,179,59,55,
N,0,0,0,E,0,0,0,        S,0,0,0,W,180,0,0,
S,1,2,3,W,4,5,6,        N,1,2,3,E,175,54,54,
S,9,21,43,W,150,7,59,   N,9,21,43,E,29,52,1,
S,27,40,2,W,23,0,0,     N,27,40,2,E,157,0,0,
N,0,58,37,W,37,0,0,     S,0,58,37,E,143,0,0,
];
while ($samples)
{
    $xx=$x=array_splice($samples,0,8);
    $ee=$e=array_splice($samples,0,8);
    func($x); test($xx,$ee,$x);
    func($e); test($ee,$xx,$e);
}

заброшенные идеи

• Подход без петли с флагами переноса: +5
• цикл назад с флагами переноса: +7
• Я мог бы превратить это в программу для PHP <5.4, но не бери в голову: -3

Befunge, 122 114 111 Bytes (110 символов)

~"N"-v
 v"N"_"S"
v>,&.&.&.~"W"-
_"E"v"W"
+:v >,&"´"\-&"Z"*&
v\_\.00..@.-\"<".-1\ <
>1-.:"Z"/"<"\-\"Z"%:#^_\..@

Формат ввода:

N 50 26 23W 4 18 29

Обратите внимание, что направление долготы и секунды дуги должны быть объединены

Вы можете проверить код здесь