Thử thách

Robin thích khai báo các biến của mình theo hình mũi tên. Đây là cách anh ấy làm điều đó:

• Nhập bất kỳ số lượng chuỗi
• Đặt hàng chúng theo chiều dài tăng dần

• Xuất chúng theo thứ tự ở giữa để tạo thành một đầu mũi tên âm, như thế này (tùy theo thứ tự golf tốt nhất):

  5  or  4
  3      2
  1      1
  2      3
  4      5
  

Các trường hợp thử nghiệm

Đầu vào:

bow
arrows
sheriffOfNottingham
kingRichard
maidMarian
princeJohn
sherwoodForest

Đầu ra:

sheriffOfNottingham
kingRichard
maidMarian
bow
arrows
princeJohn
sherwoodForest

Đầu vào:

a
bb
cc

Đầu ra (cả hai đều hợp lệ):

bb
a
cc

cc
a
bb

Đầu vào:

one
four
seven
fifteen

Đầu ra có thể (chỉ đầu ra hợp lệ khác là gương dọc của nó):

seven
one
four
fifteen

Ghi chú

• Các chuỗi nằm trong camelCase và không có số hoặc ký tự đặc biệt, chỉ có chữ thường và chữ in hoa.

• Đầu vào có thể là bất cứ thứ gì bạn thích: được phân tách bằng dấu phẩy dưới dạng một chuỗi, mảng, ... Bất kỳ định dạng I / O nào đều được phép.

• Giữa các chuỗi có cùng độ dài, bất kỳ thứ tự nào được chấp nhận.

Python 2 , 47 byte

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

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

R , 63 48 byte

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

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

Sắp xếp theo độ dài chuỗi, sau đó kết hợp danh sách đảo ngược với danh sách được sắp xếp, cuối cùng, lấy mọi phần tử thứ 2, bắt đầu từ chỉ số 1 dựa trên 1.

Javascript 77 byte

Lấy đầu vào là một chuỗi các chuỗi, xuất ra một chuỗi các chuỗi được sắp xếp theo mũi tên.

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

Giải trình

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 # (Trình biên dịch tương tác Visual C #) , 89 byte

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

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

K (oK) , 24 byte

Dung dịch:

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

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

Giải trình:

Tạo 6 4 2 0 1 3 5chuỗi, sử dụng chuỗi đó để lập chỉ mục theo chiều dài tăng dần của đầu vào và sử dụng chuỗi đó để lập chỉ mục vào mảng ban đầu:

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

Thạch , 9 8 byte

LÞŒœm"-Ẏ

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

LÞŒœṚ;¥/

cũng là 8 byte.

Cảm ơn @EriktheOutgolfer và @Jonathan ALLan vì cả hai cung cấp golf để tiết kiệm một byte.

Ruby , 51 byte

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

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

05AB1E , 6 5 byte

Đã lưu 1 byte nhờ Kevin Cruijssen

I / O là một danh sách các chuỗi.
Liên kết được sửa đổi cho I / O được phân tách dòng mới để kiểm tra dễ dàng hơn.

éι`Rì

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

Giải trình

é       # 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 byte

,~`,/@\:#&>

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

Chúng tôi sắp xếp nó xuống đầu tiên.

Sau đó, chúng tôi giảm mẫu danh sách từ phải sang trái, nhưng xen kẽ bên nào chúng tôi đặt phần tử mới vào. Làm xong.

PowerShell , 66 byte

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

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

Đưa đầu vào thông qua tính năng ghép hình, biểu hiện trên TIO dưới dạng đối số dòng lệnh riêng biệt. sorts trên length, lưu trữ nó vào $avà xây dựng một phạm vi từ 1lên đến các countchuỗi đầu vào. Sau đó chúng tôi chỉ rút ra những cái lẻ ?{$_%2}và đưa chúng vào một vòng lặp |%{...}. Mỗi lần lặp lại, chúng tôi đặt "lần cuối", rồi "lần thứ ba từ lần cuối", và cứ thế tiếp tục với đường ống dẫn $a[-$_]. Một cách riêng biệt, chúng tôi cũng tích lũy vào $x"thứ hai từ cuối", "thứ tư từ cuối", v.v ... Ra khỏi vòng lặp và đường ống được tuôn ra (vì vậy các yếu tố đó là đầu ra) và sau đó chúng tôi xuất ra $x. Trong cả hai trường hợp, đầu ra mặc định cung cấp cho chúng tôi dòng mới giữa các mục tự động.

PHP ,144 141 byte

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

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

-3 byte nhờ @Ismael Miguel !

MATLAB, 87 byte

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

Lấy đầu vào là mảng ô của chuỗi, đầu ra cột của chuỗi (không chắc chắn nếu đó là hợp pháp)

> 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: Cảm ơn Sanchises đã chỉ ra một lỗi với đầu vào có độ dài lẻ

APL (Dyalog Unicode) , 18 byte ^SBCS

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

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

Đã sửa lỗi nhờ @ngn.

Giải trình:

{⍵[⍋-@(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 + THẮNG, 31 38 byte

Xem bình luận của Adams

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

Hãy dùng thử trực tuyến Lịch sự của Dyalog Classic!

Lời nhắc cho một vectơ lồng nhau của chuỗi

Võng mạc , 26 byte

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

Hãy thử trực tuyến! Giải trình:

N$`
$.&

Sắp xếp các dòng theo thứ tự tăng dần về chiều dài ( $.&trả về độ dài của dòng).

*\,2,^A`.+

Tạm thời xóa các dòng thay thế và xuất các dòng còn lại theo thứ tự ngược lại.

,2,G`.+

Giữ các dòng duy nhất đã bị xóa tạm thời và xuất chúng.

Gaia , 10 byte

el∫v:v+2%ụ

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

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 byte

ñÊó g0_w

-3 byte nhờ Shaggy!

Thử nó

PowerShell , 49 byte

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

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

Việc chưng cất đôi .

T-SQL, 84 byte

Đầu vào là một biến bảng

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

Dùng thử trực tuyến

Perl 6 , 31 byte

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

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

Sắp xếp theo độ dài chuỗi, sau đó theo chuỗi tĩnh 0, -1, 0, -3, 0, -5, ...

Javascript 95 byte

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

Màu đỏ , 116 101 byte

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

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

perl 5 ( -p0777F/\n/ -M5.01), 59 byte

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

TIO

C (gcc) , 136 128 byte

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];}

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

-8 byte nhờ vào trần nhà.

Chức năng flà giải pháp. Nó lấy số lượng chuỗi, chính chuỗi và bộ đệm đầu ra làm đối số (cộng thêm bốn chuỗi được sử dụng nội bộ).

Japt , 8 byte

Nhập dưới dạng một mảng các dòng, đầu ra là một mảng gồm 2 mảng dòng, một cho mỗi nửa của danh sách.

ñÊó
hUÎÔ

Hãy thử nó (Mã bổ sung để cho phép I / O dưới dạng chuỗi phân tách dòng mới)

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

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

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