Wyzwanie

Robin lubi mieć deklarację zmiennych w kształcie strzałki. Oto jak to robi:

• Wprowadź dowolną liczbę ciągów
• Uporządkuj je według rosnącej długości

• Wyjmij je uporządkowane pośrodku, aby z grubsza utworzyć ujemny grot strzałki, taki jak ten (w zależności od tego, która kolejność jest najlepsza):

  5  or  4
  3      2
  1      1
  2      3
  4      5
  

Przypadki testowe

Wkład:

bow
arrows
sheriffOfNottingham
kingRichard
maidMarian
princeJohn
sherwoodForest

Wydajność:

sheriffOfNottingham
kingRichard
maidMarian
bow
arrows
princeJohn
sherwoodForest

Wkład:

a
bb
cc

Dane wyjściowe (oba są prawidłowe):

bb
a
cc

cc
a
bb

Wkład:

one
four
seven
fifteen

Możliwe wyjście (jedynym innym prawidłowym wyjściem jest jego lustro pionowe):

seven
one
four
fifteen

Notatki

• Ciągi znaków są w camelCase i nie mają cyfr ani znaków specjalnych, tylko małe i wielkie litery.

• Dane wejściowe mogą być dowolne: rozdzielone przecinkami jako jeden ciąg, tablica, ... Dowolny format we / wy jest dozwolony.

• Między ciągami o tej samej długości akceptowane jest każde zamówienie.

Python 2 , 47 bajtów

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

Wypróbuj online!

R , 63 48 bajtów

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

Wypróbuj online!

Sortuj według długości łańcucha, a następnie połącz listę odwróconą z listą posortowaną, w końcu weź co drugi element, zaczynając od indeksu 1.

Javascript 77 bajtów

Pobiera dane wejściowe jako tablicę ciągów, wyświetla tablicę ciągów posortowaną strzałkami.

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

Wyjaśnienie

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 # (interaktywny kompilator Visual C #) , 89 bajtów

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

Wypróbuj online!

K (oK) , 24 bajty

Rozwiązanie:

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

Wypróbuj online!

Wyjaśnienie:

Wygeneruj 6 4 2 0 1 3 5sekwencję, użyj jej do indeksowania rosnących długości danych wejściowych i użyj tej do indeksowania do oryginalnej tablicy:

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

Galaretka , 9 8 bajtów

LÞŒœm"-Ẏ

Wypróbuj online!

LÞŒœṚ;¥/

ma również 8 bajtów.

Podziękowania dla @EriktheOutgolfer i @JonathanAllan za oboje oferowanie golfa w celu zaoszczędzenia bajtu.

Rubinowy , 51 bajtów

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

Wypróbuj online!

05AB1E , 6 5 bajtów

Zaoszczędził 1 bajt dzięki Kevinowi Cruijssenowi

I / O to lista ciągów.
Link został zmodyfikowany dla I / O oddzielonego znakiem nowej linii dla łatwiejszego testowania.

éι`Rì

Wypróbuj online!

Wyjaśnienie

é       # 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 bajtów

,~`,/@\:#&>

Wypróbuj online!

Najpierw uporządkujemy.

Następnie zmniejszamy formularz listy od prawej do lewej, ale naprzemiennie po której stronie umieszczamy nowy element. Gotowy.

PowerShell , 66 bajtów

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

Wypróbuj online!

Pobiera dane wejściowe przez rozpryskiwanie, które manifestuje się w TIO jako osobne argumenty wiersza poleceń. sorts na length, zapamiętuje to $ai konstruuje zakres od 1do countciągów wejściowych. Następnie wyciągamy tylko te nieparzyste ?{$_%2}i wprowadzamy je do pętli |%{...}. W każdej iteracji umieszczamy „ostatnią”, a następnie „trzecią od ostatniej” i tak dalej na rurociągu z $a[-$_]. Oddzielnie kumulujemy się również w $x„drugim od ostatniego”, „czwartym od ostatniego” itp. Poza pętlą i rurociąg jest opróżniany (więc te elementy są wyprowadzane), a następnie wyprowadzamy $x. W obu przypadkach domyślny wynik automatycznie podaje nam nowe wiersze między elementami.

PHP ,144 141 bajtów

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

Wypróbuj online!

-3 bajty dzięki @Ismael Miguel !

MATLAB, 87 bajtów

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

Pobiera dane wejściowe jako tablicę komórek ciągów, wypisuje kolumnę ciągów (nie jestem pewien, czy jest to zgodne z prawem)

> 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: Dzięki Sanchises za wskazanie błędu z nieparzystymi danymi wejściowymi

APL (Dyalog Unicode) , 18 bajtów ^SBCS

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

Wypróbuj online!

Naprawiono błąd dzięki @ngn.

Wyjaśnienie:

{⍵[⍋-@(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 bajtów

Zobacz komentarz Adamsa

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

Wypróbuj online Dzięki uprzejmości Dyalog Classic!

Monituje o zagnieżdżony wektor ciągów

Siatkówka , 26 bajtów

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

Wypróbuj online! Wyjaśnienie:

N$`
$.&

Sortuj linie w porządku rosnącym według długości ( $.&zwraca długość linii).

*\,2,^A`.+

Tymczasowo usuń alternatywne linie i wyślij pozostałe linie w odwrotnej kolejności.

,2,G`.+

Zachowaj jedyne wiersze, które zostały tymczasowo usunięte i wyślij je.

Gaia , 10 bajtów

el∫v:v+2%ụ

Wypróbuj online!

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 bajtów

ñÊó g0_w

-3 bajty dzięki Shaggy!

Spróbuj

PowerShell , 49 bajtów

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

Wypróbuj online!

Podwójna destylacja .

T-SQL, 84 bajty

Dane wejściowe to zmienna tabelowa

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

Wypróbuj online

Perl 6 , 31 bajtów

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

Wypróbuj online!

Sortuj według długości łańcucha, a następnie według sekwencji statycznej 0, -1, 0, -3, 0, -5, ...

JavaScript 95 bajtów

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

Czerwony , 116 101 bajtów

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

Wypróbuj online!

perl 5 ( -p0777F/\n/ -M5.01), 59 bajtów

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

TIO

C (gcc) , 136 128 bajtów

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

Wypróbuj online!

-8 bajtów dzięki pułapkowi cat.

Funkcja fjest rozwiązaniem. Jako argumenty przyjmuje liczbę ciągów, same ciągi i bufor wyjściowy (plus cztery dodatkowe używane wewnętrznie).

Japt , 8 bajtów

Dane wejściowe jako tablica wierszy, dane wyjściowe jako tablica 2 tablic wierszy, po jednej na każdą połowę listy.

ñÊó
hUÎÔ

Wypróbuj (Dodatkowy kod, aby zezwolić na operacje we / wy jako ciąg rozdzielany znakiem nowej linii)

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

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

Wypróbuj online!