Các thách thức

Mục tiêu của thử thách này là xác định xem một Chuỗi đã cho có thể được nhập bằng cách chỉ sử dụng một dòng của bàn phím QWERTY tiêu chuẩn của Vương quốc Anh hay không.

Đây là code golf, giải pháp ngắn nhất trong byte thắng!

Đầu vào sẽ là một Chuỗi gồm 0 hoặc nhiều ký tự trong phạm vi thập phân ASCII bao gồm 32-126. Bạn có thể giả định cho thử thách này rằng một Chuỗi trống không yêu cầu gõ và do đó có thể được gõ bằng một dòng duy nhất.

Bạn có thể lấy đầu vào dưới dạng Chuỗi, danh sách các ký tự hoặc dạng tương đương cho ngôn ngữ của bạn.

Đầu ra phải là một giá trị trung thực cho bất kỳ Chuỗi nào có thể được nhập bằng một dòng duy nhất hoặc falsey cho một chuỗi không thể.

Để làm rõ bất kỳ sự mơ hồ nào về cách bố trí bàn phím tiêu chuẩn bên dưới là danh sách các phím có sẵn trên mỗi dòng, bao gồm các phím trên thay thế (được truy cập bằng cách sử dụng shift).

• Dòng 1
  • Tiêu chuẩn: `1234567890-=
• Dòng 2
  • Tiêu chuẩn: qwertyuiop[]
• Dòng 3
  • Tiêu chuẩn: asdfghjkl;'#
  • Chữ hoa: ASDFGHJKL
  • Đặc biệt: Mũ khóa
• Dòng 4
  • Tiêu chuẩn: \zxcvbnm,./
  • Luân phiên: |<>?
  • Chữ hoa: ZXCVBNM
  • Đặc biệt: Ca
• Dòng 5
  • Đặc biệt: Space Bar

Các phím trên thay thế chỉ có thể được nhấn nếu Shift cũng nằm trên cùng một dòng và các phím chữ hoa chỉ có thể được truy cập thông qua Caps Lock hoặc Shift. Bạn thực sự chỉ có thể sử dụng một dòng bàn phím!

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

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

Hãy thử trực tuyến!

Python 3 , 111 byte

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

Hãy thử trực tuyến!

_{-4 byte, nhờ nedla2004}

Võng mạc 0.8.2 , 72 71 byte

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

Hãy thử trực tuyến! Giải thích: Mỗi luân phiên khớp với một hàng khác nhau của bàn phím. Ở (?i)giữa mẫu làm cho toàn bộ phần còn lại của mẫu được khớp với trường hợp không nhạy cảm. Chỉnh sửa: Đã lưu 1 byte nhờ @KirillL.

05AB1E , 66 47 byte

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

Lấy đầu vào là một danh sách các ký tự.

-19 byte nhờ @Emigna . Hoàn toàn quên chúng tôi đã có nội dung liên tục bàn phím qwerty. : D

Hãy thử trực tuyến hoặc xác minh tất cả các trường hợp thử nghiệm .

Giải trình:

ž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 byte

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

Hãy thử trực tuyến!

Cách tiếp cận regex rõ ràng.

Ruby -n , 86 81 byte

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

Hãy thử trực tuyến!

JavaScript (Node.js) , 99 98 95 byte

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

Hãy thử trực tuyến!

-1 từ nhận xét của @Kirill L. trong câu trả lời Retina.
-3 cảm ơn @Ismael Miguel và @Arnauld vì nỗ lực kết hợp của họ.

Perl 6 , 102 101 100 byte

-1 byte nhờ nwellnhof!

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

Hãy thử trực tuyến!

Thực hiện khá chuẩn. Có lẽ có một giải pháp dựa trên regex ngắn hơn cho vấn đề này, nhưng tôi không biết regex của Perl 6 đủ tốt để thực hiện một nỗ lực.

Java 10, 209 208 byte

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 byte nhờ @TFeld .

Hãy thử trực tuyến.

Giải trình:

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 byte

Regex của cảng Neil Retex .

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

Thạch , 55 byte

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

Hãy thử trực tuyến!

Dòng đầu tiên đưa ra danh sách các dòng bàn phím và dòng thứ hai kiểm tra xem đầu vào chương trình có được chứa trên một dòng (hoặc không) hay không và không có ký tự nào không thể gõ (như QWE!@#).

C , 150 byte

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

Hãy thử trực tuyến!

Nó sẽ không giành được bất kỳ giải thưởng nào, nhưng đây là một cách tiếp cận thú vị: chúng tôi ánh xạ các ký tự trên năm hàng của bàn phím 4 8 16 32 64và mọi ký tự không hợp lệ 3. Chúng tôi bit bit HOẶC giá trị cho từng ký tự trong chuỗi với nhau và kiểm tra xem kết quả có thỏa mãn hay không x&(x-1) == 0, điều này đúng khi xcó công suất 2 hoặc 0, tức là bất cứ khi nào xcó nhiều nhất một bit được đặt.

LUA , 282 262 259 270 byte

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)

Hãy thử trực tuyến!

PHP, 98 byte

Tôi rất buồn vì không có gì ngắn hơn regex. Nó có thể không phải là giải pháp nhanh nhất.

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

Chạy như ống với -Fhoặc thử trực tuyến .

Giải pháp phi regex ngắn nhất tôi tìm thấy (124 byte; ngắt dòng và tab để đọc thuận tiện):

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

thoát với mã 1cho sự thật, 0cho giả. Chạy như ống với -R.
Yêu cầu PHP 5.4 trở lên; đối với PHP cũ hơn, hãy sử dụng array(...)thay vì [...](+5 byte)
hoặc sử dụng 123 byte này với -nRPHP <7:

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

AWK , 163 119 113 byte

Đây là câu trả lời AWK, trả về chuỗi 1 số đúng, 0 chuỗi sai. (Được viết dưới dạng AWK gọi dưới dạng tệp awk -f để sử dụng tương tác.)

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

Hãy thử trực tuyến!

Tuy nhiên, không xử lý ký tự TAB như được viết (phần mở rộng tầm thường) không phải là một phần của thông số kỹ thuật.

Bash , 119 byte

Bao gồm một tiếng vang để cung cấp đầu ra "có thể đọc được". Nếu bạn đặt một trình bao bọc phù hợp (lựa chọn của bạn) xung quanh nó để bao gồm in / đầu ra, thì bạn có thể lưu 8 byte. Việc đọc thử thách của tôi cho thấy giải pháp sẽ xuất ra một dấu hiệu đầu ra phù hợp để tôi gắn bó với 119 byte.

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

Hãy thử trực tuyến!