도전 과제는 문자열 배열을 가져 와서 배열에서 가장 긴 문자열을 출력하는 것입니다. 그래서

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

출력은입니다 biggest.

배열의 두 요소 길이가 동일한 경우 배열에서 처음 나타나는 요소를 선택해야합니다. 즉, 배열이 다음과 같은 경우

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

출력은 one이지만 배열이 다음과 같은 경우

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

출력은 two입니다.

이것이 code-golf 이므로 바이트 단위의 가장 짧은 코드가 이깁니다.

명령형 탐 피오 , 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.

온라인 버전

언 골프 드 :

Listan 피진어 alkio 에 riippuen siitä , onko 센 ensimmäisenalkion pituus suurempi 타이 yhtä suuri kuin 센 jokaisen alkion pituus, joko는

• 센 ensimmäinen알키 오 타이
• sen hännän pisin alkio.

온라인 버전

이것이 유일한 골프 기회는 pisin alkio( "가장 긴 요소"를 의미 )로 교체 하는 것입니다 x.

번역:

목록에서 가장 긴 항목은 첫 번째 항목의 길이가 목록의 각 요소의 길이보다 크거나 같은지 여부에 따라

• 목록의 첫 번째 항목 또는
• 목록의 가장 긴 항목입니다.

파이썬 , 23 바이트

lambda a:max(a,key=len)

온라인으로 사용해보십시오!

하스켈 , 35 바이트

Zgarb 덕분에 -3 바이트.

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

온라인으로 사용해보십시오!

나는이 코드를 좋아한다. 왜 그런지 알아? Haskell은 임의 라이브러리의 함수를 사용하여 훨씬 더 우아한 솔루션을 지원하기 때문입니다.

maximumBy(compare`on`length).reverse

그거 읽기 쉬워! 그렇지 않으면 유효하지 않습니다.

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

수입품이 아니었다면 이것은 모든 공감대를 얻기위한 완벽한 제출일 것입니다. :피

(또한,이 용도로 한 골프 팁 과 는 접이식를 사용한다.)

R + pryr , 31 바이트

[스크루 블 덕분에 2 바이트]

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

온라인으로 사용해보십시오!

R , 33 바이트

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

온라인으로 사용해보십시오!

뛰어나다, 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

⊢⊃⍨∘⊃∘⍒≢¨

온라인으로 사용해보십시오!

⊢ 논쟁에서

⊃⍨ 색인이있는 요소를 선택하십시오.

⊃ 첫 번째

⍒ 내림차순 인덱스

≢¨ 각각의 길이

프롤로그 (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 술어 /를 short로 정의합니다 atom_length/2. 첫 번째 인수의 길이가 두 번째 인수 인 경우 참입니다. 이렇게하면 atom_length두 번 사용하면 3 바이트가 절약 됩니다.

우리의 주요 술어는 *첫 번째 인수가 목록이고 두 번째 인수가 해당 목록의 가장 긴 요소 인 이진으로 정의됩니다 .

두 번째 행은 하나의 요소 목록에서 가장 긴 요소가 해당 요소라는 기본 사례입니다.

세 번째 행은 요소가 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]

온라인으로 사용해보십시오!

ength $args[0]를 Sort-Object기준으로 오름차순 으로 입력 파이프를 가져옵니다. 그런 다음 그 중 하나를 가져갑니다 . 정렬이 안정적이므로 동점 일 경우 첫 번째 요소가 필요합니다.l-d[0]

옥타브 , 33 바이트

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

입력은 문자열의 셀형 배열입니다.

온라인으로 사용해보십시오!

설명

cellfun(@nnz,x)nnz입력 배열의 각 문자열에 함수 (0이 아닌 수)를 적용합니다 x. ASCII 문자열을, nnz동등 numel(요소 수), 짧은. 결과는 문자열 길이를 가진 숫자 형 배열입니다.

그런 다음 [~,]=max(...)문자열 길이 배열에서 첫 번째 최대 인덱스를 제공합니다. 결과는 x해당 문자열을 얻기 위해 중괄호 색인으로 사용됩니다 .

자바 스크립트 (Node.js) , 38 바이트

온라인으로 사용해보십시오!

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

J , 19, 11, 10 8 바이트

0{>\:#@>

온라인으로 사용해보십시오!

힌트를위한 streetster에게 감사합니다!

FrownyFrog 덕분에 -1 바이트!

Conor O'Brien 덕분에 -2 바이트

작동 방식 :

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

펄 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 바이트

ÔñÊ

시도 해봐

길이를 반대로하여 마지막 요소를 출력합니다.

스위프트 , 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}.

자바 (OpenJDK 8) , 67 바이트

내가 가장 좋아하는 언어로 된 또 다른 제출! (읽기 : 내가 아는 유일한 사람).
이것은 빈 배열에서는 작동하지 않지만 괜찮습니다.

골프

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

언 골프

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

언 골프

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

피드백을 기반으로 업데이트 된 솔루션

배쉬 , 45 바이트

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

온라인으로 사용해보십시오!

스크래치 27 17170160

전역 (모든 스프라이트에 연결되어보다 정확할 것)이라는 문자열 목록이 필요 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

이 메타에 따라 계산합니다 .

로다 , 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'

설명:

각 문자 벡터의 길이 (문자열)를 가져온 다음 최대 값을 색인으로 사용합니다. 방금 20 분 전에 APL을 시작 했으므로 이것이 어리석은 방법이라면 유감입니다.

온라인으로 사용해보십시오!

(명확성을 위해 편집 됨)

표준 ML (MLton) , 55 바이트

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

온라인으로 사용해보십시오! 사용법 예 : & ["abc","de","fgh"]yields "abc".

언 골프 드 :

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.

온라인으로 사용해보십시오!

루비 , 21 20 바이트

->s{s.max_by &:size}

온라인으로 사용해보십시오!

사소한 솔루션, -1 바이트에 대한 스낵 감사

SNOBOL4 (CSNOBOL4) , 63 57 바이트

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

온라인으로 사용해보십시오!

입력이 stdin에 있고 출력이 stdout에 있습니다.

대략 다음 의사 코드로 변환됩니다.

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

배쉬 , 44 바이트

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

온라인으로 사용해보십시오!