รับตัวอักษรเอาท์พุท (ไปยังหน้าจอ) รูปแบบแป้นพิมพ์ qwerty ทั้งหมด (มีช่องว่างและขึ้นบรรทัดใหม่) ที่ตามหลังตัวละคร ตัวอย่างทำให้ชัดเจน

อินพุต 1

f

เอาท์พุท 1

g h j k l
z x c v b n m

อินพุต 2

q

เอาท์พุท 2

w e r t y u i o p
a s d f g h j k l
z x c v b n m

อินพุต 3

m

เอาท์พุท 3

(โปรแกรมสิ้นสุดโดยไม่มีเอาต์พุต)

อินพุต 4

l

เอาท์พุท 4

z x c v b n m

รหัสที่สั้นที่สุดชนะ (เป็นไบต์)

PS

ขึ้นบรรทัดใหม่หรือช่องว่างเพิ่มเติมที่ส่วนท้ายของบรรทัดได้รับการยอมรับ

CJam, 42 40 ไบต์

"wertyuiop asdfghjkl zxcvbnm"q/W=S%Sf*N*

ทดสอบที่นี่

คำอธิบาย

"we...nm"
     e# Push the letters in order, without q. We don't need q, because it will never
     e# be part of the output.
q/   e# Split the string around the input. If the input is "q", the entire string
     e# will go into a single chunk.
W=   e# Select the last chunk.
S%   e# Split the string around spaces, discarding empty segments (only relevant for the 
     e# first segment if the input is "p" or "l").
Sf*  e# Join each line by spaces.
N*   e# Join the lines by linefeeds.

Pyth, 33 ไบต์

jjL\ cec."`zÈ´ýß44,ûtKÕÀ@"z\`

โปรดทราบว่าอักขระบางตัวไม่สามารถพิมพ์ได้ ลองใช้ออนไลน์ในPyth คอมไพเลอร์

มันทำงานอย่างไร

jjL\ cec."`z…"z\`

        ."`z…"     Unpack …, with lowest character '`' and highest character `z`.
       c      z    Split at occurrences of the input (z).
      e            Retrieve the last resulting chunk.
     c         \`  Split into rows, at backticks.
 jL\               Separate the characters of each row by spaces.
j                  Separate the rows by linefeeds.

Perl, 56 ไบต์

#!perl -p
'qwertyuiop
asdfghjkl
zxcvbnm'=~/$_
?/;$_=$';s/\B/ /g

นับ shebang เป็น 3 อินพุตจะถูกนำมาจาก stdin หากมีการขึ้นบรรทัดใหม่ชั้นนำไม่ได้เป็นกังวลสำหรับปัจจัยการผลิตpและlจากนั้น/$_\n?/จะถูกแทนที่ด้วยการเปลือย$_เพื่อบันทึก 4

ตัวอย่างการใช้งาน

$ echo g|perl qwerty.pl
h j k l
z x c v b n m

$ echo v|perl qwerty.pl
b n m

GS2 , 38 37 ไบต์

♦wertyuiop asdfghjkl zxcvbnm♣B3$,■♪2◙

ซอร์สโค้ดใช้การเข้ารหัสCP437 ลองออนไลน์!

ทดสอบการทำงาน

$ base64 -d > qwerty.gs2 <<< BHdlcnR5dWlvcCBhc2RmZ2hqa2wgenhjdmJubQVCMyQs/g0yCg==
$ wc -c qwerty.gs2
37 qwerty.gs2
$ echo -n f | gs2 qwerty.gs2
g h j k l
z x c v b n m

มันทำงานอย่างไร

♦                                      Begin string literal.
 wertyuiop asdfghjkl zxcvbnm
                            ♣          End string literal.
                             B         Swap the string with the input.
                              3        Split the string at the input character.
                               $       Select the last chunk.
                                ,      Split the selected chunk at spaces.
                                 ■     Map over the resulting array:
                                  ♪      Push ' '.
                                   2     Join the characters, separating by ' '.
                                    ◙    Push a linefeed.

C #, 112 ไบต์105 110

นับเพิ่มขึ้น 5 ไบต์ แต่ถูกต้องมากขึ้น! ขอบคุณ @ MartinBüttner !!

void c(char i){System.Console.Write(@"q w e r t y u i o p
a s d f g h j k l
z x c v b n m".Split(i)[1].Trim());}

ยกเลิกแข็งแรงเล่นกอล์ฟ

void c(char i)
{
    System.Console.Write(@"q w e r t y u i o p
    a s d f g h j k l
    z x c v b n m".Split(i)[1].Trim());
}

JavaScript (ES6), 60 ไบต์

x=>[...`qwertyuiop
asdfghjkl
zxcvbnm`].join` `.split(x)[1]

ใช้เทคนิคเดียวกับคำตอบอื่น ๆ ยินดีต้อนรับข้อเสนอแนะ!

ทับทิม, 63 57 ไบต์

รับอักขระเป็นอาร์กิวเมนต์บรรทัดคำสั่ง: ruby keyboard.rb e

"qwertyuiop
asdfghjkl
zxcvbnm".scan$*[0]
puts$'.chars*' '

TeaScript , 50 45 44 ไบต์

TeaScript เป็น JavaScript สำหรับเล่นกอล์ฟ

`qwertyuiop
asdfghjkl
zxcvbnm`.s×[1]s(b)j(p)

Ungolfed และคำอธิบาย

`qwertyuiop
asdfghjkl
zxcvbnm`.s(x)[1]s(b)j(p)

      // Implicit: x = input string
`...` // Take the qwerty string,
.s(x) // and split it at the input.
[1]   // Take the second item from this,
s(b)  // split it into chars,
j(p)  // and join the result with spaces.
      // Implicit: output final expression

JavaScript ES6, 73

f=x=>[...(k=`qwertyuiop
asdfghjkl
zxcvbnm`).slice(k.search(x)+1)].join` `

หากมีการขึ้นบรรทัดใหม่ชั้นนำไม่ได้รับอนุญาตเมื่อพารามิเตอร์pหรือlแล้ว83

f=x=>(k=`q w e r t y u i o p
a s d f g h j k l
z x c v b n m`).slice(k.search(x)+2)

Python ขนาด 83 ไบต์

lambda c,s="q w e r t y u i o p\na s d f g h j k l\nz x c v b n m":s[s.index(c)+2:]

ลองออนไลน์

ไม่เกิน 59 ตัว

(58 ตัวอักษรรหัส + 1 ตัวเลือกบรรทัดคำสั่ง)

s/./&qwertyuiop\nasdfghjkl\nzxcvbnm/
s/(.).*\1//
s/\w/& /g

วิ่งตัวอย่าง:

bash-4.3$ echo -n 'f' | sed -r 's/./&qwertyuiop\nasdfghjkl\nzxcvbnm/;s/(.).*\1//;s/\w/& /g'
g h j k l 
z x c v b n m 

ทับทิม, 86 87 83 71 66

puts"qwertyuiop
asdfghjkl
zxcvbnm ".split($*[0])[1].gsub /./,'\& '

พื้นที่เพิ่มเติมหลังจากนั้นmคือการป้องกันไม่ให้โปรแกรมหยุดทำงานหากอินพุตคือ 'm'

ขอบคุณ @manatwork สำหรับเคล็ดลับประมาณ 16 ไบต์

PHP, 88 ไบต์

<?=$m[1&ereg("$argn.(.*)",'q w e r t y u i o p
a s d f g h j k l
z x c v b n m',$m)];

ต้องใช้-Fตัวเลือกบรรทัดคำสั่งซึ่งนับเป็น 3 การตั้งค่า. ini จะถือว่าเป็นค่าเริ่มต้น (คุณอาจปิดใช้งาน. ini ท้องถิ่นของคุณด้วย-n)

ตัวอย่างการใช้งาน

$ echo g|php -F qwerty.php
h j k l
z x c v b n m

$ echo v|php -F qwerty.php
b n m

Prolog (SWI), 153 133 ไบต์

แก้ไข:ตัด 20 ไบต์ด้วยเคล็ดลับจาก @Falize

รหัส

b([A,_|T],[H]):-A=H,writef('%s',[T]);b(T,[H]).
p(X):-name(X,C),b(`q w e r t y u i o p \r\na s d f g h j k l \r\nz x c v b n m`,C),!.

คำอธิบาย

p(X):-name(X,C),                                                               % Get charcode of input
      b(`q w e r t y u i o p \r\na s d f g h j k l \r\nz x c v b n m`,C),!.    % Get keyboard chars as charcodes and call b
b([A,_|T],[H]):-A=H,                                                           % If list head is input element
                writef('%s',[T]);                                              % Interpret list as charcodes and print as string
                b(T,[H]).                                                      % Else remove first element of list and try again

ตัวอย่าง

>p(f).
g h j k l 
z x c v b n m

>p(q).
w e r t y u i o p 
a s d f g h j k l 
z x c v b n m

Befunge ขนาด 122 ไบต์

"m n b v c x z"25*"l k j h g f d s a"v
v1-")"g2-"U"~"q w e r t y u i o p"*25<
>-:#v_$>:#,_@ZVD0FHJ:LNP^\<>,2B48X.T6R
^1$\<

มันได้รับการทดสอบที่นี่: Befunge-93 ล่าม

มันทำงานอย่างไร

• 'q w e r t y u i o p\na s d f g h j k l\nz x c v b n m' ถูกผลักลงบนสแต็ก
• จำนวนของค่าที่จะละทิ้ง (ฮาร์ดโค้ดใน@ZVD0FHJ:LNP^\<>,2B48X.T6R) N ถูกผลัก
• ค่า N แรกจะถูกยกเลิกและค่าที่เหลือจะถูกพิมพ์

บันทึก

ฉันเลือกการเข้ารหัสเพื่อให้สตริงเริ่มต้นด้วย@เพื่อทับซ้อนกับโปรแกรม สายนี้ถูกสร้างขึ้นด้วยรหัสหลามต่อไปนี้:

import string
letters = string.ascii_lowercase
base = 'q w e r t y u i o p a s d f g h j k l z x c v b n m'
print(''.join(chr(base.index(x) + 32 + 9 + 3) for x in letters))

คางทูม - 102 ไบต์

สคริปต์ Golfed:

S A="qwertyuiopasdfghjklzxcvbnm",B=0 R P F I=1:1:$L(A) S Q=$E(A,I) W:B Q," " X:"qpl"[Q "W !" S:Q=P B=1

Ungolfed และแสดงความคิดเห็น:

 S A="qwertyuiopasdfghjklzxcvbnm" ; Need the qwerty order
 S B=0 ; boolean flag for printing, default to false.
 R P   ; read from stdin into P
 F I=1:1:$L(A) D   ; Count I from 1 to length of qwerty variable; do all of the following:
 . S Q=$E(A,I)     ; Extract 1 letter (at position I) from A and save in Q.
 . W:B Q," "       ; If our print flag (B) is true, print the letter in Q & a space.
 . X:"qpl"[Q "W !" ; If Q is q, p or l, write a cr/lf
 . S:Q=P B=1       ; If Q == P (stdin) change our print flag from false to true.

กฎที่ช่วยให้บรรทัดใหม่พิเศษช่วยฉันเกือบ 10 ไบต์ ...

Java - 107 ไบต์

void q(char c){System.out.print("qwertyuiop\nasdfghjkl\nzxcvbnm ".split(""+c)[1].replaceAll("\\w","$0 "));}

Ungolfed ด้วยการอ่านระดับ wrapper จาก System.in

public class Qwerty {

    public static void main(String[] args) {
        new Qwerty().q(new java.util.Scanner(System.in).next().charAt(0));
    }
    void q(char c) {
        System.out.print("qwertyuiop\nasdfghjkl\nzxcvbnm ".split(""+c)[1].replaceAll("\\w","$0 "));
    }
}

หากช่องว่างที่จุดเริ่มต้นของบรรทัดเป็นที่ยอมรับเราสามารถลงไปที่ 99 ไบต์:

void q(char c){System.out.print("qwertyuiop\nasdfghjkl\nzxcvbnm ".split(""+c)[1].replace(""," "));}

Python 2, 58 67 63 ไบต์ ##

lambda x:" ".join("qwertyuiop\nasdfghjkl\nzxcvbnm".split(x)[1])

รับอินพุตเป็นสตริงหรืออักขระถ่าน แยกสตริงที่อินพุตและพิมพ์ทุกอย่างหลังจากแยก

(รหัสครั้งแรกกอล์ฟกรุณาอ่อนโยน: P)

แก้ไข: ไม่เห็นช่องว่างเพิ่มเติมที่ต้องการระหว่างตัวอักษรเพิ่มตอนนี้

แก้ไข 2: แก้ไขเป็นฟังก์ชั่นแลมบ์ดานิรนามและลบ ARG แบบแยกส่วนเพิ่มเติมบันทึก 4 ไบต์

ทับทิม, 59 57 67 ไบต์

เพิ่มช่องว่างระหว่างตัวอักษร

puts"qwertyuiop\nasdfghjkl\nzxcvbnm".split(gets.chop)[-1].chars*' '

JavaScript, 88 ไบต์

function s(d){alert("qw e r t y u i o p\na s d f g h j k l\nz x c v b n m".split(d)[1])}

(ไม่จำเป็นต้องอยู่ในพื้นที่หลังจากถ่านตัวแรกเพราะมันไม่เคยไปถึงเอาต์พุต)

s("some letter")การแจ้งเตือนแป้นพิมพ์เมื่อคุณเรียก สามารถทำด้วยdocument.write()หรือconsole.log()แต่เฮ้มันอีกต่อไป: P

การสาธิต:

function s(d){alert("qw e r t y u i o p\na s d f g h j k l\nz x c v b n m".split(d)[1])}

s(prompt("Enter the key"));

SQL (MS T-SQL), 172 ไบต์

CREATE PROC c @I CHAR(1) AS DECLARE @S CHAR(49) SET @S = 'w e r t y u i o p' + CHAR(13) + 'a s d f g h j k l' + CHAR(13) + 'z x c v b n m' PRINT RIGHT(@S,LEN(@S)-CHARINDEX(@I,@S))

Ungolfed:

CREATE PROC c                           -- Create a procedure named "c"
    @I CHAR(1)                          -- Which is invoked with a single character input (@I)
AS

DECLARE @S CHAR(49) = 'w e r t y u i o p' + CHAR(13) + 'a s d f g h j k l' + CHAR(13) + 'z x c v b n m' -- Initialise the entire output omitting "q " as @S
PRINT RIGHT(@S,LEN(@S)-CHARINDEX(@I,@S))    -- Use the charindex funtion to effectively substring @S

ฉันใหม่ที่นี่เพียงค้นพบเว็บไซต์นี้เท่านั้น ไม่ทราบว่าฉันโพสต์ถูกต้องหรือไม่อนุญาตให้ใช้ T-SQL แต่ฉันรู้ว่าขั้นตอนดังกล่าวใช้งานได้

O 2.2, 48 46 ตัวอักษร

"qwertyuiop
asdfghjkl
zxcvbnm
"i/r;s{n.U=ST?}d

วิ่งตัวอย่าง:

bash-4.3$ ./o keyboard.o <<< 'f'
g h j k l 
z x c v b n m 

O, 61 ตัวอักษร

"qwertyuiop\nasdfghjkl\nzxcvbnm\n"i/r;""/rl{.o"\n"={}{' o}?}d

วิ่งตัวอย่าง:

bash-4.3$ java xyz.jadonfowler.o.O keyboard.o <<< 'f'
g h j k l 
z x c v b n m 

Japtap , 49 42 41 40 38 ไบต์

Japtเป็นรุ่นสั้นJa vaScri พอยต์ ล่าม

`qØÆyuiop\n?dfghjkl\nzxcvbnm`qU g1 ¬qS

?ควรจะ unprintable Unicode ถ่าน U + 0086

มันทำงานอย่างไร

          // Implicit: U = input char
`...`     // Take the compressed string and decompress it.
qU g1     // Split the string at the input and take the second item.
¬qS       // Split into chars, then join with spaces.
          // Implicit: output final expression

ตอนนี้เต้น CJam! :) ยินดีต้อนรับข้อเสนอแนะ!

รุ่นที่ไม่ใช่คู่แข่งขนาด 12 ไบต์

;Dv qU g1 ¬¸

ตั้งแต่วันที่ 11 มกราคมฉันได้เพิ่มคุณสมบัติใหม่ที่ยอดเยี่ยมให้กับ Japt: หากโปรแกรมมีเครื่องหมายจุลภาคนำหน้าตัวแปรABCDEFGHIJLจะถูกนิยามใหม่เป็นค่าต่าง ๆ Dถูกตั้งค่าเป็น"QWERTYUIOP\nASDFGHJKL\nZXCVBNM"ดังนั้น;Dvก็เพียงพอที่จะแทนที่สตริงที่นี่

Gema, 56 ตัวอักษร

?=@subst{\\A\*?=\;\?=\? ;qwertyuiop\nasdfghjkl\nzxcvbnm}

วิ่งตัวอย่าง:

bash-4.3$ echo -n 'f' | gema '?=@subst{\\A\*?=\;\?=\? ;qwertyuiop\nasdfghjkl\nzxcvbnm}'
g h j k l 
z x c v b n m 

รหัสเครื่อง 8086 + DOS, 61 ไบต์

Hexdump (พร้อมมุมมอง ASCII ทางด้านขวา):

B8 1E 01 8B F8 CD 21 B1 1F F2 AE 8B F7 AC 8A D0 ......!.........
B4 02 CD 21 80 E2 20 74 02 CD 21 E2 F0 C3 71 77 ...!.. t..!...qw
65 72 74 79 75 69 6F 70 0D 0A 61 73 64 66 67 68 ertyuiop..asdfgh
6A 6B 6C 0D 0A 7A 78 63 76 62 6E 6D 0D          jkl..zxcvbnm.

รหัสแหล่งประกอบ (สามารถประกอบกับ Tasm):

    .MODEL TINY

    .CODE
    org 100h

    MAIN PROC

    mov ax, offset qwerty ; sets ah=1 (coincidence)
    mov di, ax      ; di points to the string
    int 21h         ; reads a char from keyboard into al

    mov cl, 31      ; cx is the length of the string
    repne scasb     ; look for the char
    mov si, di      ; si now points beyond the found char

myloop:
    lodsb           ; load a char
    mov dl, al
    mov ah, 2
    int 21h         ; output the char

    and dl, 20h     ; if it's a letter, set it to a space
    jz print_done   ; if it's not a letter, don't print a space
    int 21h         ; if it's a letter, print a space
print_done:
    loop myloop     ; repeat until end of string

    ret

qwerty db 'qwertyuiop',13,10,'asdfghjkl',13,10,'zxcvbnm',13

    MAIN ENDP
    END MAIN

สองสิ่งสนุกที่นี่:

1. ชดเชยของสตริงqwerty 0x011eไบต์ด้านบนของมันคือ 1 ซึ่งเป็นหมายเลขฟังก์ชัน DOS สำหรับการป้อนอักขระ วิธีนี้จะช่วยประหยัด 1 ไบต์ในรหัส
2. ตัวอักษรตัวพิมพ์เล็กทั้งหมดมีบิต 5 ชุด เมื่อทำANDกับ0x20พวกเขาทั้งหมดจะกลายเป็นช่องว่างซึ่งจะถูกพิมพ์แล้ว หากอักขระก่อนหน้าเป็นไบต์สิ้นสุดบรรทัดจะกลายเป็น 0 และไม่มีพื้นที่ว่าง สิ่งนี้ใช้เพื่อหลีกเลี่ยงลำดับ0d 20 0a 20ที่ไม่มีความหมายที่ส่วนท้ายของบรรทัด

สิ่งหนึ่งที่เกือบจะสนุก:

ฉันพยายามค้นหาอินพุตถ่านเริ่มต้นจากที่อยู่ 0 (ลดขนาดโปรแกรมลง 2 ไบต์) แทนที่จะเป็นตำแหน่งปกติ (เริ่มต้นของสตริง) เกือบจะใช้งานได้แล้ว อย่างไรก็ตามมันล้มเหลวในการป้อนข้อมูลtเพราะรหัสตัวเองมีไบต์t(เป็นส่วนหนึ่งของการเข้ารหัสของการกระโดดตามเงื่อนไข) ดังนั้นสำหรับtมันจะเอาท์พุทขยะไม่กี่ไบต์:

𝔼𝕊𝕄𝕚𝕟, 32 ตัวอักษร / 79 ไบต์

⟦ɘƄ瀛ذ鸊ް΀ꀆဓƘ᳀ᘁ堍怍訁码聮Ęݠⶰ䀀#]ø⬭Čï⎖1

Try it here (Firefox only).

อย่างน้อยฉันก็ชนะการนับถ่าน ... (นับเป็นเรื่องราวที่ต่างออกไป)

โอ้ใช่เพิ่งรู้ว่าฉันใช้ทางลัดดัชนี ( ⎖1แทน[1]) สักครู่กลับมา โง่ฉัน!

C ++, 129, 112 97 ไบต์

#include<string>
#include<cstdio>
void o(char c){puts(strstr("qwertyuiopasdfghjklzxcvbnm",&c));}

Ungolfed:

#include<string>
#include<cstdio>
void o(char c)
{
    puts(strstr("qwertyuiopasdfghjklzxcvbnm",&c));
}

แบตช์, 206 + 2 = 208 ไบต์

เนื่องจากสิ่งนี้ใช้การขยายที่ล่าช้าคุณจึงต้องเรียกใช้ด้วยCMD /V /C keyboard.cmd <letter>ดังนั้นควรเพิ่ม1 2 สำหรับ/Vสวิตช์

@echo off
set a=q w e r t y u i o p
set b=a s d f g h j k l
set c=z x c v b n m
if not "!a:*%1 =!"=="!a!" echo !a:*%1 =!
if not "!a:*%1=!!b:*%1 =!"=="!a!!b!" echo !b:*%1 =!
if not %1==m echo !c:*%1 =!

Python ขนาด 109 ไบต์

ฉันรู้ว่ามันใหญ่ไปหน่อย แต่ทั้งหมดนี้ฉันรู้ว่าต้องทำอย่างไรในตอนนี้!

def kb(c): 
 s = "q w e r t y u i o p \n a s d f g h j k l \n z x c v b n m"
 a = s.split(c)
 print(a[1])

Bash, 80 ไบต์

x="qwertzuiop\nasdfghjkl\nyxcvbnm"&&echo -e ${x#*$1}|sed 's/./& /g'

ลองด้วยตัวคุณเองแทนที่$ 1ด้วยอักขระที่ต้องการหรือสร้างสคริปต์ #! / bin / bash

นี่คือตัวอย่างจาก cygwin:

$x="qwertzuiop\nasdfghjkl\nyxcvbnm"&&echo -e ${x#*q}|sed 's/./& /g'
w e r t z u i o p
a s d f g h j k l
y x c v b n m

$x="qwertzuiop\nasdfghjkl\nyxcvbnm"&&echo -e ${x#*m}|sed 's/./& /g'

$x="qwertzuiop\nasdfghjkl\nyxcvbnm"&&echo -e ${x#*h}|sed 's/./& /g'
j k l
y x c v b n m

มันไม่สั้น แต่ฉันก็ยังภูมิใจในมัน!