Wyzwanie

Celem tego wyzwania jest ustalenie, czy dany ciąg może zostać wpisany przy użyciu tylko jednego wiersza standardowej klawiatury QWERTY w Wielkiej Brytanii.

To code golfwygrywa najkrótsze rozwiązanie w bajtach!

Dane wejściowe będą składać się z jednego ciągu zerowego lub większej liczby znaków w zakresie dziesiętnym ASCII 32-126 włącznie. Dla tego wyzwania możesz założyć, że pusty Ciąg nie wymaga wpisywania i dlatego można go pisać za pomocą pojedynczego wiersza.

Możesz wziąć dane wejściowe jako ciąg znaków, listę znaków lub równoważną formę dla swojego języka.

Dane wyjściowe powinny być prawdziwą wartością dla dowolnego ciągu znaków, który można wpisać za pomocą pojedynczej linii, lub falsey dla tego, który nie może.

Aby wyjaśnić wszelkie niejasności dotyczące standardowego układu klawiatury poniżej, znajduje się lista klawiszy dostępnych w każdej linii, w tym alternatywne górne klawisze (dostępne za pomocą shift).

• Linia 1
  • Standard: `1234567890-=
• Linia 2
  • Standard: qwertyuiop[]
• Linia 3
  • Standard: asdfghjkl;'#
  • Duże litery: ASDFGHJKL
  • Specjalne: Caps Lock
• Linia 4
  • Standard: \zxcvbnm,./
  • Alternatywny: |<>?
  • Duże litery: ZXCVBNM
  • Specjalne: Shift
• Wiersz 5
  • Specjalne: spacja

Alternatywne górne klawisze można nacisnąć tylko wtedy, gdy Shift jest również w tej samej linii, a do wielkich liter można uzyskać tylko za pomocą Caps Lock lub Shift. Naprawdę możesz użyć tylko jednej linii klawiatury!

            -> 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 bajtów

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

Wypróbuj online!

Python 3 , 111 bajtów

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

Wypróbuj online!

_{-4 bajty, dzięki nedla2004}

Retina 0.8.2 , 72 71 bajtów

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

Wypróbuj online! Objaśnienie: Każda alternacja pasuje do innego rzędu klawiatury. (?i)W środku wzór powoduje, że cała reszta wzorca być dopasowane rozróżniana wielkość liter. Edycja: Zapisano 1 bajt dzięki @KirillL.

05AB1E , 66 47 bajtów

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

Pobiera dane wejściowe jako listę znaków.

-19 bajtów dzięki @Emigna . Zupełnie zapomniałem, że mamy wbudowane stałe qwerty-klawiatura. :RE

Wypróbuj online lub sprawdź wszystkie przypadki testowe .

Wyjaśnienie:

ž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 bajtów

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

Wypróbuj online!

Oczywiste podejście wyrażenia regularnego.

Rubin -n , 86 81 bajtów

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

Wypróbuj online!

JavaScript (Node.js) , 99 98 95 bajtów

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

Wypróbuj online!

-1 od komentarza @Kirill L. w odpowiedzi Retina.
-3 dzięki @Ismael Miguel i @Arnauld za ich wspólny wysiłek.

Perl 6 , 102 101 100 bajtów

-1 bajt dzięki nwellnhof!

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

Wypróbuj online!

Całkiem standardowe wdrożenie. Prawdopodobnie istnieje krótsze rozwiązanie oparte na wyrażeniach regularnych, ale nie znam wystarczająco dobrze wyrażeń regularnych w Perlu 6, aby podjąć próbę.

Java 10, 209 208 bajtów

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 bajt dzięki @TFeld .

Wypróbuj online.

Wyjaśnienie:

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 bajtów

Wyrażenie regularne Port of Neil's Retina .

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

Galaretka , 55 bajtów

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

Wypróbuj online!

Pierwszy wiersz zawiera listę wierszy klawiatury, a drugi sprawdza, czy dane wejściowe programu są zawarte w pojedynczych (lub zerowych) wierszach i czy nie ma znaków, których nie można wpisać (jak QWE!@#).

C , 150 bajtów

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

Wypróbuj online!

Nie wygra żadnych nagród, ale jest to zabawne podejście: odwzorowujemy postacie w pięciu rzędach klawiatury 4 8 16 32 64i na każdą nieprawidłową postać 3. Bitowo LUB wartość dla każdego znaku w ciągu razem i sprawdzamy, czy wynik jest satysfakcjonujący x&(x-1) == 0, co jest prawdą, gdy xpotęga wynosi 2 lub zero, tj. Ilekroć xma ustawiony najwyżej jeden bit.

LUA , 282 262 259 270 bajtów

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)

Wypróbuj online!

PHP, 98 bajtów

Trochę mi smutno, że nie ma nic krótszego niż regex. Prawdopodobnie nie jest to najszybsze rozwiązanie.

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

Uruchom jako potok z -Flub spróbuj online .

Najkrótsze rozwiązanie niebędące wyrażeniem regularnym, jakie znalazłem (124 bajty; podział linii i tab dla wygody czytania):

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

wychodzi z kodem 1dla prawdy, 0dla fałszu. Uruchom jako potok za pomocą -R.
Wymaga PHP 5.4 lub nowszego; dla starszych PHP, użyj array(...)zamiast [...](+5 bajtów)
lub użyj tych 123 bajtów -nRw PHP <7:

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

AWK , 163 119 113 bajtów

To jest odpowiedź AWK, zwraca łańcuch liczbowy 1 dla wartości true, 0 dla wartości false. (Zapisane jako wywołanie AWK jako plik awk -f do użytku interaktywnego).

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

Wypróbuj online!

Jednak nie obsługuje znaku TAB w formie napisanej (trywialne rozszerzenie), która nie jest częścią specyfikacji.

Bash , 119 bajtów

Zawiera echo zapewniające „czytelny” wynik. Jeśli umieścisz wokół niego odpowiednie opakowanie powłoki (do wyboru) w celu dołączenia wydruku / wydruku, możesz zaoszczędzić 8 bajtów. Mój odczyt wyzwania sugeruje, że rozwiązanie powinno wypisać odpowiednie wskazanie wyjścia, więc trzymam 119 bajtów.

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

Wypróbuj online!