Buradaki zorluk, bir dizi dizge almak ve dizideki en uzun dizgenin çıktısını almaktır. İçin böylece

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

çıktı olacaktır biggest.

Dizinin iki öğesinin uzunluğu aynıysa, dizide ilk sırada görüneni seçmelisiniz. Bu, dizinin şöyle görünmesi anlamına gelir:

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

çıktı one, ancak dizi şöyle görünüyorsa:

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

çıktı two.

Bu kod-golf olduğundan, bayttaki en kısa kod kazanır.

Zorunlu Tampio , 168 bayt

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.

Çevrimiçi sürüm

Ungolfed:

Listan pisin alkio üzerinde riippuen siitä , onko sen ensimmäisenAlkion pituus suurempi tai yhtä suuri kuin sen jokaisen Alkion pituus, joko'ait

• Sen ensimmäinenAlkio Tai
• sen hännän pisin alkio.

Çevrimiçi sürüm

Bunun sahip olduğu tek golf fırsatı pisin alkio("en uzun element" anlamına geliyor) ile değiştirmektir x.

Çeviri:

Listedeki en uzun öğe, ilk öğenin uzunluğunun listedeki her öğenin uzunluğuna eşit veya büyük olmasına bağlı olarak

• listedeki ilk öğe veya
• Listenin kuyruğundaki en uzun öğe.

Python , 23 bayt

lambda a:max(a,key=len)

Çevrimiçi deneyin!

Haskell , 35 bayt

Zgarb sayesinde -3 bayt.

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

Çevrimiçi deneyin!

Bu kodu sevdim. Neden biliyormusun? Çünkü Haskell, rastgele kütüphanelerden gelen fonksiyonlarla çok daha zarif çözümleri destekliyor.

maximumBy(compare`on`length).reverse

Bu çok okunaklı! Ancak, geçerli değil.

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

İthalat için olmasaydı, tüm yükselişleri almak için mükemmel bir sunum olurdu. : P

(Ayrıca, bu bir golf ucu ve bir de kat kullanır.)

R + pryr , 31 bayt

[Scrooble sayesinde -2 bayt]

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

Çevrimiçi deneyin!

R , 33 bayt

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

Çevrimiçi deneyin!

EXCEL, 36 42 bayt

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

Dizi formülü olarak girildi (ctrl-shift-enter). Giriş dizisi A sütununa girilmelidir.

Formül, ilk eşleşmeyi maksimum uzunlukla döndürür.

Bölgeyi ayarlarına bağlı olarak, yerine ,ile ;; kod uzunluğu değişmeden kalır. Burada listelenen 16 dilden , İngilizce işlev adları bu formül için en kısa yoldur.

Açıklama:

=                                          - 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 bayt ^SBCS

⊢⊃⍨∘⊃∘⍒≢¨

Çevrimiçi deneyin!

⊢ tartışmadan,

⊃⍨ elementi, indekse sahip olan

⊃ ilki

⍒ azalan düzendeki göstergeler

≢¨ her birinin uzunluğu

Prolog (SWI) , 98 92 72 69 bayt

Üst seviye belirleyicidir *.

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

Çevrimiçi deneyin!

açıklama

İlk satır , ilk argümanın uzunluğu ikinci argüman ise, dyadik yordamın /kısa olduğu atom_length/2anlamına gelir. Bu bize atom_lengthiki kez kullanarak 3 bayt kazandırır .

Başlıca öngörümüz *, ilk argümanın bir liste olduğu diyadik , ikinci argüman ise bu listenin en uzun elemanıdır.

İkinci satır, bir eleman listesinin en uzun elemanının o eleman olduğunu belirten temel durumumuzdur.

Üçüncü satır, en az 2 öğeli bir liste için en uzun öğenin:

İkinci elementin uzunluğu birinci elementten daha uzunsa, en uzun element ilk elementsiz listededir.

Aksi halde, en uzun eleman ikinci eleman olmadan listededir.

Pyth , 4 bayt

h.Ml

Test odası.

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 bayt

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

Çevrimiçi deneyin!

Giriş Alır $args[0], borular buna Sort-Objectdayanarak liçinde ength -dsırasını escending. Sonra [0]ondan bir tane alır . Sıralama sabit olduğu için, beraberlik durumunda bu ilk elementi alır.

Octave , 33 bayt

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

Giriş, bir hücre dizesi dizisidir.

Çevrimiçi deneyin!

açıklama

cellfun(@nnz,x)nnzişlevi (sıfır olmayan sayısı) giriş dizisindeki her dizeye uygular x. ASCII dizeleri nnziçin eşdeğerdirnumel (eleman sayısı), fakat daha kısa. Sonuç, dize uzunluklarına sahip sayısal bir dizidir.

Ardından, [~,]=max(...)dize uzunlukları dizisindeki ilk maksimumun dizinini verir. Sonuç, xkarşılık gelen dizgiyi elde etmek için küme parantezi dizini olarak kullanılır .

JavaScript (Node.js) , 38 bayt

Çevrimiçi deneyin!

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

J , 19, 11, 10 8 bayt

0{>\:#@>

Çevrimiçi deneyin!

Tavsiye için streetster'a teşekkürler!

FrownyFrog sayesinde -1 bayt!

Conor O'Brien sayesinde -2 bayt

Nasıl çalışır:

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

Çevrimiçi deneyin!

C #, 43 + 18 = 61 bayt

Çevrimiçi deneyin!

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

Perl 6 ,  14  13 bayt

*.max(*.chars)

Dene

*.max(&chars)

Dene

PHP, 72 bayt

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

Japt -h, 5 3 bayt

ÔñÊ

Dene

Ters çevir, uzunluğa göre sırala ve son elemanı çıkar.

Swift , 54 bayt

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

Çevrimiçi deneyin!

K (oK) , 9 bayt

*x@>#:'x:

Çevrimiçi deneyin!

Örnek:

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

açıklama

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

Notlar:

Temelde 5 adım olmasına rağmen (işlev olarak yazılırsa {*x@>#:'x}) , önemsiz olarak sınıflandırıldığı için silinmemiş .

Java (OpenJDK 8) , 67 bayt

En sevdiğim dilde başka bir gönderi! (okumak: tanıdığım tek kişi).
Bu boş bir diziyle çalışmıyor, ama sorun değil.

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.

Çevrimiçi deneyin!

Raket , 160 bayt 110 bayt

Çevrimiçi deneyin! İlk kez katkıda, tavsiye takdir!

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

Geri bildirime dayalı güncellenmiş çözüm

Bash , 45 bayt

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

Çevrimiçi deneyin!

Karalama 27 17 170 160

Genel olarak (tüm sprite ekli, daha kesin olması) dizgelerin listesi aranır mylist. Yeşil bayrağa tıkladıktan sonra, en uzun kelime değişkende kalacaktır w.

Bence bu bağlantı

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

Bu meta uyarınca sayım .

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!