Twoim wyzwaniem jest pobranie tablicy ciągów i wygenerowanie najdłuższego ciągu w tablicy. Więc dla

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

wynik byłby biggest.

Jeśli dwa elementy tablicy mają tę samą długość, należy wybrać ten, który pojawi się jako pierwszy w tablicy. Oznacza to, że tablica wygląda następująco:

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

wynikiem jest one, ale jeśli tablica wyglądała tak:

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

wyjście jest two.

Ponieważ jest to code-golf , wygrywa najkrótszy kod w bajtach.

Tryb imperatywny , 168 bajtów

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.

Wersja online

Nie golfowany:

Listan pisin alkio on riippuen siitä , onko sen ensimmäisenalkion pituus suurempi tai yhtä suuri kuin sen jokaisen alkion pituus, joko

• sen ensimmäinenalkio tai
• sen hännän pisin alkio.

Wersja online

Jedyną możliwością gry w golfa jest zastąpienie pisin alkio(co oznacza „najdłuższy element”) x.

Tłumaczenie:

Najdłuższy element na liście, w zależności od tego, czy długość pierwszego elementu jest większa, czy równa długości każdego elementu na liście, albo

• pierwszy element na liście lub
• najdłuższy element na końcu listy.

Python , 23 bajty

lambda a:max(a,key=len)

Wypróbuj online!

Haskell , 35 bajtów

-3 bajty dzięki Zgarbowi.

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

Wypróbuj online!

Lubię ten kod. Wiesz dlaczego? Ponieważ Haskell obsługuje znacznie bardziej eleganckie rozwiązania z funkcjami z bibliotek losowych.

maximumBy(compare`on`length).reverse

To cholernie czytelne! Z wyjątkiem tego, że nie jest poprawny.

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

Gdyby nie import, byłoby to idealne przesłanie, aby uzyskać wszystkie opinie. : P

(Również używa jednej wskazówki golfowej i korzysta z fold.)

R + pryr , 31 bajtów

[-2 bajty dzięki Scrooble]

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

Wypróbuj online!

R , 33 bajty

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

Wypróbuj online!

PRZEWYŻSZAĆ, 36 42 bajty

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

Wprowadzono jako formułę tablicową (ctrl-shift-enter). Tablicę wejściową należy wprowadzić w kolumnie A.

Formuła zwraca pierwsze dopasowanie o maksymalnej długości.

W zależności od ustawień regionu, substytut ,z ;; długość kodu pozostaje niezmieniona. Spośród 16 języków wymienionych tutaj , angielskie nazwy funkcji są najkrótsze dla tej formuły.

Wyjaśnienie:

=                                          - 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 bajtów ^SBCS

⊢⊃⍨∘⊃∘⍒≢¨

Wypróbuj online!

⊢ z argumentu

⊃⍨ wybierz element o indeksie, który jest

⊃ pierwszy z

⍒ indeksy w kolejności malejącej

≢¨ długości każdego

Prolog (SWI) , 98 92 72 69 bajtów

Predykat najwyższego poziomu to *.

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

Wypróbuj online!

Wyjaśnienie

Pierwszy wiersz definiuje predykat dynamiczny /jako skrót, dla atom_length/2którego jest prawdą, jeśli długość pierwszego argumentu jest drugim argumentem. To oszczędza nam 3 bajty przy atom_lengthpodwójnym użyciu .

Nasz główny predykat jest zdefiniowany jako dyadyczny * gdzie pierwszy argument jest listą, a drugi argument najdłuższym elementem tej listy.

Drugi wiersz jest naszym przypadkiem podstawowym, który stwierdza, że ​​najdłuższym elementem listy z jednym elementem jest ten element.

Trzeci wiersz stwierdza, że ​​w przypadku listy zawierającej co najmniej 2 elementy najdłuższy element to:

Jeśli długość drugiego elementu jest dłuższa niż pierwszy element, najdłuższy element znajduje się na liście bez pierwszego elementu.

W przeciwnym razie najdłuższy element znajduje się na liście bez drugiego elementu.

Pyth , 4 bajty

h.Ml

Zestaw testowy.

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 bajty

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

Wypróbuj online!

Trwa wejściowych $args[0], rur, które na Sort-Objectpodstawie length w -dporządku escending. Następnie bierze ten [0]jeden. Ponieważ sortowanie jest stabilne, bierze to pierwszy element w przypadku remisu.

Oktawa , 33 bajty

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

Dane wejściowe to tablica komórek ciągów znaków.

Wypróbuj online!

Wyjaśnienie

cellfun(@nnz,x)stosuje nnzfunkcję (liczbę niezerowych) do każdego łańcucha w tablicy wejściowej x. W przypadku ciągów ASCII nnzjest równoważny numel(liczba elementów), ale krótszy. Wynikiem jest tablica liczbowa o długości łańcucha.

Następnie [~,]=max(...)podaje indeks pierwszego maksimum w tablicy długości łańcuchów. Wynik jest używany jako indeks nawiasu klamrowego w xcelu uzyskania odpowiedniego ciągu.

JavaScript (Node.js) , 38 bajtów

Wypróbuj online!

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

J , 19, 11, 10 8 bajtów

0{>\:#@>

Wypróbuj online!

Dzięki streetster za podpowiedź!

-1 bajt dzięki FrownyFrog!

-2 bajty dzięki Conorowi O'Brienowi

Jak to działa:

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

Wypróbuj online!

C #, 43 + 18 = 61 bajtów

Wypróbuj online!

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

Perl 6 ,  14  13 bajtów

*.max(*.chars)

Spróbuj

*.max(&chars)

Spróbuj

PHP, 72 bajty

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

Japt -h, 5 3 bajty

ÔñÊ

Spróbuj

Odwróć, sortuj według długości i wypisz ostatni element.

Szybki , 54 bajty

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

Wypróbuj online!

K (oK) , 9 bajtów

*x@>#:'x:

Wypróbuj online!

Przykład:

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

Wyjaśnienie

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

Uwagi:

Nieusunięte, ponieważ jest to klasyfikowane jako nietrywialne, mimo że w zasadzie jest to 5 kroków (byłoby napisane jako funkcja {*x@>#:'x}).

Java (OpenJDK 8), 67 bytes

Another submission in my favourite language! (read: the only one I know).
This doesn't work with an empty array, but that's fine.

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.

Try it online!

Racket, 160 bytes 110 bytes

Try it online! First time contributing, advice appreciated!

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

Updated solution based on feedback

Bash, 45 bytes

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

Try it online!

Scratch 27 17 170 160

It expects a global (attached to all sprites, to be more precise) list of strings called mylist. After clicking the green flag, the longest word will be left in the variable w.

I think this is the link

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

Counting as per this meta.

Röda, 30 bytes

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

Try it online!

Explanation:

{
 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 */
}

Alternative 30 bytes:

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

Try it online!

APL -- 23 16 bytes

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

Thanks to everyone for all of your great suggestions and encouragement!

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

Usage:

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

Explanation:

gets length of each vector of characters (string) then uses maximum as an index. I just started APL 20 min ago so I am sorry if this is a stupid way to do it.

Try it Online!

(edited for clarity)

Standard ML (MLton), 55 bytes

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

Try it online! Example usage: & ["abc","de","fgh"] yields "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

Try it online!

Julia 0.6, 24 bytes

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

Try it online!

Funky, 38 bytes

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

Explained

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.

Try it online!

Ruby, 21 20 bytes

->s{s.max_by &:size}

Try it online!

Trivial solution, thanks Snack for -1 byte

SNOBOL4 (CSNOBOL4), 63 57 bytes

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

Try it online!

Input is on stdin and output on stdout.

Roughly translates to the following pseudocode:

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

Bash, 44 bytes

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

Try it online!