ความท้าทายของคุณคือการใช้อาร์เรย์ของสตริงและส่งออกสตริงที่ยาวที่สุดในอาร์เรย์ ดังนั้นสำหรับ

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

biggestการส่งออกจะเป็น

หากสององค์ประกอบของอาร์เรย์มีความยาวเท่ากันคุณควรเลือกองค์ประกอบที่ปรากฏขึ้นเป็นลำดับแรกในอาร์เรย์ นั่นหมายความว่าถ้าอาร์เรย์มีลักษณะดังนี้:

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

ผลลัพธ์คือoneแต่ถ้าอาร์เรย์มีลักษณะเช่นนี้:

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

twoผลลัพธ์คือ

เช่นนี้คือcode-golfรหัสที่สั้นที่สุดเป็นไบต์จะเป็นผู้ชนะ

Tampio ที่จำเป็น , 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:

รายชื่ออัลคาไลน์ pisin บน 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

เวอร์ชั่นออนไลน์

โอกาสเดียวเล่นกอล์ฟแห่งนี้คือการเปลี่ยนpisin alkio(หมายถึง "องค์ประกอบที่ยาวที่สุด") xด้วย

แปล:

รายการที่ยาวที่สุดในรายการขึ้นอยู่กับว่าความยาวของรายการแรกมากกว่าหรือเท่ากับความยาวของแต่ละองค์ประกอบในรายการ

• รายการแรกในรายการหรือ
• รายการที่ยาวที่สุดในส่วนท้ายของรายการ

Pythonขนาด 23 ไบต์

lambda a:max(a,key=len)

ลองออนไลน์!

Haskell , 35 ไบต์

-3 ไบต์ขอบคุณ Zgarb

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

ลองออนไลน์!

ฉันชอบรหัสนี้ คุณรู้ว่าทำไม? เนื่องจาก Haskell สนับสนุนโซลูชันที่หรูหรากว่าพร้อมฟังก์ชันจากไลบรารีแบบสุ่ม

maximumBy(compare`on`length).reverse

นั่นคือ friggin 'อ่านได้! ยกเว้นมันไม่ถูกต้อง

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

หากไม่ใช่เพื่อการนำเข้านี่จะเป็นการส่งที่สมบูรณ์แบบเพื่อรับ upvotes ทั้งหมด : P

(นอกจากนี้ยังใช้เคล็ดลับการเล่นกอล์ฟเดียวและใช้การพับ)

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) อาเรย์อินพุตควรถูกป้อนในคอลัมน์ A

สูตรส่งคืนคู่แรกที่มีความยาวสูงสุด

ขึ้นอยู่กับการตั้งค่าภูมิภาคของคุณแทนที่,ด้วย;; ความยาวรหัสยังคงไม่เปลี่ยนแปลง จาก 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

⊢⊃⍨∘⊃∘⍒≢¨

ลองออนไลน์!

⊢ จากการโต้แย้ง

⊃⍨ เลือกองค์ประกอบด้วยดัชนีซึ่งเป็น

⊃ ครั้งแรกของ

⍒ ดัชนีตามลำดับจากมากไปน้อยของ

≢¨ ความยาวของแต่ละ

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

ลองออนไลน์!

คำอธิบาย

แถวแรกจะกำหนดเพรดิเคตของ dyadic /ให้สั้นatom_length/2ซึ่งเป็นจริงถ้าความยาวของอาร์กิวเมนต์แรกคืออาร์กิวเมนต์ที่สอง สิ่งนี้ช่วยให้เราประหยัดได้ 3 ไบต์เมื่อใช้atom_lengthสองครั้ง

เพรดิเคตหลักของเราถูกกำหนดให้เป็น dyadic *โดยที่อาร์กิวเมนต์แรกคือรายการและอาร์กิวเมนต์ที่สองคือองค์ประกอบที่ยาวที่สุดของรายการนั้น

แถวที่สองคือกรณีพื้นฐานของเราซึ่งระบุว่าองค์ประกอบที่ยาวที่สุดของรายการองค์ประกอบหนึ่งคือองค์ประกอบนั้น

แถวที่สามระบุว่าสำหรับรายการที่มีองค์ประกอบอย่างน้อย 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ฟังก์ชั่น (จำนวน nonzeros) 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{>\:#@>

ลองออนไลน์!

ขอบคุณสำหรับนักตามคำแนะนำ!

-1 ไบต์ขอบคุณ FrownyFrog!

-2 ไบต์ขอบคุณ Conor O'Brien

มันทำงานอย่างไร:

    (  #@>) - 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 (oK) , 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

หมายเหตุ:

ไม่ถูกลบเนื่องจากนี่ถูกจัดว่าเป็นเรื่องไม่สำคัญแม้จะเป็นเพียง 5 ขั้นตอน (ถ้าเขียนเป็นฟังก์ชัน{*x@>#:'x})

Java (OpenJDK 8) , 67 ไบต์

อีกการส่งในภาษาที่ฉันชอบ! (อ่าน: ฉันคนเดียวเท่านั้นที่รู้)
สิ่งนี้ใช้ไม่ได้กับอาเรย์ที่ว่างเปล่า แต่ก็ใช้ได้

แข็งแรงเล่นกอล์ฟ

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

โซลูชันที่อัปเดตขึ้นอยู่กับข้อเสนอแนะ

Bashขนาด 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

นับตามเมตานี้

Röda 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

ลองออนไลน์!

Julia 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.

ลองออนไลน์!

Ruby , 21 20 ไบต์

->s{s.max_by &:size}

ลองออนไลน์!

วิธีแก้ปัญหาเล็กน้อยขอบคุณ Snack สำหรับ -1 ไบต์

SNOBOL4 (CSNOBOL4) , 63 57 ไบต์

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

ลองออนไลน์!

อินพุตอยู่บน stdin และเอาต์พุตเมื่อ stdout

แปลเป็น pseudocode อย่างคร่าวๆ:

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

Bash , 44 ไบต์

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

ลองออนไลน์!