Ваша задача - принять в качестве входных данных два «ASCII Art» и расположить каждое произведение искусства рядом друг с другом по горизонтали.

Например, скажем, у вас есть две строки, "abc\ndef"и "123\n456". Вам нужно выровнять их по горизонтали, чтобы получить строку "abc123\ndef456". Я называю это" выравниванием по горизонтали ", потому что в то время как вводимые данные выглядят так:

abc
def

и:

123
456

Вывод при печати будет выглядеть так:

abc123
def456

Обратите внимание, как один вход расположен рядом с другим.

вход

• Входные данные будут строками и могут быть как два отдельных аргумента или как последовательность строк.
• Символы в искусстве будут иметь десятичные коды в диапазоне 32-126 (включительно).
• Хорошо поддерживать произвольное число искусств для выравнивания вместо двух (но, очевидно, вы должны поддерживать как минимум два).
• Можно предположить, что каждое искусство будет иметь одинаковые размеры, и что они будут содержать хотя бы одну строку.

• Вы должны быть в состоянии поддерживать как минимум 100x100 персонажей.

• Для согласования с соглашениями на сайте порядок аргументов не имеет значения. Неважно, какое искусство слева или справа.

Выход

• Выходными данными будут выровненные изображения, как указано выше, либо возвращенные, либо выходные данные на стандартный вывод.

• Любой конечный пробел в необязательном порядке.

• Не должно быть визуального разделителя между выровненными изображениями.

Искусство ввода и вывода должно быть \nили \rразделены строками. Было бы слишком тривиально разрешить 2D-массивы.

Материалы могут быть функциями или полными программами.

Тестовые случаи:

"abc\ndef", "123\n456" -> "abc123\ndef456".

"qwertyuiop\n asdfghjkl", "Some other\nTextFiller" -> "qwertyuiopSome other\n asdfghjklTextFiller"

"  *  \n *** \n*****\n *** \n  *  \n", "  +  \n  +  \n+++++\n  +  \n  +  \n" -> "  *    +  \n ***   +  \n*****+++++\n ***   +  \n  *    +  \n"

Холст , 1 байт

×

Попробуй это здесь!

Haskell , 37 байт

(unlines.).(.lines).zipWith(++).lines

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

IO как списки строк просто будет zipWith(++). :П

Python 2 , 59 байт

lambda y:'\n'.join(map(str.__add__,*map(str.splitlines,y)))

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

05AB1E , 6 байтов

|¶¡øJ»

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

объяснение

|        # push all input into a list
 ¶¡      # split on newlines
   ø     # zip
    J    # join the rows to single strings
     »   # merge on newlines

Желе , 4 байта

Ỵ€ZY

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

Perl 5 -0F , 28 байт

Включает +2в качестве \nаргумента для -F(это «код», поэтому он должен рассчитывать)

Дайте входные данные непосредственно друг за другом на STDIN.

#!/usr/bin/perl -0F\n
say@F[$%++,$_]for@F/2..$#F

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

Bash + coreutils, 14

• 4 байта сохранены благодаря @DavidFoerster.

paste -d "" $@

Входные данные задаются в виде двух имен файлов в качестве параметров командной строки.

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

Perl 6 , 27 байт

{join "\n",[Z~] $_>>.lines}

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

Работает с произвольным количеством искусств. IO как список списков был бы просто &[Z~].

APL (Dyalog Unicode) , 9 байтов ^SBCS

Полная программа. Запросы (STDIN) для любого списка \rдлин строк Струны могут быть неровными и различной ширины, если они имеют одинаковое количество строк. Отпечатки (STDOUT) в результате ASCII ст.

⊃,/⎕FMT¨⎕

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

⎕ запросить оцененный ввод

⎕FMT¨ форматировать (оценивать все управляющие символы и возвращать матрицу символов) каждый

,/ объединить их горизонтально (уменьшение сцепления)

⊃ раскрыть (потому что снижение понизило рейтинг с 1 до 0)

Java 8, 100 84 78 байт

a->b->{for(int i=0;;)System.out.println(a.split("\n")[i]+b.split("\n")[i++]);}

Выход с параметром ArrayIndexOutOfBoundsExceptionSTDERR после того, как он напечатал результат в STDOUT, что разрешено .

-6 байт благодаря @ OlivierGrégoire .

Объяснение:

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

a->b->{                        // Method with two String parameters and no return-type
  for(int i=0;;)               //  Loop over the substrings of the first input
    System.out.println(        //   Print:
     a.split("\n")[i]          //    The substring of the first input
     +b.split("\n")[i++]);}    //    plus the same-indexed substring of the second input

Рубин , 48 байтов

->a,b{$;=$/;a.split.zip(b.split).map(&:join)*$/}

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

Лямбда, берущая две строки и возвращающая строку. Установка splitразделителя по умолчанию на новую строку с$;=$/; не сохраняет никаких байтов, но делает остальные выглядят немного лучше.

Ruby , 49 байт (произвольно много строк)

->s{s.map{|a|a.split$/}.transpose.map(&:join)*$/}

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

Просто для удовольствия. Оказывается, мы можем принять массив строк за дополнительную плату всего 1 байт.

JavaScript (ES6), 51 байт

f=
(a,b)=>a.replace(/.+/g,a=>a+b.shift(),b=b.split`
`)
;document.write("<pre>"+f("abc\ndef", "123\n456")+"</pre>")

Чудо , 21 байт

->#oN.zip#++.-> <>"
"

Пример использования:

(->#oN.zip#++.-> <>"
")["abc#ndef" "abc#ndef"]

#n используется вместо \n обозначения новой строки.

объяснение

Подробная версия:

(map #oN) . (zip #con) . (map split "#n")

Разбейте каждую строку во входном массиве по символам новой строки, объедините строку и выведите каждый элемент.

Котлин , 73 байта

a,b->a.split("\n").mapIndexed{i,s->s+b.split("\n")[i]}.joinToString("\n")

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

Добавить ++ , 24 байта

L,c10CdVAptA$pG$tBcB@£+n

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

C 96 байтов

#define L(s)for(;*s++>10;)putchar(s[-1]);
i;f(s,t)char*s,*t;{for(;i=!!s[-i];puts("")){L(s)L(t)}}

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

JavaScript (ES6), 52 байта

Принимает ввод в синтаксисе карри (a)(b).

a=>b=>a.split`
`.map((s,i)=>s+b.split`
`[i]).join`
`

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

Юлия 0,6 , 41 байт

(a,b)->map(*,split(a,'\n'),split(b,'\n'))

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

PowerShell , 51 49 байт

param($a,$b)$a-split"
"|%{$_+($b-split"
")[$i++]}

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

Принимает ввод как буквенные строки с символами новой строки. Вы также можете использовать`n (разделитель новой строки в PowerShell, не\n вместо этого ).

Мы первые -split вводим левую строку ввода на новых строках, которая создает массив, и перебираем|%{...} . На каждой итерации мы объединяем строку с правой входной строкой, снова разбиваемой на новые строки, индексируемыми и увеличивающимися.

Они остаются в конвейере, и неявное Write-Outputзавершение дает нам вывод в виде массива строк, которые печатаются с новой строкой между ними.

APL (Dyalog Unicode) , 22 байта ( SBCS Адама )

{⊃,/↑¨⍵}'[^\n]+'⎕S'&'¨

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

Красный , 78 байт

func[a b][b: split b"^/"foreach c split a"^/"[prin c print first b b: next b]]

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

Japt -R , 8 7 байт

·íV· m¬

Попытайся

объяснение

             :Implicit input of strings U & V
·            :Split U on newlines
  V·         :Split V on newlines
 í           :Interleave
     m       :Map
      ¬      :  Join
             :Implicitly join with newlines and output

альтернатива

·Ë+V·gE

Попытайся

             :Implicit input of strings U & V
·            :Split U on newlines
 Ë           :Map over each element at index E and rejoin with newlines
   V·        :  Split V on newlines
     gE      :  Get the element at index E
  +          :  Append to the current element
             :Implicitly join with newlines and output

Баш , 92 байта

a=();for b;do c=;while IFS= read -r d;do a[c++]+=$d;done<<<"$b";done;printf '%s\n' "${a[@]}"

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

Ungolfed:

array=()                             # Initialize the array
for argument in "${@}"; do           # Loop over the arguments list
  index='0'                          # Reset the index
  while IFS='' read -r 'line'; do    # Loop over every line of the current argument
    array[index]+="${line}"          # Append the line to its corresponding place
    (( index++ ))                    # Increment the index
  done <<< "${argument}"             # End while loop
done                                 # End for loop
printf '%s\n' "${array[@]}"          # Print array's content

Примеры:

$ foo $'abc\ndef' $'123\n456'
abc123
def456

$ foo $'qwertyuiop\n asdfghjkl' $'Some other\nTextFiller'
qwertyuiopSome other
 asdfghjklTextFiller

$ foo \
>   $'  *  \n *** \n*****\n *** \n  *  \n' \
>   $'  +  \n  +  \n+++++\n  +  \n  +  \n'
  *    +  
 ***   +  
*****+++++
 ***   +  
  *    +  


# https://gist.github.com/nxnev/dad0576be7eb2996b860c320c01d0ec5
$ foo "$(< input1)" "$(< input2)" "$(< input3)" > output

У меня также есть более короткий, но он терпит неудачу, если второй readоператор возвращает ненулевое значение.

Баш , 55 байт

while IFS= read -r a;IFS= read b<&3;do echo "$a$b";done

Примечание: <&3похоже, не работает на tio.run

Этот использует файловые дескрипторы ( 1и 3) вместо аргументов:

$ foo <<< $'qwertyuiop\n asdfghjkl' 3<<< $'Some other\nTextFiller'
qwertyuiopSome other
 asdfghjklTextFiller

Древесный уголь , 8 байт

ＰθＭ⌕θ¶→η

Попробуйте онлайн! Ссылка на подробную версию кода. Объяснение:

 θ          First input
Ｐ           Print without moving the cursor
    θ       First input
     ¶      Literal newline
   ⌕        Find index
  Ｍ   →     Move that many squares right
       η    Implicitly print second input

Добавьте 2 байта, чтобы принять несколько входов:

ＦＡ«ＰιＭ⌕ι¶→

Попробуйте онлайн! Ссылка на подробную версию кода. Объяснение:

 Ａ          Input
Ｆ «         Loop over all entries
   Ｐι       Print current entry
     Ｍ⌕ι¶→  Move to next entry

Добавьте 4 байта, чтобы принять незаполненный ввод:

ＰθＭ⌈Ｅ⪪θ¶Ｌι→η

Попробуйте онлайн! Ссылка на подробную версию кода. Объяснение:

      θ         First input
       ¶        Literal newline
     ⪪          Split
    Ｅ           Map over each string
         ι      Current string
        Ｌ       Length
   ⌈            Maximum
  Ｍ       →     Move that many squares right

JavaScript (Node.js) , 79 байт

a=>(b=a.map(x=>x.split`
`))[i=0].map(y=>b.map(z=>c+=z[i],c="")&&++i&&c).join`
`

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

Поддерживает произвольное количество ASCII-произведений, соединяющих вместе, а не только 2 (как в 2 предыдущих ответах JS).

Чисто , 61 байт

import StdEnv
$a b=flatlines[u++v\\u<-mklines a&v<-mklines b]

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

Swift 4 , 119 байт

func f(s:[String])->String{return s[0].split{$0=="\n"}.enumerated().map{$0.1+s[1].split{$0=="\n"}[$0.0]+"\n"}.joined()}

объяснение

func f(s: [String]) -> String {
    return s[0].split{ $0=="\n" }       //splitting the first string after every \n
    .enumerated()                       //create a tuple of offsets and elements
    .map {
        $0.1 +                          //current element
        s[1].split{$0 == "\n"}[$0.0] +  //splitting the second string + indexing
        "\n"                            //new line after every line
     }
     .joined()
}

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