Виклик

Робіну подобається, що його декларація змінних має форму стрілки. Ось як він це робить:

• Введіть будь-яку кількість рядків
• Упорядкуйте їх за зростанням по довжині

• Виведіть їх за дорученням до середини приблизно утворити негативну стрілку, як це (залежно від того, хто найкраще замовляє гольфи):

  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 і не мають цифр чи спеціальних символів, лише малі та великі літери.

• Вхід може бути будь-яким, що вам подобається: відокремлений комами як одна струна, масив, ... Дозволений будь-який формат вводу / виводу.

• Між рядками однакової довжини приймається будь-яке замовлення.

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]

Спробуйте в Інтернеті!

Сортувати за довжиною рядків, потім поєднати перевернутий список із відсортованим списком, і, нарешті, взяти кожен 2-й елемент, починаючи з індексу 1 на основі 1.

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 за те, що вони пропонували гольфів, щоб зберегти байт.

Рубі , 51 байт

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

Спробуйте в Інтернеті!

05AB1E , 6 5 байт

Збережено 1 байт завдяки Kevin Cruijssen

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 як окремі аргументи командного рядка. sorts на length, зберігає це в $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'}

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;},[]);

Червоний , 116 101 байт

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

ТІО

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

Спробуйте в Інтернеті!

-8 байт завдяки стельовій коті.

Функція f- це рішення. Кількість рядків, самих рядків та вихідний буфер приймає в якості аргументів (плюс ще чотири внутрішні).

Japt , 8 байт

Введіть як масив рядків, виведіть як масив з 2 масивів рядків, по одному для кожної половини списку.

ñÊó
hUÎÔ

Спробуйте (Додатковий код, щоб дозволити введення / виведення як розділений рядок у новому рядку)

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

Спробуйте в Інтернеті!