Ці три ряди QWERTY - клавіатура 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)!))

Спробуйте в Інтернеті!

Висновок: Сітківці потрібна стадія сортування.

Пояснення

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

Це греп-етап: він зберігає лише лінії, які узгоджуються регулярними виразами. Тобто ті, які формуються виключно з одного з цих класів символів.

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

Тепер нам просто потрібно знайти найбільшу з залишилися рядків. Ми робимо це, зіставляючи всі слова, які принаймні довші, ніж усі слова після них. Це 1нове доповнення до Retina (випущене два дні тому), яке обмежує цю стадію матчу лише першим подібним матчем. І !вказує Ретіні надрукувати сірник (замість того, щоб рахувати його).

Java, 154 142 або 142 130 байт

Тому що, знаєте, Ява.

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

134 байти, якщо замість цього я можу вважати введення в якості String []:

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

Збережено 5 байт завдяки Кевіну.
Збережено 3 байти завдяки програмі PM 2Ring.
Збережено 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

Pyth, 45 35 байт

Завдяки @FryAmThe ​​Eggman за те, що врятував мені кілька байтів!

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

Спробуйте тут!

Вводиться як список слів.

Пояснення

elDf} k-LTc. "..." \ `Q # Q = список усіх введених слів

   f Q # Вхід фільтра з T як лямбда-змінною
         c. "..." \ `# Список усіх рядків клавіатури
      -LT # Видаліть усі літери поточного рядка вводу з поточного вводу
                      # слово. Результати в списку з 3 рядків, причому одна порожня, якщо
                      # слово можна набрати одним рядком
    } k # Перевірте, чи містить список порожній рядок
список результатів замовлення elD # за довжиною і взяти останній

Рубі, 88 82 69

Якщо мені заборонено приймати список рядків і потрібно взяти рядок багаторядкових, додайте +12 до оцінки та додайте .split('\n')прямо перед .grepвикликом.

Дякую CatsAreFluffy за те, що ви навчали мене про стійкі лямбдати в Ruby та подальші оптимізації роботи з манатурки

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

C #, 141/112 / (120 байт)

Претендент на найгіршу мову для гольфу, з очевидних причин. Використовує "my" локаль із qwertz замість qwerty, але добре працює інакше.

Повна програма без де:

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}  

збережено 3 байти завдяки пропозиції @Wolfgang

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

Perl, 81 байт

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

Символ до числа літер досить високий.

Groovy, 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]