Ваша задача - взять массив строк и вывести самую длинную строку в массиве. Таким образом, для

["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.

Онлайн версия

Ungolfed:

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

• сен ensimmäinenалкио тай
• Сен Ханнан Писин Алкио.

Онлайн версия

Единственная возможность игры в гольф - заменить pisin alkio(что означает «самый длинный элемент») на x.

Перевод:

Самый длинный элемент в списке, в зависимости от того, больше ли длина первого элемента или равна длине каждого элемента в списке, либо

• первый элемент в списке, или
• самый длинный элемент в конце списка.

Python , 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

Если бы не импорт, это было бы идеальным представлением для получения всех голосов. :П

(Кроме того, для этого используется один наконечник для игры в гольф и используется сгиб.)

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

⊢⊃⍨∘⊃∘⍒≢¨

Попробуйте онлайн!

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

⊃⍨ выбрать элемент с индексом, который является

⊃ первый из

⍒ индексы в порядке убывания

≢¨ длины каждого

Пролог (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два раза.

Наш основной предикат определяется как диадический, *где первый аргумент является списком, а второй аргумент - самым длинным элементом этого списка.

Вторая строка - это наш базовый случай, в котором говорится, что самым длинным элементом списка из одного элемента является этот элемент.

В третьей строке указывается, что для списка, содержащего не менее 2 элементов, самый длинный элемент:

Если длина второго элемента превышает длину первого элемента, самый длинный элемент находится в списке без первого элемента.

В противном случае самый длинный элемент находится в списке без второго элемента.

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по lвозрастанию в -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{>\:#@>

Попробуйте онлайн!

Спасибо Streetster за подсказку!

-1 байт благодаря FrownyFrog!

-2 байта благодаря Конору О'Брайену

Как это работает:

    (  #@>) - 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 байта

ÔñÊ

Попытайся

Обратный, сортировка по длине и вывод последнего элемента.

Swift , 54 байта

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

Попробуйте онлайн!

K (ок) , 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

Заметки:

Undeleted, поскольку это классифицируется как нетривиальное, хотя в основном это 5 шагов (будет, если написано как функция {*x@>#:'x}).

Java (OpenJDK 8) , 67 байт

Еще одна подача на моем любимом языке! (читай: единственный, кого я знаю).
Это не работает с пустым массивом, но это нормально.

Golfed

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

Ungolfed

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

Ungolfed

(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".

Ungolfed:

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}

Попробуйте онлайн!

Тривиальное решение, спасибо Снэк за -1 байт

СНОБОЛ4 (CSNOBOL4) , 63 57 байт

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

Попробуйте онлайн!

Вход на стандартный вывод и вывод на стандартный вывод.

Примерно переводится следующий псевдокод:

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

Баш , 44 байта

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

Попробуйте онлайн!