Змагання

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

Це code golf, тому найкоротше рішення в байтах виграє!

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

Ви можете взяти введення як рядок, список символів або еквівалентну форму для вашої мови.

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

Щоб з’ясувати будь-яку неоднозначність щодо того, що стандартна розкладка клавіатури, наведена нижче, наведено список клавіш, доступних у кожному рядку, включаючи альтернативні верхні клавіші (доступ до яких здійснюється за допомогою shift).

• Рядок 1
  • Стандарт: `1234567890-=
• Рядок 2
  • Стандарт: qwertyuiop[]
• Рядок 3
  • Стандарт: asdfghjkl;'#
  • Верхня літера: ASDFGHJKL
  • Спеціальна: Caps Lock
• Рядок 4
  • Стандарт: \zxcvbnm,./
  • Чергуйте: |<>?
  • Верхня літера: ZXCVBNM
  • Спеціальна: Зміна
• Рядок 5
  • Спеціальна: пробіл

Альтернативні верхні клавіші можна натискати лише в тому випадку, якщо Shift також знаходиться на одній лінії, а великі клавіші доступні лише через Caps Lock або Shift. Ви дійсно можете використовувати лише одну лінію клавіатури!

            -> true     (empty string)
45-2=43     -> true     (line 1)
qwerty      -> true     (line 2)
tryitout    -> true     (line 2)
Qwerty      -> false    (no shift or caps on line 2)
#sad        -> true     (line 3)
AsDf        -> true     (caps lock used)
@sDF        -> false    (no shift for alternate upper)
zxcvbn?     -> true     (line 4)
zxc vbn     -> false    (spacebar on separate line)
123abc      -> false    (multiple lines)
            -> true     (just space bar)
!!!         -> false    (exclamation marks cannot be printed by a single line)

Python 2 , 130 123 121 115 байт

lambda s:any(set(s)<=set(l+l.lower())for l in["`1234567890-=","eqwrtyuiop[]","ASDFGHJKL;'#","ZXCVBNM\,./|<>?"," "])

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

Python 3 , 111 байт

lambda s:any({*s}<={*l+l.lower()}for l in["`1234567890-=","eqwrtyuiop[]","ASDFGHJKL;'#","ZXCVBNM\,./|<>?"," "])

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

_{-4 байти, завдяки nedla2004}

Сітківка 0,8,2 , 72 71 байт

`^([-=\d`]+|[][eio-rtuwy]+|(?i)[adfghjkls;'#]+|[\\bcnmvxz,./|<>?]+| *)$

Спробуйте в Інтернеті! Пояснення: кожне чергування відповідає різному рядку клавіатури. (?i)В середині малюнка викликає все решта малюнка , щоб бути узгоджені регістронезавісімого. Редагувати: Збережено 1 байт завдяки @KirillL.

05AB1E , 66 47 байт

žh…`-=«žS„[]«žTDu…;'#««žUDu"\,./|<>?"««ð)εISåP}O

Приймає введення як список символів.

-19 байт завдяки @Emigna . Повністю забув, у нас були постійні вбудовані qwerty-клавіатури. : D

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

Пояснення:

žh                # Push "0123456789"
  …`-=            # Push "`-="
      «           # Merge them together
žS                # Push "qwertyuiop"
  „[]             # Push "[]"
     «            # Merge them togeter
žT                # Push "asdfghjkl"
  Du              # Duplicate, and toUppercase the copy
    …;'#          # Push ";'#"
        ««        # Merge all three together
žU                # Push "zxcvbnm"
  Du              # Duplicate, and toUppercase the copy
    "\,./|<>?"    # Push "\,./|<>?"
              ««  # Merge all three together
ð                 # Push a space
 )                # Wrap all string in an array
  ε   }           # Map each to:
   I              #  Take the input (list of characters)
    å             #  Check for each if it's in the current string of the map-iteration
     P            #  Take the product (1 if all are truthy, 0 otherwise)
       O          # Take the sum (either 1 or 0, so truthy/falsey), and output implicitly

Perl 5 -pl , 76 байт

$_=/^( *|[\d`=-]+|[][wetyuio-r]+|(?i)[asdfghjkl;'#]+|[\\\/zxcvbnm,.|<>?]+)$/

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

Очевидний підхід підсумків.

Рубі -n , 86 81 байт

p /^( *|[\d`=-]+|[\]\[wetyuio-r]+|(?i)[asdfghjkl;'#]+|[\\\/zxcvbnm,.|<>?]+)$/?1:0

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

JavaScript (Node.js) , 99 98 95 байт

x=>/^([-`=\d]+|[wetyuio-r[\]]+)$/.test(x)|/^([asdfghjkl;'#]+|[zxcvbnm,./<>?\\|]+| *)$/i.test(x)

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

-1 з коментаря @Kirill L. у відповіді Retina.
-3 спасибі @Ismael Miguel та @Arnauld за їх спільні зусилля.

Perl 6 , 102 101 100 байт

-1 байт завдяки nwellnhof!

->\a{max map {a.comb⊆comb $_~.lc:},|<eqwrtyuiop[] ASDFGHJKL;'# ZXCVBNM\,./|<>?>,' ',"`-="~[~] ^10}

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

Досить стандартна реалізація. Напевно, існує коротше рішення, що базується на регулярних виразках, але я не знаю достатньо добре регексу Perl 6, щоб зробити спробу.

Java 10, 209 208 байт

s->{int l=0,t;for(var p:s){t=p.matches("[[0-9]`\\-=]")?1:"qwertyuiop[]".contains(p)?2:p.matches("(?i)[asdfghjkl;'#]")?3:"\\zxcvbnm,./|<>?ZXCVBNM".contains(p)?4:p.equals(" ")?5:9;l=l<1?t:l!=t?9:l;}return l<6;}

-1 байт завдяки @TFeld .

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

Пояснення:

s->{                    // Method with String-array parameter and boolean return-type
  int l=0,              //  Line-integer, starting at 0
      t;                //  Temp integer
  for(var p:s){         //  Loop over the characters
    t=p.matches("[[0-9]`\\-=]")?
                        //   If it's a character from the first line: 
       1                //    Set `t` to 1
      :"qwertyuiop[]".contains(p)?
                        //   Else-if it's a character from the second line:
       2                //    Set `t` to 2
      :p.matches("(?i)[asdfghjkl;'#]")?
                        //   Else-if it's a character from the third line
       3                //    Set `t` to 3
      :"\\zxcvbnm,./|<>?ZXCVBNM".contains(p)?
                        //   Else-if it's a character from the fourth line:
       4                //    Set `t` to 4
      :p.equals(" ")?   //   Else-if it's a space from the fifth line:
       5                //    Set `t` to 5
      :                 //   Else (invalid character):
       9;               //    Set `t` to 9
    l=l<1?              //   If `l` is still 0:
       t                //    Set it to `t`
      :l!=t?            //   Else-if `t` is a different line than `l`:
       9                //    Set `l` to 9 (non-existing line)
      :                 //   Else (`t` is the same line as `l`):
       l;}              //    Leave `l` the same
  return l<6;}          //  Return whether `l` is not 9

Powershell, 87 байт

Регекс сітківки порту Ніла .

"$args"-cmatch"^([-=\d``]+|[][eio-rtuwy]+|(?i)[adfghjkls;'#]+|[\\bcnmvxz,./|<>?]+| *)$"

Желе , 55 байт

ØDW;Øq;Œu$€3,4¦;"“rɠ3“Ż²“¿µ|“aƲƘ0ÞḅzḂ»⁶ṭ
¢f€ẈṠSỊafƑ¢F¤$

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

Перший рядок дає список ліній клавіатури, а другий перевіряє, чи міститься вхід програми в одному (або нульовому) рядку та чи немає символів, які не можна набрати (як QWE!@#).

C , 150 байт

x;f(char*s){for(x=0;*s;x|="@               "[*s++-32]);return!(x&x-1);}

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

Це не виграє жодних призів, але це цікавий підхід: ми відображаємо символи на п’ять рядках клавіатури до 4 8 16 32 64та кожного недійсного символу 3. Ми розбиваємо АБО значення для кожного символу в рядку разом і перевіряємо, чи задовольняє результат x&(x-1) == 0, що відповідає дійсності, коли xпотужність становить 2 або нуль, тобто коли xє не більше одного біта.

LUA , 282 262 259 270 байт

s=io.read()l=0
t=0
for c in s:gmatch"."do
f=c.find
t=f(c,"[0-9%`-=]")or 0|(f(c,"[qwertyuiop%[%]]")or 0)*2|(f(c,"[aAsSdDfFgGhHjJkKlL:'@#~]")or 0)*4|(f(c,"[\\zxcvbnm,./|<>?ZXCVBNM]")or 0)*8|(f(c," ")or 0)*16
t=t==0 and 17or t
l=l<1 and t or l~=t and 17or l
end
print(l<17)

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

PHP, 98 байт

Мені трохи сумно, що немає нічого кращого, ніж регулярний вираз. Це, мабуть, не найшвидше рішення.

<?=preg_match("%^([`\d=-]*|[wetyuio-r[\]]*|(?i)[asdfghjkl;'#]*|[\\\zxcvbnm,./|<>?]*| *)$%",$argn);

Запустіть як трубу -Fабо спробуйте в Інтернеті .

Найкоротше рішення, яке я знайшов, не знайдене регулярного вираження (124 байти; розрив рядків та вкладка для зручності читання):

foreach(["`1234567890-=","qwertyuiop[]","asdfghjkl;'#ASDFGHJKL","zxcvbnm,./\|<>?ZXCVBNM"," "]as$d)
    trim($argn,$d)>""||die(1);

виходи з кодом 1для truthy, 0для фальшивості . Запустити як труба -R.
Потрібна PHP 5.4 або новіша версія; для старих PHP використовуйте array(...)замість [...](+5 байт)
або використовуйте ці 123 байти -nRв PHP <7:

foreach(split(_,"`1234567890-=_qwertyuiop[]_asdfghjkl;'#ASDFGHJKL_zxcvbnm,./\|<>?ZXCVBNM_ ")as$d)
    trim($argn,$d)>""||die(1);

AWK , 163 119 113 байт

Це відповідь AWK, повертає числовий 1 рядок для істинного, 0 рядок для помилкового. (Написано як AWK виклик як awk -f файл для інтерактивного використання.)

{print/^[-`1234567890=]*$/||/^[]qwertyuiop\[]*$/||/^[asdfghjkl;'#ASDFGHJKL]*$/||/^[zxcvbnm,.\/\|<>?ZXCVBNM]*$/||/^ *$/}

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

Однак, не обробляє символ TAB як записаний (тривіальне розширення), як не частину специфікації.

Баш , 119 байт

Включає відлуння, щоб забезпечити "читабельний" вихід. Якщо навколо нього помістити відповідну обгортку оболонки (на ваш вибір), щоб включити друк / вихід, то ви можете зберегти 8 байт. Моє читання виклику говорить про те, що рішення повинно вивести відповідний вихідний показник, тому я дотримуюся 119 байт

[[ "$@" =~ ^[asdfghjklASDFGHJKL\;\'#]*$|^[-\`0-9=]+$|^[]qwertyuiop\[]*$|^[zxcvbnm,./\|\<\>\?ZXCVBNM]*$|^\ *$ ]];echo $?

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