Двовимірні мови програмування часто мають дзеркальні команди, як /і \перенаправляти вказівник інструкцій на сітці:

>>>>\
    v
    v
<<<</

У цьому виклику вам надається напрямок, що надходить, і дзеркало, і вам потрібно визначити вихідний напрямок.

Правила

Вхідний напрямок буде задано як один із символів, NESWа дзеркало - як /або \. Ви можете отримати їх у будь-якому порядку. Ви повинні використовувати великі літери.

Ви можете приймати дані в будь-якому зручному форматі, включаючи дво символьну рядок, рядок, використовуючи деякий роздільник між символами, пару символів у списку або навіть пару однорядних рядків. Якщо ви використовуєте рядок з роздільником, то роздільник не може використовувати жоден із символів NWSE\/.

Вихід повинен бути символом з NESWабо односимвольного рядка.

Ви можете написати програму чи функцію та скористатися будь-яким із наших стандартних методів отримання вводу та надання виводу.

Ви можете використовувати будь-яку мову програмування , але зауважте, що ці лазівки за замовчуванням заборонені.

Це код-гольф , тому найкоротший вірний відповідь - вимірюється в байтах - виграє.

Випробування

Існує лише 8 можливих входів, з якими потрібно обробити, тому немає виправдання, щоб не перевірити свій код на всіх:

N /   -->   W
N \   -->   E
E /   -->   S
E \   -->   N
S /   -->   E
S \   -->   W
W /   -->   N
W \   -->   S

Пітон, 40 38 байт

-2 байти завдяки @MitchSchwartz (ord(d)+ord(m))%8->ord(d)+ord(m)&7

lambda d,m:' NESSWNW'[ord(d)+ord(m)&7]

простий пошук відповіді у списку (рядок AKA), індексованому найменшим модом суми розпоряджень, що працює.

Тестові справи є на ideone

Python 2, 40 байт

lambda c,m,k="NWES":k[k.find(c)^(m>k)+1]

Sp3000 зберегла один байт ( .index→ .find).

Пояснення

Ми хочемо відобразити такі напрямки:

       \
  N ⇄⇄⇄⇄⇄⇄⇄ E
  ⇅         ⇅
  ⇅         ⇅
/ ⇅         ⇅ /
  ⇅         ⇅
  ⇅         ⇅
  W ⇄⇄⇄⇄⇄⇄⇄ S
       \

Ми можемо призначити вказівки 2-бітовим кодам і переглядати обидва перекидання як XOR-ове перший і другий біти:

         xor 2
     0 0 ⇄⇄⇄⇄⇄ 1 0
      ⇅         ⇅
      ⇅         ⇅
xor 1 ⇅         ⇅ xor 1
      ⇅         ⇅
      ⇅         ⇅
     0 1 ⇄⇄⇄⇄⇄ 1 1
         xor 2

Відображення між бітовими рядками та напрямками відбувається за допомогою рядка k. Тепер нам просто потрібно відобразити дзеркальні символи '/'та '\\'значення 1та 2. Оскільки '/' < '\\'ми могли б наївно використовувати (m>'/')+1формулу. Але зачекайте! Лексикографічно,

'/' < 'NWES' < '\\'

і ми 'NWES'приємно призначили k! Тож ми можемо використовувати (m>k)+1замість цього.

CJam, 14 байт

(@MartinEnder передав мою відповідь Python )

l1b" NESSWNW"=

Як?

l1b" NESSWNW"= -
l              - read input
 1b            - cast characters as base 1 digits
   " NESSWNW"  - the string " NESSWNW"
             = - modulo index into the string

Тести на aditsu

Javascript (ES6), 50 41 40 37 байт

d=>m=>(S="NWES")[S.search(d)^-~(m>S)]

Збережено ще 3 байти за допомогою порівняння завдяки відповіді Лінн

Використання

let f =
d=>m=>(S="NWES")[S.search(d)^-~(m>S)]

console.log(f("N")("/"));  //   -->   W
console.log(f("N")("\\")); //   -->   E
console.log(f("E")("/"));  //   -->   S
console.log(f("E")("\\")); //   -->   N
console.log(f("S")("/"));  //   -->   E
console.log(f("S")("\\")); //   -->   W
console.log(f("W")("/"));  //   -->   N
console.log(f("W")("\\")); //   -->   S

MATL , 19 17 байт

'NWSE'jy&mjy+Eq-)

Спробуйте в Інтернеті! Або перевірити вісім випадків .

Пояснення

'NWSE'    % Push this string
j         % Take first input, say 'W'. Stack contains: 'NWSE', 'W'
y         % Duplicate from below. Stack: 'NWSE', 'W', 'NWSE'
&m        % Index of membership. Stack: 'NWSE', 2
j         % Take second input, say '/'. Stack: 'NWSE', 2, '/'
y         % Duplicate from below. Stack: 'NWSE', 2, '/', 2
+         % Add (char '/' is converted to code point). Stack: 'NWSE', 2, 49 
Eq        % Multiply by 2, subtract 1. Stack: 'NWSE', 2, 97
-         % Subtract. Stack: 'NWSE', -95
)         % Apply -95 as (modular, 1-based) index into 'NWSE'. Stack: 'N'
          % Implicitly display

Pyth, 17 16 15 байт

Дякуємо @Jakube та @Maltysen за по 1 байт

@J"NWES"xxJQh>E

Програма, яка приймає дані про два рядки з цитатами, розділеними новими рядками, спочатку напрямок, а потім дзеркало та друкує результат.

Це порт відповіді Python @ Lynn .

Спробуйте в Інтернеті

Як це працює

@J"NWES"xxJQh>E  Program. Inputs: Q, E
 J"NWES"         J="NWES". Yield J
         xJQ     J.index(Q)
             >E  E>Q, lexographically (implicit input fill)
            h    +1
        x        Bitwise XOR of the above two
@                Index into J with the above
                 Implicitly print

05AB1E , 14 байт

‘€Ã‘DIkI'/kÌ^è

‘€Ã‘             # from string "NEWS"
             è   # get element at index
    DIk          # index of 1st input in string "NEWS"
            ^    # XOR
       I'/k      # index of 2nd input in string "/"
           Ì     # +2               

Спробуйте в Інтернеті!

Желе , 14 13 12 байт

(порт моєї відповіді Python )
-1 байт завдяки @MartinEnder (додайте пробіл до кінця рядка та видаліть потребу в модулі 8)
-1 байт завдяки @LuisMendo (візьміть аргумент одного рядка, а не два)

OSị“NESSWNW 

Як?

OSị“NESSWNW  - takes a single argument "dm" (direction and mirror), in either order.
                   strings and lists are equivalent in Jelly
 O            - ordinal: [ord(d),ord(m)]
  S           - sum: ord(d)+ord(m)
    “NESSWNW  - string: "NESSWNW "
   ị          - fetch modulo index (the string is 8 long and 1-based)

Перевірте його на TryItOnline

Java 7, 71 70 68 байт

char c(int d,int m){return"NEWS".charAt("NEWS".indexOf(d)^-~(m%2));}

Шкода charAtі indexOfзаймає стільки байтів ..

Недоліковані та всі тестові справи:

Спробуйте тут.

class M{
  static char c(int d, int m) {
    return "NEWS".charAt("NEWS".indexOf(d) ^ -~(m%2));
  }

  public static void main(String[] a){
    System.out.print(c('N', '/') + " ");
    System.out.print(c('N', '\\') + " ");
    System.out.print(c('E', '/') + " ");
    System.out.print(c('E', '\\') + " ");
    System.out.print(c('S', '/') + " ");
    System.out.print(c('S', '\\') + " ");
    System.out.print(c('W', '/') + " ");
    System.out.print(c('W', '\\') + " ");
  }
}

Вихід:

W E S N E W N S

Пітон, 63 61 59 байт

lambda d,m,x='NESW'*2:x[x.find(d)+2*(m=='/\\'[d in'NS'])-1]

Досить просто. Однозначно можна більше пограти в гольф. Вирішує, чи слід додати 1 або -1 до індексу введення в 'NESW'.

Це лямбда-вираз; використовувати його, приставку до f=.

Ідей це!

Java 8, 62 58 56 байт

(d,m)->"SEWN".charAt("NWES".indexOf(d)^m.indexOf(47)+2);

Непрограмна тестова програма

import java.util.function.BiFunction;

public class Mirror {

public static void main(String[] args) {
    BiFunction<String, String, Character> function = (d,m)->"SEWN".charAt("NWES".indexOf(d)^m.indexOf(47)+2);

    System.out.println(function.apply("N", "/")); //W
    System.out.println(function.apply("N", "\\")); //E
    System.out.println(function.apply("W", "/")); //N
    System.out.println(function.apply("W", "\\")); //S
    System.out.println(function.apply("E", "/")); //S
    System.out.println(function.apply("E", "\\")); //N
    System.out.println(function.apply("S", "/")); //E
    System.out.println(function.apply("S", "\\")); //W
}

}

PowerShell v2 +, 34 байти

param($a,$b)"xNESSWNW"[(+$a+$b)%8]

Приймає вхід як два явних chars, виводить a char.

Це працює наступним чином : якщо ми сортуємо висновок, що ми хочемо , S /щоб як - то рівнятися такий же , як N \, W /рівним E \і т.д. Або, принаймні, цифри, які виробляють «досить близько» , але по- як і раніше різні. Якщо ми подивимося на значення ASCII, то отримаємо таблицю, як показано нижче:

In1   In2       Res.    Sum
S 83  / 47  --> E 69 -> 130
N 78  \ 92  --> E 69 -> 170
W 87  / 47  --> N 78 -> 134
E 69  \ 92  --> N 78 -> 161
W 87  \ 92  --> S 83 -> 179
E 69  / 47  --> S 83 -> 116
N 78  / 47  --> W 87 -> 125
S 83  \ 92  --> W 87 -> 175

Запуск швидкого грубого форсара на стовпчик підсумовування (отриманий від підсумовування кодових точок ASCII вхідних даних) показує, що якщо ми візьмемо модуль сум 8, отримаємо наступне 2 2 | 6 1 | 3 4 | 5 7. Ось про що свідчить в рядку "xNESSWNW", так як Eз індексом 2, Nзнаходиться 6і 1, і так далі.

Отже, нам просто потрібно підсумовувати вхідні дані (неявно відкидаючи charїх int32по дорозі), взяти це %8та використати це для індексації в нашому рядку.

Випробування

PS C:\Tools\Scripts\golfing> ('N','/'),('N','\'),('E','/'),('E','\'),('S','/'),('S','\'),('W','/'),('W','\')|%{"$($_[0]) $($_[1]) --> "+(.\mirror-mirror-in-the-code.ps1 ([char]$_[0]) ([char]$_[1]))}
N / --> W
N \ --> E
E / --> S
E \ --> N
S / --> E
S \ --> W
W / --> N
W \ --> S

Пакет, 111 байт

:goto %1
:W/
:E\
@echo N
@exit/b
:S/
:N\
@echo E
@exit/b
:E/
:W\
@echo S
@exit/b
:N/
:S\
@echo W

Приймає, наприклад W/, параметр командного рядка з двома символами. \І /зробити цикл незручно; це займе 124 байти.

Октава, 30 байт

Використовували той самий порядок аргументів, що і Джонатан Аллан.

Приймає введення як двосимвольний рядок 'W\'.

@(x)['NESSWNW'](mod(sum(x),8))

Спробуйте в Інтернеті .

C, 44, 35, 34 байт

f(a,b){return"NWES"[a&a/2&3^b&3];}

Для цього потрібні два символи як дві змінні. Він бере як нижній, так і верхній регістр. Тут використовується безліч маніпуляцій. Фрагмент a&a/2призводить до значення, яке має унікальні значення для двох нижніх бітів, &3обрізає всі більш високі біти. Це використовується як покажчик у рядку "NWES" для \дзеркала. На щастя, нижні два біта символів ASCII \і /є 00 і 11 відповідно, що ідеально підходить для XOR зі згаданим вище індекс , щоб отримати правильний напрямок для /дзеркала.

CJam , 17 байт

r"SWEN"_e!r'/#=er

Введення розділено пробілом.

Спробуйте в Інтернеті! (Як тестовий набір, відокремлений лінійною подачею.)

Це рішення, яке я знайшов перед тим, як опублікувати виклик. Не такий короткий, як циклічна індексація Джонатана, але я вважав, що цей підхід є досить цікавим (і новим).

Пояснення

Метою є використання транслітерації (тобто використання відображення символів на символ) для заміни вхідного символу вихідним символом. Для цього нам потрібно вибрати правильну карту виходячи з того, чи є дзеркало /чи \. Ми будемо зіставляти зі SWENсписку інший, який виберемо умовно. Якщо список вводу є SWEN, дві вихідні карти повинні бути наступними:

in  SWEN
/   ENSW
\   WSNE

Зауважимо, що вони розташовані в упорядкованому та зворотно-відсортованому порядку (саме тому ми вибрали, здавалося б, випадковий SWENпорядок в якості вхідного набору). Ми можемо генерувати їх, сортуючи список вхідних даних і повертаючи результат, якщо вхід є \, але є кращий спосіб:

r       e# Read incoming direction.
"SWEN"  e# Push input list for transliteration.
_e!     e# Duplicate and get all permutations. The way, `e!` is implemented, it
        e# always gives the permutations in sort order, regardless of the order
        e# of the input set. Specifically that means that "ENSW" will be first
        e# and "WSNE" will be last in this list.
r       e# Read the mirror.
'/#     e# Find the index of / in this string. If the mirror is '/', then this
        e# gives 0. Otherwise, this gives -1, indicating that '/' was not found.
=       e# Select the corresponding permutation. Indexing is zero-based and
        e# cyclic so that 0 (input '/') gives the first permutation "ENSW" and
        e# -1 (input '\') gives the last permutation "WSNE".
er      e# Perform the transliteration on the incoming direction.
        e# Printing is implicit.

СЕД 48 (42 + 1 за -р) 43

Збережено 5 подяк Мартіну Ендеру ♦

s,N/|S\\,W,;s,E/|W\\,S,;s,N.|S/,E,;s,..,N,

Вводиться як дворядний рядок.

Математика, 98 байт

If[#2=="/",{"S",,,,,,,,,"W",,,,,"E",,,,"N"},{"N",,,,,,,,,"E",,,,,"W",,,,"S"}][[LetterNumber@#-4]]&

Анонімна функція. Приймає два рядки як вхідні дані та повертає рядок як вихід.

C, 81 байт

f(char*a){return a!="N/"&a!="S\\"?a!="N\\"&a!="S/"?a!="W\\"&a!="E/"?78:83:69:87;}

Використання

main()
{
    printf("N/ \t %c\n",f("N/"));
    printf("N\\\t %c\n",f("N\\"));
    printf("E/ \t %c\n",f("E/"));
    printf("E\\\t %c\n",f("E\\"));
    printf("S/ \t %c\n",f("S/"));
    printf("S\\\t %c\n",f("S\\"));
    printf("W/ \t %c\n",f("W/"));
    printf("W\\\t %c\n",f("W\\"));
}

Вихід:

N/      : W  
N\      : E  
E/      : S  
E\      : N  
S/      : E  
S\      : W  
W/      : N  
W\      : S  

Pyth, 13 байт

@."EW¹0`Y"sCM    

Тестовий набір

Підсумуйте кодові точки, модульний індекс, стислий рядок.

TI-Basic, 40 байт

Жорсткі коди входів. Нудний, але найкоротший шлях.

sub("NEWS",1+int(inString("E/W\N\S/N/S\E\W/",Ans)/4),1