Вступление

Иногда мои коробки слишком малы, чтобы в них что-нибудь поместилось. Мне нужно, чтобы вы сделали расширитель коробки! Итак, что делает коробку коробкой в ​​этом испытании?

 OOOO
O    O
O    O
O    O
 OOOO

Углы коробки всегда пробелы. Сама коробка может быть изготовлена ​​из одного и того же персонажа. Этот символ может быть любым печатным символом ASCII , кроме пробела. Итак, вот эти символы:

!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~

Длина стороны коробки выше 4, 3 . Вы можете предположить, что длина стороны всегда положительна . Это означает, что это самая маленькая коробка, которую вам нужно обработать:

 #
# #
 #

Чтобы расширить поле, вам нужно увеличить длину каждой стороны. Давайте пройдем это шаг за шагом с приведенным выше примером. Сначала мы берем верхнюю часть коробки, которая:

 OOOO

Мы расширяем это на единицу, поэтому получаем:

 OOOOO

Теперь это верхняя и нижняя часть коробки. После этого мы делаем то же самое со сторонами слева и справа:

O
O
O

становится:

O
O
O
O

Теперь мы собираем коробку, в результате чего:

 OOOOO
O     O
O     O
O     O
O     O
 OOOOO

Задание

Получив поле, разверните его на 1. Поле можно указать несколькими строками или массивом.

Контрольные примеры

 OOOO          OOOOO
O    O    >   O     O
 OOOO         O     O
               OOOOO

 XXXXXX        XXXXXXX
X      X  >   X       X
X      X      X       X
 XXXXXX       X       X
               XXXXXXX

 ~             ~~
~ ~       >   ~  ~
 ~            ~  ~
               ~~

Это код-гольф , поэтому выигрывает представление с наименьшим количеством байтов!

V , 6 5 байтов

yêpjÄ

Попробуйте онлайн!

На самом деле это на байт длиннее, чем должно быть. Это должно было быть:

äêjÄ

Но в этом есть неизвестная ошибка. :(

Объяснение:

yê     "yank this colum
  p    "paste what we just yanked
   j   "move down to line 2
    Ä  "and duplicate this line

Vim, 7 байт

♥GYPjYp

где Control - Контроль-V.

           The cursor starts on the first non-whitespace character of the first line.
♥G         Enter visual block mode and go to bottom of document.
  YP       Duplicate this column.
    j      Move down to the second line of the file.
     Yp    Duplicate this line.

JavaScript (ES6), 57 53 52 байта

s=>s.replace(/^.(.)/gm,s="$&$1").replace(/(\n.*)/,s)

Объяснение: Первое регулярное выражение дублирует второй столбец, а второе регулярное выражение дублирует второй ряд, таким образом увеличивая поле по желанию. Редактировать: 4 байта сохранены благодаря MartinEnder ♦.

Python, 49 42 байта

Анонимная лямбда:

-7 из хнор

lambda s:[t[:2]+t[1:]for t in s[:2]+s[1:]]

Предыдущая версия:

D=lambda s:s[:2]+s[1:]
lambda s:D(list(map(D,s)))

D - это функция, которая дублирует второй элемент последовательности.

Сетчатка , 20 байт

Количество байтов предполагает кодировку ISO 8859-1.

1`¶
¶$%'¶
%2=`.
$&$&

Попробуйте онлайн! (Есть несколько дополнительных строк, которые включают набор тестов, в котором контрольные примеры разделены двумя переводами строк.)

объяснение

1`¶
¶$%'¶

1это предел, который ограничивает Retina для применения замены только к первому найденному совпадению. ¶соответствует одному переводу строки, поэтому нам нужно рассмотреть вопрос только о замене перевода строки в конце первой строки. Это заменить на ¶$%'¶, где $%'вставляет всю строку после совпадения (специфичный для Retina элемент замещения). Следовательно, это дублирует вторую строку.

%2=`.
$&$&

Здесь %- режим для каждой строки, поэтому каждая строка обрабатывается индивидуально, а затем строки снова соединяются. 2=это тоже предел. Это означает «применить замену только ко второму матчу». Само совпадение представляет собой простой символ, а подстановка дублирует его. Следовательно, этот этап дублирует второй столбец.

Haskell, 24 байта

f(a:b:c)=a:b:b:c
f.map f

Использует идею RootTwo о дублировании второго ряда и столбца. Это map fделает это для каждой строки, а f.затем делает это для строк.

PowerShell v2 +, 57 53 52 байта

param($n)($n-replace'^.(.)','$&$1')[0,1+1..$n.count]

Немного похоже на Нейла ответ JavaScript . Первая замена соответствует началу строки и следующим двум символам и заменяет их первым символом и вторым символом-дважды. Вместо второй замены он заменяется индексированием массива для дублирования второй строки. Принимает ввод в виде массива строк. Результирующие фрагменты массива остаются на конвейере, и печать неявна.

Сохранено 4 байта благодаря Мартину.

Несколько примеров:

PS C:\Tools\Scripts\golfing> .\automatic-box-expander.ps1 ' oooo ','o    o',' oooo '
 ooooo 
o     o
o     o
 ooooo 

PS C:\Tools\Scripts\golfing> .\automatic-box-expander.ps1 ' # ','# #',' # '
 ## 
#  #
#  #
 ## 

Брахилог , 28 26 байт

2 байта благодаря Fatalize.

{bB,?~c[A:C]hl2,A:Bc.}:1a.

Попробуйте онлайн!

MATL , 12 байт

tZy"@:2hSY)!

Ввод - это двумерный массив символов с точкой с запятой в качестве разделителя строк. Например, первый тестовый пример имеет вход

[' OOOO ';'O    O';' OOOO ']

Попробуйте онлайн! Тестовые случаи 1 , 2 , 3 .

объяснение

Код выполняет следующее дважды: повторяет вторую строку массива и транспонирует.

Чтобы повторить вторую строку массива m× n, вектор [1 2 2 3 ... m]используется как индекс строки. Этот вектор генерируется следующим образом: диапазон [1 2 3 ... m], прикрепить другой 2, сортировать.

t       % Take input implicitly. Duplicate
Zy      % Size of input as a two-element array [r, c]
"       % For each of r and c
  @     %   Push r in first iteration (or c in the second)
  :     %   Generate range [1 2 3 ... r] (or [1 2 3 ... c])
  2hS   %   Append another 2 and sort
  Y)    %   Apply as row index
  !     %   Transpose
        % End for. Display implicitly

Pyth , 10 байт

L+<b2tbyMy

Попробуйте онлайн!

СЭД 69 19 (14 + 1 за -r) 15

s/.(.)/&\1/;2p   

CJam , 14 байтов

q~{~\_@]z}2*N*

Аналогично моему ответу на MATL , но повторяет второй-последний ряд вместо второго.

Попробуйте онлайн!

объяснение

q                e# Read input
 ~               e# Interpret as an array
  {      }2*     e# Do this twice
   ~             e# Dump array contents onto the stack
    \            e# Swap top two elements
     _           e# Duplicate
      @          e# Rotate
       ]         e# Pack into an array again
        z        e# Zip
            N*   e# Join by newlines. Implicitly display

К, 15 байт

2{+x@&1+1=!#x}/

Принимает ввод в виде матрицы символов:

  b: (" OOOO ";"O    O";" OOOO ")
(" OOOO "
 "O    O"
 " OOOO ")

Примените функцию дважды ( 2{…}/), которая дает transpose ( +) правого аргумента indexed ( x@) с помощью инкрементного декодирования длины ( &) одного плюс ( 1+) списка местоположений, равных 1 ( 1=) в диапазоне от 0 до ( !) размер внешнего измерения правого аргумента ( #x).

Шаг за шагом,

  #b
3
  !#b
0 1 2
  1=!#b
0 1 0
  1+1=!#b
1 2 1
  &1+1=!#b
0 1 1 2
  b@&1+1=!#b
(" OOOO "
 "O    O"
 "O    O"
 " OOOO ")
  +b@&1+1=!#b
(" OO "
 "O  O"
 "O  O"
 "O  O"
 "O  O"
 " OO ")
  2{+x@&1+1=!#x}/b
(" OOOOO "
 "O     O"
 "O     O"
 " OOOOO ")

Попробуйте здесь с ОК.

APL, 17 15 байт

{⍉⍵⌿⍨1+2=⍳≢⍵}⍣2

Тестовое задание:

      smallbox largebox
┌───┬──────┐
│ # │ OOOO │
│# #│O    O│
│ # │O    O│
│   │O    O│
│   │ OOOO │
└───┴──────┘
      {⍉⍵⌿⍨1+2=⍳≢⍵}⍣2 ¨ smallbox largebox
┌────┬───────┐
│ ## │ OOOOO │
│#  #│O     O│
│#  #│O     O│
│ ## │O     O│
│    │O     O│
│    │ OOOOO │
└────┴───────┘

Объяснение:

             ⍣2   run the following function 2 times:
{           }     stretch the box vertically and transpose
         ⍳≢⍵      indices of rows of box
       2=         bit-vector marking the 2nd row
  ⍵/⍨1+           replicate the 2nd row twice, all other rows once
 ⍉                transpose

ListSharp , 326 байт

STRG a=READ[<here>+"\\a.txt"]
ROWS p=ROWSPLIT a BY ["\r\n"]
ROWS p=GETLINES p [1 TO p LENGTH-1]
ROWS p=p+p[1]+p[0]
STRG o=p[0]
ROWS y=EXTRACT COLLUM[2] FROM p SPLIT BY [""]
ROWS x=EXTRACT COLLUM[3] FROM p SPLIT BY [""]
[FOREACH NUMB IN 1 TO o LENGTH-1 AS i]
ROWS m=COMBINE[m,x] WITH [""]
ROWS m=COMBINE[y,m,y] WITH [""]
SHOW=m

Мне определенно нужно добавить вложенность функций, но это работает очень хорошо

прокомментируйте, если хотите объяснение

JavaScript, 160 146 141 байт

s=>{a=s[1];r="";l=s.split("\n");m=l.length;n=l[0].length;for(i=0;i<=m;i++){for(j=0;j<=n;j++)r+=!(i%m)&&j%n||i%m&&!(j%n)?a:" ";r+="\n"}return r}

Dyalog APL , 14 байтов

(1 2,1↓⍳)¨∘⍴⌷⊢

(

1 2, {1, 2} добавлено

1↓ один элемент выпал из

⍳ индексы

)¨ каждого

∘ из

⍴ {количество строк, количество столбцов}

⌷ индексы в

⊢ Аргумент

Например, для

 XX
X  X
 XX

мы находим индексы; {1, 2, 3} для строк и {1, 2, 3, 4} для столбцов. Теперь мы отбрасываем начальные элементы для получения {2, 3} и {2, 3, 4}, а затем добавляем {1, 2}, давая {1, 2, 2, 3} и {1, 2, 2, 3, 4}. Наконец, мы используем это для выбора строк и столбцов, одновременно удваивая строку 2 и столбец 2.

Попробуй APL онлайн!

Рубин, 46 байт

->a{a.map{|r|r.insert(2,r[1])}.insert(2,a[1])}

Очень простое решение, принимая входные данные в виде массива строк. Я не люблю дублированные insertбуквы, поэтому постараюсь сыграть в гольф.

C #, 127 124 байта

s=>{int n=s.Count-1,i=0;s[0]=s[n]=s[0].Insert(1,s[0][1]+"");s.Insert(1,s[1]);for(;i++<n;)s[i]=s[i].Insert(1," ");return s;};

Компилирует в Func<List<string>, List<string>>.

Отформатированная версия:

s =>
{
    int n = s.Count - 1, i = 0;

    s[0] = s[n] = s[0].Insert(1, s[0][1] + "");

    s.Insert(1, s[1]);

    for (; i++ < n;)
        s[i] = s[i].Insert(1, " ");

    return s;
};