Ваше завдання - взяти масив рядків і вивести найдовший рядок у масиві. Так для

["tiny", "small", "bigger", "biggest"]

вихід буде biggest.

Якщо два елементи масиву мають однакову довжину, слід вибрати той, який з’явиться першим у масиві. Це означає, що масив виглядає так:

["one", "two", "no"]

вихід є one, але якщо масив виглядав так:

["two", "one", "no"]

вихід є two.

Оскільки це код-гольф , виграє найкоротший код у байтах.

Імператив Тампіо , 168 байт

Listan x on riippuen siitä,onko sen ensimmäisen alkion pituus suurempi tai yhtä suuri kuin sen jokaisen alkion pituus,joko sen ensimmäinen alkio tai sen hännän x.

Інтернет-версія

Безголівки:

Listan Pisin alkio на riippuen siitä , онко вересня ensimmäisenAlkion pituus suurempi тай yhtä Suuri Куїн сіном jokaisen Alkion pituus, Джоко

• сен ensimmäinenалкіо тай
• sen hännän pisin alkio.

Інтернет-версія

Єдина можливість для гольфу - це замінити pisin alkio(означає "найдовший елемент") на x.

Переклад:

Найдовший елемент у списку - це залежно від того, чи більша довжина першого елемента або дорівнює довжині кожного елемента у списку, або

• перший пункт у списку, або
• найдовший елемент у хвості списку.

Пітон , 23 байти

lambda a:max(a,key=len)

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

Haskell , 35 байт

-3 байти завдяки Згарбу.

foldl1(!)
a!b|(a<$a)<(a<$b)=b|1<2=a

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

Мені подобається цей код. Ви знаєте, чому? Тому що Haskell підтримує набагато більш елегантні рішення з функціями випадкових бібліотек.

maximumBy(compare`on`length).reverse

Це читабельно читається! За винятком того, що це не дійсно.

import Data.List
import Data.Function
maximumBy(compare`on`length).reverse

Якби не імпорт, це було б ідеальним поданням, щоб отримати всі результати. : P

(Також для цього використовується один наконечник для гри в гольф, і він використовує складку.)

R + pryr , 31 байт

[-2 байти завдяки Scrooble]

pryr::f(x[order(-nchar(x))][1])

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

R , 33 байти

function(x)x[order(-nchar(x))][1]

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

EXCEL, 36 42 байти

=INDEX(A:A,MATCH(MAX(LEN(A:A)),LEN(A:A),))

Вводиться як формула масиву (ctrl-shift-enter). Вхідний масив слід ввести у стовпчик А.

Формула повертає першу відповідність з максимальною довжиною.

Залежно від налаштувань вашого регіону, замініть ,на ;; довжина коду залишається незмінною. З 16 перелічених тут мов , англійські назви функцій є найкоротшими для цієї формули.

Пояснення:

=                                          - return
 INDEX(                                  ) - the item of
       A:A                                 - the input
          ,                                - at
           MATCH(                       )  - the position of
                                       ,   - the first exact match of
                 MAX(        )             - the maximum of
                     LEN(   )              - the array of lengths of
                         A:A               - the input
                              ,            - in
                               LEN(   )    - the array of lengths of
                                   A:A     - the input

APL (Dyalog Unicode) , 9 байт ^SBCS

⊢⊃⍨∘⊃∘⍒≢¨

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

⊢ з аргументу,

⊃⍨ виберіть елемент із індексом, який є

⊃ Перший з

⍒ індекси у порядку зменшення

≢¨ довжини кожного

Prolog (SWI) , 98 92 72 69 байт

Присудок верхнього рівня - це *.

X/Y:-atom_length(X,Y).
[A]*A.
[A,B|L]*Z:-A/X,B/Y,Y>X,[B|L]*Z;[A|L]*Z.

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

Пояснення

Перший рядок визначає діадичний предикат /як короткий, atom_length/2що є істинним, якщо довжина першого аргументу є другим аргументом. Це заощаджує нам 3 байти, використовуючи atom_lengthдвічі.

Наш основний предикат визначається як діадичний, *де перший аргумент - це список, а другий аргумент - найдовший елемент цього списку.

Другий рядок - це наш базовий випадок, який стверджує, що найдовший елемент одного списку елементів - це цей елемент.

У третьому рядку зазначено, що для списку, що містить щонайменше два елементи, найдовший елемент:

Якщо довжина другого елемента довша першого, найдовший елемент знаходиться в списку без першого елемента.

Інакше найдовший елемент знаходиться у списку без другого елемента.

Pyth , 4 байти

h.Ml

Тестовий набір.

h.Ml   | Program
h.MlZQ | With implicit variables filled in
-------+--------------------------------------------------------------------
h      | First element of
 .M  Q | The list of elements from the input list with the maximal value for
   lZ  | The length of the element

PowerShell , 24 байти

($args[0]|sort l* -d)[0]

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

Бере вхід $args[0], труби, які Sort-Objectбазуються на length у -dпорядку зростання. Потім приймає [0]ту її. Оскільки сортування стабільне, то це вимагає першого елемента у випадку зв'язання.

Октава , 33 байти

@(x)x{[~,p]=max(cellfun(@nnz,x))}

Вхід - це масив комірок рядків.

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

Пояснення

cellfun(@nnz,x)застосовує nnzфункцію (кількість ненулів) до кожного рядка вхідного масиву x. Для рядків ASCII nnzеквівалентно numel(кількість елементів), але коротше. Результатом є числовий масив з довжиною рядків.

Потім, [~,]=max(...)дає індекс першого максимуму в масиві довжин рядків. Результат використовується як індекс фігурної дужки xдля отримання відповідного рядка.

JavaScript (Node.js) , 38 байт

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

a=>a.sort((a,b)=>a.length<b.length)[0]

J , 19, 11, 10 8 байт

0{>\:#@>

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

Дякуємо вулицеві за підказку!

-1 байт завдяки FrownyFrog!

-2 байти завдяки Conor O'Brien

Як це працює:

    (  #@>) - unbox each string and find its length
     \:     - sort down the list of strings according to the lengths
0{::        - take and unbox the first string

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

C #, 43 + 18 = 61 байт

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

a=>a.OrderByDescending(x=>x.Length).First()

Perl 6 ,  14  13 байт

*.max(*.chars)

Спробуй це

*.max(&chars)

Спробуй це

PHP, 72 байти

array_reduce($a,function($c,$i){return (strlen($i)>strlen($c))?$i:$c;});

Japt -h, 5 3 байти

ÔñÊ

Спробуй це

Зворотний, сортувати за довжиною та вивести останній елемент.

Свіфт , 54 байти

{($0 as[String]).reduce(""){$1.count>$0.count ?$1:$0}}

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

K (oK) , 9 байт

*x@>#:'x:

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

Приклад:

*x@>#:'x:("edur";"oot";"taht")
"edur"

Пояснення

*x@>#:'x: / solution
       x: / store input in variable x
    #:'   / count (#:) each (')
   >      / sort descending
 x@       / apply indices to x
*         / take the first one

Примітки:

Недобрано, оскільки це класифікується як нетривіальне, незважаючи на те, що в основному це 5 кроків (було б, якби записано як функцію {*x@>#:'x}).

Java (OpenJDK 8) , 67 байт

Ще одне подання моєю улюбленою мовою! (читайте: єдиний, кого я знаю).
Це не працює з порожнім масивом, але це добре.

Гольф

w->{for(String y:w)if(y.length()>w[0].length())w[0]=y;return w[0];}

Безумовно

for(String y:w)                           // Loops through all Strings
    if(y.length()>w[0].length())          // If the String is longer than the first String 
                                w[0]=y;   // Store it as the first string.
return w[0];                              // Return the first String.

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

Ракетка , 160 байт 110 байт

Спробуйте в Інтернеті! Перший внесок, рада оцінена!

(define(m a)(if(>(length a)1)(if(>=(string-length(car a))(string-length(m(cdr a))))(car a)(m(cdr a)))(car a)))

Безумовно

(define (m a)
    (if (> (length a) 1)
        (if (>= (string-length (car a)) (string-length (m (cdr a))))
            (car a)
            (m (cdr a))
        )
        (car a)
    )
)

Оновлене рішення на основі зворотного зв'язку

Баш , 45 байт

a=;for b;do((${#b}>${#a}))&&a=$b;done;echo $a

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

Скретч 27 17 170 160

Він очікує глобальний (доданий до всіх спрайтів, точніше) список рядків, що називається mylist. Після натискання зеленого прапора найдовше слово залишиться у змінній w.

Я думаю, що це посилання

when gf clicked
set[w]to(item[1]of[mylist
set[i]to[0
repeat(length of[mylist
change[i]by(1
set[m]to(item(i)of[mylist
if<(m)>(w)>then
set[w]to(m
end
end
stop[all

Відлік відповідно до цієї мета.

Рода , 30 байт

{enum|[[#_,-_,_1]]|max|_|tail}

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

Пояснення:

{
 enum|         /* For each element, push its index to the stream */
 [[#_,-_,_1]]| /* For each element and index, push [length, -index, element] */
 max|          /* Find the greatest element */
 _|            /* Flat the list in the stream */
 tail          /* Return the last item in the stream */
}

Альтернативно 30 байт:

{enum|[[#_,-_,_1]]|max|[_[2]]}

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

APL - 23 16 байт

a←{((⍴¨⍵)⍳(⌈/(⍴¨⍵)))⌷⍵}

Дякуємо всім за всі ваші чудові пропозиції та заохочення!

a←{⍵⌷⍨(⍴¨⍵)⍳⌈/⍴¨⍵}

Використання:

a 'duck' 'duck' 'goose'
  'goose'

Пояснення:

отримує довжину кожного вектора символів (рядка), потім використовує максимум як індекс. Я щойно почав APL 20 хв тому, тому мені шкода, якщо це дурний спосіб зробити це.

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

(відредаговано для наочності)

Стандартний ML (MLton) , 55 байт

fun&(s::r)=foldl(fn(%,$)=>if size% >size$then%else$)s r

Спробуйте в Інтернеті! Приклад використання: & ["abc","de","fgh"]врожайність "abc".

Безголівки:

fun step (current, longest) = 
    if size current > size longest 
    then current 
    else longest

fun longestString (start :: list) = foldl step start list
  | longestString nil = raise Empty

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

Джулія 0,6 , 24 байти

!s=s[indmax(length.(s))]

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

Фанки , 38 байт

a=>a[(v=a::map@#)::find(math.max...v)]

Пояснив

a=>a[(v=a::map@#)::find(math.max...v)]
        a::map@#                        $ Create a list of the lengths of the input's strings.
      v=                                $ And assign it to v.
     (          )::find(            )   $ Find the first index in this list that equals...
                        math.max...v    $ The largest value of v, eg. the length of the longest string.
   a[                                ]  $ Get the value at that position.

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

Рубін , 21 20 байт

->s{s.max_by &:size}

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

Тривіальне рішення, дякуємо Snack за -1 байт

SNOBOL4 (CSNOBOL4) , 63 57 байт

I	M =LT(SIZE(M),SIZE(X)) X
	X =INPUT	:S(I)
	OUTPUT =M
END

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

Вхід знаходиться на stdin, а вихід на stdout.

Приблизно перекладається на такий псевдокод:

while input exists
 x = input
 if length(m) < length(x)
  m = x
end
return m

Баш , 44 байти

IFS=$'\n';egrep -m1 .{`wc -L<<<"$*"`}<<<"$*"

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