Tantangan Anda adalah mengambil array string dan menghasilkan string terpanjang dalam array. Sehingga untuk

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

hasilnya akan biggest.

Jika dua elemen array memiliki panjang yang sama, Anda harus memilih salah satu yang muncul pertama kali dalam array. Itu berarti jika array terlihat seperti ini:

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

outputnya one, tetapi jika arraynya terlihat seperti ini:

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

outputnya adalah two.

Karena ini adalah kode-golf , kode terpendek dalam byte akan menang.

Imperio Tampio , 168 byte

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.

Versi online

Tidak Disatukan:

Daftar untuk alkali di 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.

Versi online

Satu-satunya peluang bermain golf ini adalah untuk menggantikan pisin alkio(yang berarti "elemen terpanjang") dengan x.

Terjemahan:

Item terpanjang dalam daftar adalah, tergantung pada apakah panjang item pertama lebih besar atau sama dengan panjang setiap elemen dalam daftar, baik

• item pertama dalam daftar, atau
• item terpanjang di bagian belakang daftar.

Python , 23 byte

lambda a:max(a,key=len)

Cobalah online!

Haskell , 35 byte

-3 byte terima kasih kepada Zgarb.

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

Cobalah online!

Saya suka kode ini. Anda tahu mengapa? Karena Haskell mendukung solusi yang jauh lebih elegan dengan fungsi-fungsi dari perpustakaan acak.

maximumBy(compare`on`length).reverse

Itu bisa dibaca! Kecuali, itu tidak valid.

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

Jika bukan karena impor, ini akan menjadi pengiriman yang sempurna untuk mendapatkan semua upvotes. : P

(Juga, ini menggunakan satu ujung golf dan menggunakan lipatan.)

R + pryr , 31 byte

[-2 byte, terima kasih kepada Scrooble]

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

Cobalah online!

R , 33 byte

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

Cobalah online!

UNGGUL, 36 42 byte

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

Dimasukkan sebagai rumus array (ctrl-shift-enter). Array input harus dimasukkan dalam kolom A.

Rumus mengembalikan pertandingan pertama dengan panjang maksimum.

Bergantung pada pengaturan wilayah Anda, gantikan ,dengan ;; panjang kode tetap tidak berubah. Dari 16 bahasa yang tercantum di sini , nama fungsi bahasa Inggris adalah yang terpendek untuk rumus ini.

Penjelasan:

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

⊢⊃⍨∘⊃∘⍒≢¨

Cobalah online!

⊢ dari argumen,

⊃⍨ pilih elemen dengan indeks yang merupakan

⊃ pertama dari

⍒ indeks dalam urutan menurun dari

≢¨ panjang masing-masing

Prolog (SWI) , 98 92 72 69 byte

Predikat tingkat atas adalah *.

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

Cobalah online!

Penjelasan

Baris pertama mendefinisikan predikat diad /untuk menjadi kependekan atom_length/2yang benar jika panjang argumen pertama adalah argumen kedua. Ini menghemat 3 byte dari penggunaan atom_lengthdua kali.

Predikat utama kami didefinisikan sebagai diadik di *mana argumen pertama adalah daftar dan argumen kedua adalah elemen terpanjang dari daftar itu.

Baris kedua adalah kasus dasar kami yang menyatakan bahwa elemen terpanjang dari daftar satu elemen adalah elemen itu.

Baris ketiga menyatakan bahwa untuk daftar dengan setidaknya 2 elemen, elemen terpanjang adalah:

Jika panjang elemen kedua lebih panjang dari elemen pertama, elemen terpanjang ada dalam daftar tanpa elemen pertama.

Kalau tidak, elemen terpanjang ada dalam daftar tanpa elemen kedua.

Pyth , 4 byte

h.Ml

Suite uji.

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 byte

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

Cobalah online!

Dibutuhkan input $args[0], pipa yang Sort-Objectdidasarkan pada ength ldalam -durutan pengawalan. Kemudian ambil yang [0]satunya. Karena sort stabil, ini mengambil elemen pertama dalam kasus dasi.

Oktaf , 33 byte

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

Input adalah array sel string.

Cobalah online!

Penjelasan

cellfun(@nnz,x)menerapkan nnzfungsi (jumlah nonzeros) untuk setiap string dalam larik input x. Untuk string ASCII, nnzsetara dengan numel(jumlah elemen), tetapi lebih pendek. Hasilnya adalah array numerik dengan panjang string.

Kemudian, [~,]=max(...)berikan indeks maksimum pertama dalam array panjang string. Hasilnya digunakan sebagai kurung kurawal ke dalam xuntuk mendapatkan string yang sesuai.

JavaScript (Node.js) , 38 byte

Cobalah online!

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

J , 19, 11, 10 8 byte

0{>\:#@>

Cobalah online!

Terima kasih kepada streetster untuk petunjuknya!

-1 byte terima kasih kepada FrownyFrog!

-2 byte terima kasih kepada Conor O'Brien

Bagaimana itu bekerja:

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

Cobalah online!

C #, 43 + 18 = 61 byte

Cobalah online!

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

Perl 6 ,  14  13 byte

*.max(*.chars)

Cobalah

*.max(&chars)

Cobalah

PHP, 72 byte

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

Japt -h, 5 3 byte

ÔñÊ

Cobalah

Membalik, mengurutkan berdasarkan panjang dan menampilkan elemen terakhir.

Swift , 54 byte

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

Cobalah online!

K (oK) , 9 byte

*x@>#:'x:

Cobalah online!

Contoh:

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

Penjelasan

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

Catatan:

Dihapus karena ini digolongkan sebagai non-sepele, meskipun pada dasarnya 5 langkah (akan jika ditulis sebagai fungsi {*x@>#:'x}).

Java (OpenJDK 8) , 67 byte

Kiriman lain dalam bahasa favorit saya! (baca: satu-satunya yang saya tahu).
Ini tidak berfungsi dengan array kosong, tapi tidak apa-apa.

Golf

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

Tidak disatukan

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.

Cobalah online!

Racket , 160 byte, 110 byte

Cobalah online! Pertama kali berkontribusi, saran sangat dihargai!

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

Tidak disatukan

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

Solusi yang diperbarui berdasarkan umpan balik

Bash , 45 byte

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

Cobalah online!

Gores 27 17 170 160

Ia mengharapkan daftar string global (terlampir pada semua sprite, lebih tepatnya) yang disebut mylist . Setelah mengklik tanda hijau, kata terpanjang akan tersisa di variabel w.

Saya pikir ini tautannya

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

Menghitung sesuai meta ini.

Rosda , 30 byte

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

Cobalah online!

Penjelasan:

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

Alternatif 30 byte:

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

Cobalah online!

APL - 23 16 byte

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

Terima kasih kepada semua orang untuk semua saran dan dorongan besar Anda!

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

Pemakaian:

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

Penjelasan:

mendapatkan panjang setiap vektor karakter (string) kemudian menggunakan maksimum sebagai indeks. Saya baru saja memulai APL 20 mnt yang lalu jadi saya minta maaf jika ini cara bodoh untuk melakukannya.

Cobalah secara Online!

(diedit untuk kejelasan)

ML Standar (MLton) , 55 byte

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

Cobalah online! Contoh penggunaan: & ["abc","de","fgh"]hasil "abc".

Tidak Disatukan:

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

Cobalah online!

Julia 0,6 , 24 byte

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

Cobalah online!

Funky , 38 byte

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

Dijelaskan

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.

Cobalah online!

Ruby , 21 20 byte

->s{s.max_by &:size}

Cobalah online!

Solusi sepele, terima kasih Snack untuk -1 byte

SNOBOL4 (CSNOBOL4) , 63 57 byte

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

Cobalah online!

Input ada di stdin dan output di stdout.

Secara kasar diterjemahkan ke pseudocode berikut:

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

Bash , 44 byte

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

Cobalah online!