チャレンジ

この課題の目標は、標準のUK QWERTYキーボードの1行のみを使用して、指定された文字列を入力できるかどうかを判断することです。

これはcode golfですので、バイト単位の最短ソリューションが勝ちです！

入力は、32から126までのASCII 10進数範囲内の0個以上の文字の単一の文字列になります。このチャレンジでは、空の文字列は入力する必要がないため、1行で入力できると想定できます。

入力は、文字列、文字のリスト、または言語の同等の形式として取得できます。

出力は、単一の行を使用して入力できる文字列の場合は真の値、入力できない場合は偽の値である必要があります。

標準のキーボードレイアウトが下にあるもののあいまいさを明確にするために、各行で使用可能なキーのリストを示します。これには、代替の上位キー（Shiftキーを使用してアクセス）が含まれます。

• ライン1
  • 標準： `1234567890-=
• 2行目
  • 標準： qwertyuiop[]
• 3行目
  • 標準： asdfghjkl;'#
  • 大文字： ASDFGHJKL
  • スペシャル：Caps Lock
• 行4
  • 標準： \zxcvbnm,./
  • 代わりの： |<>?
  • 大文字： ZXCVBNM
  • 特別：シフト
• 5行目
  • スペシャル：スペースバー

代替の上部キーは、Shiftも同じ行にある場合にのみ押すことができ、大文字のキーにはCaps LockまたはShiftを介してのみアクセスできます。実際に使用できるのは、キーボードの1行だけです！

            -> 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)

パイソン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)パターンの中央には、パターンの全体の残りの部分は大文字と小文字を区別せずに一致させます。編集：@KirillLのおかげで1バイトを保存しました。

05AB1E、66 47 バイト

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

入力を文字のリストとして受け取ります。

@Emignaのおかげで-19バイト。qwerty-keyboard定数の組み込み機能があることを完全に忘れていました。：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、76 -plバイト

$_=/^( *|[\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)

オンラインでお試しください！

Retina回答の@Kirill L.によるコメントから-1。
-3 @Ismael Miguelと@Arnauldの協力に感謝します。

Perl 6の、102の101 100バイト

nwellnhofのおかげで-1バイト！

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

オンラインでお試しください！

かなり標準的な実装。おそらくこれには正規表現ベースの短いソリューションがありますが、Perl 6の正規表現を試してみるのに十分な知識がありません。

ジャワ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;}

@TFeldのおかげで-1バイト。

オンラインでお試しください。

説明：

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¤$

オンラインでお試しください！

1行目はキーボード行のリストを生成し、2行目はプログラム入力が単一（またはゼロ）行に含まれているかどうか、および入力できない文字（などQWE!@#）がないかどうかを確認します。

C、150バイト

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

オンラインでお試しください！

賞品は獲得できませんが、これは楽しいアプローチです。キーボードの5行の文字をに、4 8 16 32 64無効な文字をすべてにマップし3ます。文字列の各文字の値をビット単位でORし、結果がを満たしているかどうかを確認しますx&(x-1) == 0。これはx2のべき乗またはゼロ、つまりx最大で1ビットが設定されている場合に真です。

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偽りの0ために、真実のためのコードで終了します。でパイプとして実行し-Rます。
PHP 5.4以降が必要です。古いPHPの場合array(...)、[...]（+ 5バイト）の代わりに使用する
か-nR、PHP <7でこれらの123バイトを使用します。

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

AWK、163の 119 113バイト

これはAWKの回答であり、trueの場合は1文字列、falseの場合は0文字列を返します。（AWKがインタラクティブな使用のためにawk -fファイルとして呼び出すように書かれています。）

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

オンラインでお試しください！

ただし、仕様の一部ではないとして書かれた（簡単な拡張子）TAB文字を処理しません。

バッシュ、119バイト

「読み取り可能な」出力を提供するエコーが含まれます。シェルの適切なラッパー（選択）を配置して印刷/出力を含めると、8バイトを節約できます。チャレンジを読んだところ、ソリューションが適切な出力表示を出力する必要があることが示唆されたため、119バイトのままにしました。

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

オンラインでお試しください！