도전

Robin은 변수를 화살표 모양으로 선언하는 것을 좋아합니다. 그가하는 방법은 다음과 같습니다.

• 임의 개수의 문자열 입력
• 오름차순으로 주문

• 다음과 같이 음의 화살촉을 형성하기 위해 중간 순서로 출력하십시오 (골프가 가장 좋은 순서).

  5  or  4
  3      2
  1      1
  2      3
  4      5
  

테스트 사례

입력:

bow
arrows
sheriffOfNottingham
kingRichard
maidMarian
princeJohn
sherwoodForest

산출:

sheriffOfNottingham
kingRichard
maidMarian
bow
arrows
princeJohn
sherwoodForest

입력:

a
bb
cc

출력 (둘 다 유효) :

bb
a
cc

cc
a
bb

입력:

one
four
seven
fifteen

가능한 출력 (유일한 다른 유효한 출력은 수직 미러입니다) :

seven
one
four
fifteen

노트

• 문자열은 camelCase에 있으며 숫자 나 특수 문자가 없으며 소문자와 대문자 만 있습니다.

• 입력은 원하는 것이 될 수 있습니다. 하나의 문자열, 배열로 쉼표로 구분되며 모든 I / O 형식이 허용됩니다.

• 길이가 같은 문자열 사이에서는 모든 순서가 허용됩니다.

파이썬 2 , 47 바이트

lambda l:l.sort(key=len)or l[1::2][::-1]+l[::2]

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

R , 63 48 바이트

function(L)c(rev(o<-L[order(nchar(L))]),o)[!0:1]

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

문자열 길이별로 정렬 한 다음 반전 된 목록을 정렬 된 목록과 결합하고 마지막으로 1 기반 인덱스 1에서 시작하여 두 번째 요소마다 가져옵니다.

자바 스크립트 77 바이트

입력을 문자열 배열로 가져 와서 화살표로 정렬 된 문자열 배열을 출력합니다.

s=>s.sort((a,b)=>a.length-b.length).reduce((m,x,i)=>i%2?[...m,x]:[x,...m],[])

설명

s =>                                 // take input as an array of strings s
  s.sort((a,b)=>a.length-b.length)   // sort input by string length
  .reduce(                           // reduce
    (m,x,i)=>i%2?[...m,x]:[x,...m],  // if index is even, stick string x at the end of the memo
                                     // array, else at the beginning
    []                               // memo initialized to empty array
  )

C # (Visual C # 대화식 컴파일러) , 89 바이트

n=>(n=n.OrderBy(x=>x.Length)).Where((a,b)=>b%2>0).Reverse().Concat(n.Where((a,b)=>b%2<1))

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

K (oK) , 24 바이트

해결책:

x(<#:'x)(|&~w),&w:2!!#x:

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

설명:

6 4 2 0 1 3 5시퀀스를 생성하고이를 사용하여 오름차순 입력 길이로 색인화하고이를 사용하여 원래 배열로 색인화하십시오.

x(<#:'x)(|&~w),&w:2!!#x: / the solution
                      x: / save input as x
                     #   / count (#) of x
                    !    / range 0 to ...
                  2!     / modulo 2
                w:       / save as w
               &         / indices where true
              ,          / join with
        (    )           / do this together
           ~w            / not (~) w
          &              / indices where true
         |               / reverse
 (     )                 / do this together
   #:'x                  / count (#:) of each (') x
  <                      / indices to sort ascending
x                        / index into x

젤리 , 9 8 바이트

LÞŒœm"-Ẏ

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

LÞŒœṚ;¥/

또한 8 바이트입니다.

@EriktheOutgolfer와 @JonathanAllan에게 바이트를 절약 할 수있는 골프를 제공 한 덕분입니다.

루비 , 51 바이트

->l{r=1;l.sort_by!(&:size).map{l[r-=2]||(l*2)[~r]}}

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

05AB1E , 6 5 바이트

Kevin Cruijssen 덕분에 1 바이트 절약

I / O는 문자열 목록입니다.
쉬운 테스트를 위해 개행으로 구분 된 I / O에 대한 링크가 수정되었습니다.

éι`Rì

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

설명

é       # sort by length ascending
 ι      # uninterleave into 2 parts, both sorted ascending
   `    # push the 2 parts separately to the stack
    R   # reverse the second part
     ì  # and append it to the first

J , 11 바이트

,~`,/@\:#&>

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

우리는 먼저 그것을 분류합니다.

그런 다음 목록 양식을 오른쪽에서 왼쪽으로 줄이지 만 새 요소를 놓을 쪽을 번갈아 가며 바꿉니다. 끝난.

PowerShell , 66 바이트

1..($a=$args|sort l*).count|?{$_%2}|%{$a[-$_];$x=,$a[-++$_]+$x};$x

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

스 플리 팅을 통해 입력을 가져옵니다. 이는 TIO에서 별도의 명령 줄 인수로 나타납니다. ength sort에 s를 l저장 하고 에 입력 문자열 $a의 범위를 1구성합니다 count. 그런 다음 홀수 항목 만 꺼내 ?{$_%2}루프에 넣습니다 |%{...}. 반복 할 때마다 "마지막", "마지막에서 세 번째"등을 파이프 라인에 배치합니다 $a[-$_]. 별도로, 우리는 또한 $x"마지막부터 두 번째", "마지막에서 네 번째"등 으로 누적됩니다 . 루프에서 빠져 나와 파이프 라인이 플러시되고 (그러한 요소가 출력 됨) 출력 $x됩니다. 두 경우 모두 기본 출력은 항목 사이에 줄 바꿈을 자동으로 제공합니다.

PHP ,144 141 바이트

function($a){usort($a,function($b,$c){return strlen($b)-strlen($c);});$e=[];foreach($a as$d)(array_.[unshift,push][++$i%2])($e,$d);return$e;}

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

덕분에 -3 바이트 @Ismael Miguel !

MATLAB, 87 바이트

function f(y);[B,I]=sort(cellfun(@(x)length(x),y));{y{flip(I(1:2:end))},y{I(2:2:end)}}'

입력을 문자열의 셀형 배열로 사용하고 문자열 열을 출력합니다 (적합한 지 확실하지 않음)

> s = {'qweq qwe qw','qweqw','12132132131231231','asdasdasda','qwe','w'};
> f(s)
> >> 
> ans =
> 
>   6×1 cell array
> 
>     {'qweq qwe qw'      }
>     {'qweqw'            }
>     {'qwe'              }
>     {'1234'             }
>     {'asdasdasda'       }
>     {'12132132131231231'}

추신 : 홀수 길이의 입력으로 버그를 지적 해 주셔서 감사합니다.

APL (Dyalog Unicode) , 18 바이트 ^SBCS

{⍵[⍋-@(2∘|)⍋⍋≢¨⍵]}

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

@ngn 덕분에 버그가 수정되었습니다.

설명:

{⍵[⍋-@(2∘|)⍋⍋≢¨⍵]}
{                } ⍝ Function. Takes a single argument: ⍵, list of strings
             ≢¨⍵   ⍝ The length of each element in the list
           ⍋⍋      ⍝ Sort the lengths
    -@(2∘|)        ⍝ At (@) elements divisible by 2 (|), negate (-)
                   ⍝     gives -1 2 -3 4 -5
   ⍋               ⍝ Sort this list again, gives the indices of that list ^ sorted
 ⍵[             ]  ⍝ Use these indices to index into the argument

¹

APL + WIN, 31 38 바이트

Adams 의견보기

⊃n[(⍳⍴n)~a],⌽n[a←2×⍳⌊.5×⍴n←n[⍒∊⍴¨n←⎕]]

온라인 Dyalog Classic에서 제공합니다!

중첩 된 문자열 벡터를 요구하는 프롬프트

망막 , 26 바이트

N$`
$.&
*\,2,^A`.+
,2,G`.+

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

N$`
$.&

줄을 길이의 오름차순으로 정렬합니다 (줄 길이를 $.&반환).

*\,2,^A`.+

대체 행을 임시로 삭제하고 나머지 행을 역순으로 출력하십시오.

,2,G`.+

일시적으로 삭제 된 행만 유지하고 출력하십시오.

Gaia , 10 바이트

el∫v:v+2%ụ

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

e		| eval as Gaia code (list of strings)
 l∫		| ∫ort by lengths (ascending)
   v:v		| reverse, dup, reverse
      +		| concatenate lists
       2%	| take every other element
         ụ	| join by newlines and output

apt, 8 바이트

ñÊó g0_w

Shaggy 덕분에 -3 바이트!

시도 해봐

PowerShell , 49 바이트

$args|sort l*|sort{$_.Length*($global:x=-$x*2+1)}

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

이중 증류 .

T-SQL, 84 바이트

입력은 테이블 변수입니다

SELECT a FROM(SELECT*,row_number()over(order by len(a))r
FROM @)x order by(r%2-.5)*r

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

펄 6 , 31 바이트

*.sort(&chars).sort:{$++%2*$--}

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

문자열 길이를 기준으로 정렬 한 다음 정적 시퀀스 0, -1, 0, -3, 0, -5, ...

자바 스크립트 95 바이트

s=>s.sort((x,y)=>x.length-y.length).reduce((a,e,i)=>{i%2?a.push(e):a.unshift(e);return a;},[]);

빨강 , 116 101 바이트

func[b][sort/compare b func[x y][(length? x)> length? y]collect[forall b[keep take b]keep reverse b]]

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

펄 5 ( -p0777F/\n/ -M5.01), 59 바이트

for$x(sort{$b=~y///c-length$a}@F){--$|?$\="$x
".$\:say$x}}{

TIO

C (gcc) , 136128 바이트

S(a,b)int**a,**b;{a=strlen(*b)-strlen(*a);}f(l,s,o,i,b,e)int**s,**o;{qsort(s,l,8,S);e=l-1;for(i=b=0;i-l;)o[i++%2?b++:e--]=s[i];}

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

ceilingcat 덕분에 -8 바이트

기능 f은 솔루션입니다. 문자열 수, 문자열 자체 및 출력 버퍼를 인수로 사용합니다 (내부적으로 4 개 더 사용됨).

Japt , 8 바이트

행의 배열로 입력하고 목록의 각 절반에 대해 하나씩 두 행의 배열로 출력합니다.

ñÊó
hUÎÔ

시도 해봐 (개행으로 구분 된 문자열로 I / O를 허용하는 추가 코드)

ñÊó      :Implicit input of array U
ñ        :Sort by
 Ê       :  Length
  ó      :Uninterleave

hUÎÔ     :Newline reassigns to U
h        :Set the first element in U to
 UÎ      :  The first element in U
   Ô     :  Reversed

하스켈 , 104 96 바이트

import Data.List
f s=splitAt((length s+1)`div`2)s
g=sortOn length
h(x,y)=reverse(g x)++g y
z=h.f

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