쿼티 키보드의 세 행은 qwertyuiop, asdfghjkl하고 zxcvbnm. 당신의 작업은 주어진 단어 목록에서 키보드의 한 행만 사용하여 입력 할 수있는 가장 긴 단어를 찾는 것입니다.

샘플 입력 1

artist
home
gas
writer
geology
marine
twerp

산출

writer

(주어진 단어 만 gas, writer그리고 twerp단일 행을 사용하여 작성 될 수 있으며, writer가장 긴)

단어는 실제 단어가 아닐 수 있습니다 (따라서 세 번째 행이 유효하지 않다고 가정하지 마십시오). 그러나 항상 정확히 하나의 답이 있다고 가정 할 수 있습니다 (더 이상, 더 이상).

샘플 입력 2

wrhuji
bxnzmmx
gllwssjjd
vnccbb
lrkjhgfdsa
tttttt

산출

bxnzmmx

추가 구두점 및 공백은 언어 요구 사항에 따라 입력으로 제공 될 수 있습니다. 그러나 추가 출력이 주어지지 않아야합니다. 입력과 출력은 소문자입니다. 가장 짧은 코드가 승리합니다.

파이썬 2, 84 바이트

lambda l:max(l,key=lambda w:(-len({"asdfghjklzxcvbnm".find(c)/9for c in w}),len(w)))

max확장 된 키보드 행 수를 줄인 다음 길이가 길어짐에 따라 입력을 찾습니다 . 키보드 로우 값으로 추출 "asdfghjklzxcvbnm".find(c)/9중앙 행 소요되는 0, 하단 행 1하려면, 및 배제되는 상부 행을 -1하기 때문에, find범 -1값 누락.

다른 시도 :

lambda l:max((-len({"asdfghjklzxcvbnm".find(c)/9for c in w}),len(w),w)for w in l)[2]
lambda l:max(l,key=lambda w:len(w)-1./len({"asdfghjklzxcvbnm".find(c)/9for c in w}))
lambda l:max([w for w in l if len({"asdfghjklzxcvbnm".find(c)/9for c in w})<2],key=len)

Japt, 32 30 바이트

;Uf_¬£DbXu)f10Ãä¥ eÃn@Yl -XlÃg

온라인으로 테스트하십시오! 입력은 문자열의 배열입니다.

작동 원리

;Uf_  ¬ £  DbXu)f10Ã ä¥  eà n@  Yl -Xlà g
;UfZ{Zq mX{DbXu)f10} ä== e} nXY{Yl -Xl} g

         // Implicit: U = input array of strings
;        // Reset variables A-L to various values.
         // D is set to the string "QWERTYUIOP\nASDFGHJKL\nZXCVBNM".
UfZ{   } // Take U and filter to only the items Z that return truthily to this function:
Zq       //  Split Z into chars, then
mX{    } //  map each char X by this function:
DbXu)    //   Return D.indexOf(X.toUpperCase()),
f10      //   floored to a multiple of 10.
         //  This maps each char to 0 for the top row, 10 for the middle, 20 for the bottom.
q ä==    //  Split the resulting string into chars and check each pair for equality.
e        //  Check that every item in the result is truthy. This returns true if all chars
         //  are on the same row; false otherwise.
         // Now we have only the words that are entirely on one row.
nXY{   } // Sort by passing each two args X and Y into this function:
Yl -Xl   //  Return Y.length - X.length. Sorts the longest to the front.
g        // Get the first item in the resulting array. Implicitly output.

Python 2.5 이상 및 3, 93 바이트

이 접근법에 대한 스트로크 수를 테스트해야했습니다. 이것은 다음과 같은 a.strip(b)경우 빈 문자열 이 발생 한다는 사실을 사용합니다.a b에서 발생하는 문자로만 구성된 .

이 함수는 문자열 목록을 가져 와서 문자열을 반환합니다.

lambda a:max(a,key=lambda x:(~all(map(x.strip,['qwertyuiop','asdfghjkl','zxcvbnm'])),len(x)))

레티 나 73 바이트

G`^([eio-rtuwy]+|[adfghjkls]+|[bcmnvxz]+)$
1!`(.)+(?!\D+(?<-1>.)+(?(1)!))

온라인으로 사용해보십시오!

결론 : Retina는 선별 단계가 필요합니다.

설명

G`^([eio-rtuwy]+|[adfghjkls]+|[bcmnvxz]+)$

이것은 grep 단계입니다. 정규 표현식과 일치하는 줄만 유지합니다. 즉, 해당 문자 클래스 중 하나에서만 독점적으로 형성된 문자입니다.

1!`(.)+(?!\D+(?<-1>.)+(?(1)!))

이제 나머지 문자열 중 가장 큰 것을 찾아야합니다. 우리는 적어도 그 이후의 모든 단어보다 긴 모든 단어를 일치 시켜서 이것을합니다. 이 게임 1은 Retina (2 일 전에 출시)에 새로 추가 된 것으로,이 경기 단계는 첫 경기 만 고려하도록 제한됩니다. 그리고 !Retina에게 경기를 계산하는 대신 인쇄하도록 지시합니다.

Java, 154142 또는 142130 바이트

왜냐하면, 나중에 알기 때문입니다.

비교를 위해 C # .

입력이 다음으로 구분 된 단일 문자열이어야하는 경우 146 바이트 \n:

s->java.util.Arrays.stream(s.split("\n")).filter(g->g.matches("[wetyuio-r]*|[asdfghjkl]*|[zxcvbnm]*")).max((a,b)->a.length()-b.length()).get()

대신 입력을 String []으로 가정 할 수있는 경우 134 바이트 :

s->java.util.Arrays.stream(s).filter(g->g.matches("[wetyuio-r]*|[asdfghjkl]*|[zxcvbnm]*")).max((a,b)->a.length()-b.length()).get()

약간 골퍼되지 않음 :

UnaryOperator<String> longestQwertyStr = s -> 
        java.util.Arrays.stream(s.split("\n")) // Split string input over `\n` and convert to Stream<String>
                .filter(g->g.matches("[wetyuio-r]*|[asdfghjkl]*|[zxcvbnm]*")) // Filter to Strings that only use characters from a single row
                .max((a,b)->a.length()-b.length()) // Find the max by comparing String length
                .get(); // Convert from Optional<String> to String and implicit return single statement lambda

둘째, λ는이다 Function<String[],String>.

젤리, 40 34 바이트

p“£vẈ¬ḣ“£AS°GƤg“£ḷḳƤ²ƤȤḤ»f/€fµL€Mị

온라인으로 사용해보십시오!

작동 원리

p“£vẈ¬ḣ“£AS°GƤg“£ḷḳƤ²ƤȤḤ»f/€fµL€Mị

 “£vẈ¬ḣ“£AS°GƤg“£ḷḳƤ²ƤȤḤ»           Use dictionary compression to yield
                                    ['quipo twyer', 'adj flash jg', 'bcmnz xv'].
p                                   Cartesian product; for all pairs of an input
                                    string and one of the rows.
                         f/€        Reduce each pair by filter, keeping only the
                                    letters in the input string that are on that
                                    particular keyboard row.
                            f       Filter the results, keeping only filtered words
                                    that occur in the input.
                             µ      Begin a new chain.
                              L€    Get the length of each kept word.
                                M   Get the index corr. to the greatest length.
                                 ị  Retrieve the word at that index.

파이썬 3, 98

Kevin 덕분에 5 바이트를 절약했습니다.
PM 2Ring 덕분에 3 바이트를 절약했습니다.
Antti Haapala 덕분에 3 바이트를 절약했습니다.

지금은 그것을 강제하는 무차별. 단어를 단일 행에 포함 된 단어로만 필터링 한 다음 최대 문자열 길이로 정렬합니다.

lambda a:max(a,key=lambda x:(any(map(set(x).__le__,['qwertyuiop','asdfghjkl','zxcvbnm'])),len(x)))

테스트 사례 :

assert f(['asdf', 'qwe', 'qaz']) == 'asdf'
assert f('''artist
home
gas
writer
geology
marine
twerp'''.splitlines()) == 'writer'
assert f('''wrhuji
bxnzmmx
gllwssjjd
vnccbb
lrkjhgfdsa
tttttt'''.splitlines()) == 'bxnzmmx'

PowerShell v2 +, 72 바이트

($args-match"^([qwertyuiop]+|[asdfghjkl]+|[zxcvbnm]+)$"|sort Length)[-1]

명령 줄 인수를 통해 입력을로받은 $args다음 정규식과 함께 -match연산자 를 사용하여 하나의 키보드 행으로 만 구성된 단어 만 선택합니다. 이러한 결과를 Sort-Object속성별로 정렬합니다 Length. PowerShell의 문자열 은 정렬 가능한 속성 System.String을 포함하는 모든 유형 .Length이므로이 작업을 수행 할 수 있습니다. 이것은 문자열을 길이에 따라 오름차순으로 정렬하므로 마지막으로[-1] 으로를 사용하여 파이프 라인에두고 출력은 암시 적입니다.

예

PS C:\Tools\Scripts\golfing> .\longest-word-qwerty-keyboard.ps1 asdf qwe zxc typewriter halls establishment
typewriter

피스, 45 35 바이트

바이트를 절약 해 주신 @FryAmThe ​​Eggman에게 감사합니다!

elDf}k-LTc."`z:I¿Ç  Ì(T4²ª$8·"\`Q

여기 사용해보십시오!

단어 목록으로 입력을받습니다.

설명

elDf} k-LTc. "..."\`Q # Q = 모든 입력 단어 목록

   f Q # 람다 변수로 T를 사용한 필터 입력
         c. "..."\`# 모든 키보드 행 목록
      -LT # 현재 입력에서 현재 입력 행의 모든 ​​문자를 제거합니다
                      # 단어. 다음 중 하나가 비어있는 3 개의 문자열 목록을 생성합니다.
                      # 단어를 한 줄로 입력 할 수 있습니다
    } k # 목록에 emtpy 문자열이 포함되어 있는지 확인
elD # 주문 결과 목록 길이 및 마지막

루비, 88 82 69

문자열 목록을 사용할 수없고 여러 줄 문자열을 가져와야하는 경우 점수에 +12를 추가 .split('\n')하고 .grep통화 직전에 추가 하십시오.

Ruby의 스테이 비 람다와 manatwork의 추가 최적화에 대해 가르쳐 준 CatsAreFluffy에게 감사합니다.

->x{x.grep(/^([o-rwetyui]+|[asdfghjkl]+|[zxcvbnm]+)$/).max_by &:size}

C #, 141 / 112 / (120 바이트)

명백한 이유로 최악의 골프 언어에 대한 경쟁자. qwerty 대신 qwertz와 함께 "my"로캘을 사용하지만 그렇지 않으면 제대로 작동합니다.

어디에도없는 전체 프로그램 :

static void Main(string[]a){Console.WriteLine(a.OrderBy(x=>x.Length).Last(x=>Regex.IsMatch(x,"^([qwertzuiop]+|[asdfghjkl]+|[yxcvbnm]+)$")));}

위치가없는 경우에만 출력 :

Console.WriteLine(a.OrderBy(x=>x.Length).Last(x=>Regex.IsMatch(x,"^([qwertzuiop]+|[asdfghjkl]+|[yxcvbnm]+)$")));

출력 만 (원본) :

Console.WriteLine(a.Where(x=>Regex.IsMatch(x,"^([qwertzuiop]+|[asdfghjkl]+|[yxcvbnm]+)$")).OrderBy(x=>x.Length).Last());

bash, 105 바이트

물론 다양한 다른 유틸리티들.

egrep -x '[wetyuio-r]+|[asdfghjkl]+|[zxcvbnm]+'|awk '{print length($0)"\t"$0;}'|sort -n|cut -f2|tail -n1

awk, 92 84 81 바이트

(/^([wetyuio-r]+|[asdfghjkl]+|[zxcvbnm]+)$/)&&length>length(a){a=$0}END{print a}  

@Wolfgang 제안으로 3 바이트 절약

MATL , 54 바이트

[]y"@Y:nh]2$SP"@Y:!t'asdfghjkl'mw'zxcvbnm'myy+~hhAa?@.

언어 / 컴파일러의 현재 버전 (14.0.0) 에서 작동합니다 .

입력 형식은 (첫 번째 예)

{'artist' 'home' 'gas' 'writer' 'geology' 'marine' 'twerp'}

또는 (두 번째 예)

{'wrhuji' 'bxnzmmx' 'gllwssjjd' 'vnccbb' 'lrkjhgfdsa' 'tttttt'}

온라인으로 사용해보십시오!

설명

[]               % push empty array. Will be used for concatenation
y                % take input array implicitly at bottom of stack, and copy onto top
"                % for each string
  @Y:            %   push current string
  nh             %   get its length. Concatenate with array of previous lengths
]                % end for each
2$S              % sort the original copy of input array by increasing string length
P                % flip: sort by decreasing length
"                % for each string in decreasing order of length
  @Y:!           %   push that string as a column char vector
  t'asdfghjkl'm  %   duplicate. Tru for chars in 2nd row of keyboard
  w'zxcvbnm'm    %   swap. True for chars in 3rd row of keyboard
  yy+~           %   duplicate top two arrays, sum, negate: true for chars in 1st row
  hh             %   concatenate horizontally twice
  Aa             %   true if any column has all true values
  ?              %   if that's the case
    @            %     push string  
    .            %     break for each loop
                 %   end if implicitly
                 % end for each
                 % display implicitly

펄, 81 바이트

$a=$1 if/^([wetyuio-r]+|[asdfghjkl]+|[zxcvbnm]+)$/&&1<<y///c>$a=~y///c;END{say$a}

문자 대 기호는 상당히 높습니다.

그루비, 65 자

{it.grep(~/[o-rwetyui]+|[asdfghjkl]+|[zxcvbnm]+/).max{it.size()}}

샘플 실행 :

groovy:000> ({it.grep(~/[o-rwetyui]+|[asdfghjkl]+|[zxcvbnm]+/).max{it.size()}})(['wrhuji', 'bxnzmmx', 'gllwssjjd', 'vnccbb', 'lrkjhgfdsa', 'tttttt'])
===> bxnzmmx

에 의해 사용되는 정규식 .grep()은 앵커링이 필요하지 않으므로 그룹화를 절약 할 수 있습니다.

groovy:000> ['ab', 'ac', 'bc', 'abc', 'aca', 'bbc'].grep ~/[ac]+|b+/
===> [ac, aca]