Code Golf Challenge

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

Боюсь, что со временем ситуация ухудшается и ухудшается.

Sopn каждый keystrpke я сделаю с; быть вправо!

Затем я хотел бы, чтобы программа (или functipn) автоматически сдвигала каждое нажатие клавиши обратно влево.

Я обязательно возьму свой том с собой, чтобы не вызвать недоразумения!

Задача:

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

условия:

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

• Ввод и вывод не чувствительны к регистру, вы можете использовать любой случай (или комбинацию комбинаций падежей) для этой задачи, и вы также можете предположить, что все входные данные будут в одном случае, если это необходимо.

• Если ваш язык по какой-либо причине не позволяет пользователю ввести ключ возврата, вы можете игнорировать одно нажатие клавиши для этого.

• Эта задача только для значений по умолчанию клавиш, например, если 4клавиша нажата, вы можете предположить, что она будет всегда 4и никогда$

• Вы можете предполагать, что когда-либо будут нажаты только зеленые клавиши.

Пример Input-> Output:

S-> a
4-> 3
=-> -
[->p

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

Рубин, 76 71 69 байт

->a{"`1234567890-=qwertyuiop[]\\asdfghjkl;'\nzxcvbnm,./"[/.#{a}/][0]}

Perl 6 , 87 83 69 байт

{[Q"`1234567890-=qwertyuiop[]\asdfghjkl;'
zxcvbnm,./".comb].&{%(.[1..*]Z=>$_)}{$_}}

{~Q"`1234567890-=qwertyuiop[]\asdfghjkl;'
zxcvbnm,./".match(/.)>$_/)}

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

Интересно, есть ли способ закодировать эту жестко запрограммированную строку во что-то более короткое ...

(Украл идею регулярного выражения GB для -14 байт.)

Желе , 34 33 байта

ØD”`1¦ṭØqż“[]\“;'¶“,./“0-=”Fṡ2UZy

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

Как это устроено

ØD”`1¦ṭØqż“[]\“;'¶“,./“0-=”Fṡ2UZy  Main link. Argument: s (string)

ØD                                 Digits; yield "0123456789".
  ”`1|                             Replace '0' with a backtick.
       Øq                          Qwerty; yield
                                   ["qwertyuiop", "asdfghjkl", "zxcvbnm"].
      ṭ                            Tack; add "`123456789" as the last element of
                                   the qwerty array.
          “[]\“;'¶“,./“0-=”        Yield ["[]\\", ";'\n", "0-="].
         ż                         Zip; combine the strings of the array to the
                                   left with the corresponding strings of the array
                                   to the right, yielding an array of string pairs.
                           F       Flatten, yielding a string.
                            ṡ2     Obtain all overlapping pairs of characters.
                              U    Upend; reverse each pair.
                               Z   Zip, yielding a pair of strings.
                                y  Translate the input s according to the generated
                                   replacement table.

Python 3, 85 78 байт:

lambda x,k="`1234567890-=qwertyuiop[]\\asdfghjkl;'\nzxcvbnm<>?":k[k.‌​find(x)-1]

Python , 76 байт

s="1234567890-=qwertyuiop[]\\asdfghjkl;'\nzxcvbnm<>?"
dict(zip(s,'`'+s)).get

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

Создает словарь, который переводит каждую клавишу в одну слева, заархивировав строку символов с ее сдвинутой версией. Нижняя строка - это функция, верхняя - это определение.

Использование translateдля создания сопоставления дало более продолжительное решение. Попробуйте онлайн!

lambda s:s.translate("';"*22+"_0__9`12345678_LM-<>_\\VXSWDFGUHJKNBIO=EARYCQZT\nP][___"*4)

Retina , 53 51 байт

T`1-90\-=QW\ERTYUI\OP[]\\ASDF-HJ-L;'¶ZXCVBNM,./`\`o

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

Простая транслитерация, смещающая каждый символ на 1 позицию назад. Все от 1до /является исходным набором символов, в то время как следующая часть является новым набором, используя oдля обозначения Другой набор.

Hи Lпредставляют собой специальные классы символов для транслитерации в сетчатке (соответственно, сопоставления с шестнадцатеричными цифрами и прописными буквами), но, к счастью, они встречаются на клавиатуре внутри алфавитно-упорядоченных последовательностей ( FGHи JKL), поэтому мы можем избежать их, помещая их в диапазоны и получая таким образом 2 байта.

C ++, 109 байт

void f(char i){std::string k="`1234567890-=qwertyuiop[]\\asdfghjkl;'\nzxcvbnm,./";std::cout<<k[k.find(i)-1];}

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

TI-Basic, 70 байт

Я сомневаюсь, что он может стать короче этого ...

Input Str1
"`1234567890-=QWERTYUIOP[]\ASDFGHJKL;'ZXCVBNM,./
sub(Ans,inString(Ans,Str1)-1,1

PS Эти два байта жетоны Str1, `, \, sub(, и inString(.

V , 57 54 51 байт

3 байта сэкономлено благодаря @ nmjcman101 за использование hxVpвместо того, что было у меня для многострочной клавиатуры

i`¬190-=qwertyuiop[]\asdfghjkl;'zxcvbnm,./<esc>/<C-r>a
hxVp

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

<esc>есть 0x1bи <c-r>есть0x12

Примечание: это не поддерживает клавишу ввода

Содержит непечатные, так что вот hexdump

00000000: 6960 ac31 3930 2d3d 7177 6572 7479 7569  i`.190-=qwertyui
00000010: 6f70 5b5d 5c61 7364 6667 686a 6b6c 3b27  op[]\asdfghjkl;'
00000020: 7a78 6376 626e 6d2c 2e2f 1b2f 1261 0a68  zxcvbnm,././.a.h
00000030: 7856 70                                  xVp

объяснение

Большая часть программы генерирует клавиатуру. iвходит в режим вставки, и каждый следующий за ним символ печатается в буфер. Но здесь есть небольшая причудливость, ¬19вставляющая символы от 1 до 9.

Программа выходит из режима вставки в <esc>. И тогда здесь /<c-r>aон ищет аргумент в буфере. Это поместит курсор поверх найденного символа.

h                  " move the cursor to the left
 x                 " delete this character
  Vp               " select this line and replace it with the deleted character

PowerShell, 82 байта

$k="1234567890-=qwertyuiop[]\asdfghjkl;'
zxcvbnm,./";$k[$k.IndexOf((read-host))-1]

Клавиша Enter поддерживается, но не может быть проверена, Read-Hostпоскольку нажатие клавиши ввода без значения ничего не возвращает в PowerShell.

Japt , 56 42 байт

;D=Dv ·q i"[]\\",A i";'",22 +",./")Dg1nDbU

объяснение

;D=Dv ·q i"[]\\",A i";'",22 +",./")Dg1nDbU

;D=D                                        // Shortcut for QWERTY (with newlines and spaces), assigning to variable D
    v                                       // Setting D to lowercase
      ·q                                    // Joining D into an array with no spaces or newlines
        i"[]\\",A                          // Inserting "[]\" into index 10 (A)
                   i";'",22                 // Inserting ";'" into index 22
                           +",./"           // Appending ",./"
                                  Dg        // Returns the character at index:
                                    1n      //    -1+
                                       DbU  //     Index of U (the input)

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

Java 8, 99 байт

c->{String r="`1234567890-=qwertyuiop[]\\asdfghjkl;'\nzxcvbnm,./";return r.charAt(r.indexOf(c)-1);}

Объяснение:

Попробуй это здесь.

c->{                // Method with character as both parameter and return-type
  String r="`1234567890-=qwertyuiop[]\\asdfghjkl;'\nzxcvbnm,./";
                    //  Literal String of the qwerty keyboard layout of the challenge
  return r.charAt(  //  Return the character at the following index:
    r.indexOf(c)    //   The index of the input character
    -1);            //   -1 to shift it to the left
}                   // End of method

JavaScript (ES6), 74 байта

c=>(s=".,mnbvcxz\n';lkjhgfdsa\\][poiuytrewq=-0987654321`")[s.indexOf(c)+1]

Поскольку /в моей строке нет, indexOfвозвращает -1, что при увеличении приводит .к выводу. 93 байта для обработки строки:

s=>s.replace(/./g,c=>s[s.indexOf(c)+1],s="><mnbvcxz\n';lkjhgfdsa\\][poiuytrewq=-0987654321`")

GNU sed , 72 + 1 (флаг r) = 73 байта

s:$:`1234567890-=qwertyuiop[]\\asdfghjkl;'\nzxcvbnm,./:
s:(.).*(.)\1.*:\2:

Ключ возврата не может быть протестирован, потому что sed по своему дизайну разделяет ввод, используя \nв качестве разделителя, а затем запускает скрипт столько раз, сколько строк.

Тестовый прогон: непрерывная пара ввода-вывода (когда закончите нажмите Ctrl + D или Ctrl + C)

me@LCARS:/PPCG$ sed -rf shift_key.sed
s
a
4
3
=
-
a
\
1
`
\
]

05AB1E , 50 байтов

'`žhÀ"-=qwertyuiop[]\\asdfghjkl;'\nzxcvbnm,./"JDÀ‡

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

Объяснение:

'`                                                  # 1 char string: `
  žh                                                # Push numbers 0123456789
    À                                               # Rotated 1 left (123456890)
     "-=qwertyuiop[]\\asdfghjkl;'\nzxcvbnm,./"      # Push string literal
                                              J     # Join all elements pushed to the stack to one string
                                               D    # Duplicate
                                                À   # Rotate 1 left
                                                 ‡  # Transliterate: a.get(b.indexOf(input))

Pyth - 56 байт

@K"`1234567890-=qwertyuiop[]\\asdfghjkl;'
zxcvbnm,./"txK

Тестовый пакет .