チャレンジ

ロビンは、変数宣言を矢印の形にすることが好きです。彼のやり方は次のとおりです。

• 任意の数の文字列を入力してください
• 長さを昇順に並べる

• 次のように、中央で順序付けられた出力を出力し、おおよそマイナスの矢印を形成します（ゴルフの順序が最も良い場合）。

  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にあり、数字や特殊文字は使用せず、小文字と大文字のみを使用します。

• 入力には任意の名前を指定できます。1つの文字列、配列などとしてコンマで区切られます...任意のI / O形式が許可されます。

• 同じ長さの文字列の間では、任意の順序が受け入れられます。

Python 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から2番目の要素をすべて取得します。

Javascript 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＃Interactive Compiler）、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に、バイトを節約するためのゴルフを提供してくれてありがとう。

Ruby、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に個別のコマンドライン引数として現れます。sort長lさで$a、それをに格納し、入力文字列1までの範囲を構築しcountます。次に、奇数のもののみを引き出し、?{$_%2}それらをループに送ります|%{...}。反復ごとに、「最後」、次に「最後から3番目」などをパイプラインに配置し$a[-$_]ます。それとは別に、$x「最後から2番目」、「最後から4番目」などにも蓄積します。ループからパイプラインがフラッシュされ（これらの要素が出力される）、それからを出力します$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;}

オンラインでお試しください！

@Ismael Miguelのおかげで-3バイト！

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'}

PS：奇数長入力のバグを指摘してくれたSanchisesに感謝

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バイト

アダムスのコメントを見る

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

Dyalog Classicのおかげでオンラインで試してみてください！

文字列のネストされたベクトルのプロンプト

網膜、26バイト

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

オンラインでお試しください！説明：

N$`
$.&

行を長さの昇順で並べ替え$.&ます（行の長さを返します）。

*\,2,^A`.+

代替行を一時的に削除し、残りの行を逆の順序で出力します。

,2,G`.+

一時的に削除された行のみを保持して出力します。

ガイア、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

Japt、8バイト

ñÊó g0_w

シャギーのおかげで-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

オンラインで試す

Perl 6、31バイト

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

オンラインでお試しください！

文字列の長さでソートし、次に静的シーケンス0、-1、0、-3、0、-5、...でソートします

Javascript 95バイト

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

赤、116101バイト

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

オンラインでお試しください！

perl 5（-p0777F/\n/ -M5.01）、59バイト

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

TIO

C（gcc）、136 128バイト

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バイト

入力は行の配列として、出力はリストの半分ごとに1つずつの2つの行の配列として出力されます。

ñÊó
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

Haskell、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

オンラインでお試しください！