Thử thách của bạn là lấy một chuỗi các chuỗi và xuất chuỗi dài nhất trong mảng. Vì vậy đối với

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

đầu ra sẽ là biggest.

Nếu hai phần tử của mảng có cùng độ dài, bạn nên chọn phần tử xuất hiện đầu tiên trong mảng. Điều đó có nghĩa là nếu mảng trông như thế này:

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

đầu ra là one, nhưng nếu mảng trông như thế này:

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

đầu ra là two.

Vì đây là code-golf , mã ngắn nhất tính bằng byte sẽ thắng.

Băng vệ sinh bắt buộc , 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.

Phiên bản trực tuyến

Ung dung:

Listan Pisin alkio trên riippuen siitä , onko sen ensimmäisenAlkion pituus suurempi tai yhtä suuri Kuin sen jokaisen Alkion pituus, Joko

• sen ensimmäinenkiềmio tai
• sen hännän pisin.

Phiên bản trực tuyến

Cơ hội chơi gôn duy nhất này là để thay thế pisin alkio(có nghĩa là "yếu tố dài nhất") x.

Dịch:

Mục dài nhất trong danh sách là, tùy thuộc vào độ dài của mục đầu tiên lớn hơn hoặc bằng độ dài của mỗi phần tử trong danh sách,

• mục đầu tiên trong danh sách, hoặc
• mục dài nhất trong đuôi của danh sách.

Python , 23 byte

lambda a:max(a,key=len)

Hãy thử trực tuyến!

Haskell , 35 byte

-3 byte nhờ Zgarb.

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

Hãy thử trực tuyến!

Tôi thích mã này. Bạn biết tại sao mà? Bởi vì Haskell hỗ trợ các giải pháp thanh lịch hơn nhiều với các chức năng từ các thư viện ngẫu nhiên.

maximumBy(compare`on`length).reverse

Đó là friggin 'có thể đọc được! Ngoại trừ, nó không hợp lệ.

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

Nếu không phải là hàng nhập khẩu, đây sẽ là một bản hoàn hảo để nhận tất cả các ưu đãi. : P

(Ngoài ra, điều này sử dụng một mẹo chơi golf và nó sử dụng một nếp gấp.)

R + pryr , 31 byte

[-2 byte nhờ Scrooble]

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

Hãy thử trực tuyến!

R , 33 byte

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

Hãy thử trực tuyến!

VƯỢT TRỘI, 36 42 byte

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

Được nhập dưới dạng công thức mảng (ctrl-shift-enter). Mảng đầu vào phải được nhập vào cột A.

Công thức trả về trận đấu đầu tiên với độ dài tối đa.

Tùy thuộc vào cài đặt khu vực của bạn, thay thế ,bằng ;; chiều dài mã không thay đổi. Trong số 16 ngôn ngữ được liệt kê ở đây , tên hàm tiếng Anh là ngắn nhất cho công thức này.

Giải trình:

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

⊢⊃⍨∘⊃∘⍒≢¨

Hãy thử trực tuyến!

⊢ từ đối số,

⊃⍨ chọn phần tử có chỉ mục là

⊃ đầu tiên của

⍒ các chỉ số theo thứ tự giảm dần của

≢¨ độ dài của mỗi

Prolog (SWI) , 98 92 72 69 byte

Vị ngữ cấp cao nhất là *.

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

Hãy thử trực tuyến!

Giải trình

Hàng đầu tiên định nghĩa vị từ dyadic /là viết tắt củaatom_length/2 , điều này đúng nếu độ dài của đối số thứ nhất là đối số thứ hai. Điều này giúp chúng tôi tiết kiệm 3 byte khi sử dụng atom_lengthhai lần.

Vị ngữ chính của chúng tôi được định nghĩa là dyadic * trong đó đối số thứ nhất là danh sách và đối số thứ hai là phần tử dài nhất của danh sách đó.

Hàng thứ hai là trường hợp cơ sở của chúng tôi nói rằng phần tử dài nhất của danh sách một phần tử là phần tử đó.

Hàng thứ ba nói rằng đối với một danh sách có ít nhất 2 phần tử, phần tử dài nhất là:

Nếu độ dài của phần tử thứ hai dài hơn phần tử thứ nhất, phần tử dài nhất nằm trong danh sách không có phần tử thứ nhất.

Mặt khác, phần tử dài nhất nằm trong danh sách mà không có phần tử thứ hai.

Bình thường , 4 byte

h.Ml

Bộ thử nghiệm.

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]

Hãy thử trực tuyến!

Có đầu vào $args[0], đường ống mà Sort-Objectdựa trên length theo -dthứ tự tăng dần. Sau đó lấy cái [0]thứ đó. Vì sắp xếp ổn định, điều này có yếu tố đầu tiên trong trường hợp hòa.

Octave , 33 byte

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

Đầu vào là một mảng ô của chuỗi.

Hãy thử trực tuyến!

Giải trình

cellfun(@nnz,x)áp dụng nnzhàm (số lượng khác không) cho mỗi chuỗi trong mảng đầu vào x. Đối với chuỗi ASCII, nnztương đương với numel(số phần tử), nhưng ngắn hơn. Kết quả là một mảng số với độ dài chuỗi.

Sau đó, [~,]=max(...)đưa ra chỉ số của mức tối đa đầu tiên trong mảng độ dài chuỗi. Kết quả được sử dụng như một chỉ số nẹp cong xđể có được chuỗi tương ứng.

JavaScript (Node.js) , 38 byte

Hãy thử trực tuyến!

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

J , 19, 11, 10 8 byte

0{>\:#@>

Hãy thử trực tuyến!

Cảm ơn streetster cho gợi ý!

-1 byte nhờ FrownyFrog!

-2 byte nhờ Conor O'Brien

Làm thế nào nó hoạt động:

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

Hãy thử trực tuyến!

C #, 43 + 18 = 61 byte

Hãy thử trực tuyến!

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

Perl 6 ,  14  13 byte

*.max(*.chars)

Thử nó

*.max(&chars)

Thử nó

PHP, 72 byte

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

Japt -h, 5 3 byte

ÔñÊ

Thử nó

Đảo ngược, sắp xếp theo chiều dài và xuất phần tử cuối cùng.

Swift , 54 byte

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

Hãy thử trực tuyến!

K (oK) , 9 byte

*x@>#:'x:

Hãy thử trực tuyến!

Thí dụ:

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

Giải trình

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

Ghi chú:

Không bị xóa vì điều này được phân loại là không tầm thường, mặc dù về cơ bản là 5 bước (sẽ được viết là hàm {*x@>#:'x}).

Java (OpenJDK 8) , 67 byte

Một đệ trình trong ngôn ngữ yêu thích của tôi! (đọc: người duy nhất tôi biết).
Điều này không hoạt động với một mảng trống, nhưng điều đó tốt.

Chơi gôn

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

Bị đánh cắp

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.

Hãy thử trực tuyến!

Vợt , 160 byte 110 byte

Hãy thử trực tuyến! Lần đầu đóng góp, tư vấn đánh giá cao!

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

Bị đánh cắp

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

Giải pháp cập nhật dựa trên phản hồi

Bash , 45 byte

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

Hãy thử trực tuyến!

Cào 27 17 170 160

Nó hy vọng một danh sách toàn cầu (được đính kèm với tất cả các sprite, chính xác hơn) các chuỗi được gọi mylist. Sau khi nhấp vào cờ màu xanh lá cây, từ dài nhất sẽ được để lại trong biến w.

Tôi nghĩ rằng đây là liên kết

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

Đếm theo meta này.

Röda , 30 byte

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

Hãy thử trực tuyến!

Giải trình:

{
 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 byte thay thế:

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

Hãy thử trực tuyến!

APL - 23 16 byte

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

Cảm ơn tất cả mọi người cho tất cả các đề xuất và khuyến khích tuyệt vời của bạn!

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

Sử dụng:

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

Giải trình:

được độ dài của mỗi vectơ ký tự (chuỗi) sau đó sử dụng tối đa làm chỉ mục. Tôi mới bắt đầu APL 20 phút trước vì vậy tôi rất tiếc nếu đây là một cách ngu ngốc để làm điều đó.

Hãy thử trực tuyến!

(chỉnh sửa cho rõ ràng)

ML chuẩn (MLton) , 55 byte

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

Hãy thử trực tuyến! Ví dụ sử dụng: & ["abc","de","fgh"]sản lượng "abc".

Ung dung:

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

Hãy thử trực tuyến!

Julia 0,6 , 24 byte

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

Hãy thử trực tuyến!

Funky , 38 byte

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

Giải thích

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.

Hãy thử trực tuyến!

Ruby , 21 20 byte

->s{s.max_by &:size}

Hãy thử trực tuyến!

Giải pháp tầm thường, cảm ơn Snack cho -1 byte

SNOBOL4 (CSNOBOL4) , 63 57 byte

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

Hãy thử trực tuyến!

Đầu vào là trên stdin và đầu ra trên thiết bị xuất chuẩn.

Tạm dịch sang mã giả sau:

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

Bash , 44 byte

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

Hãy thử trực tuyến!