Напишіть програму, яка, з огляду на будь-яку кількість n рядків довжини 'm', повертає 'm' кількість рядків 'n'-довжини, з цією умовою:

Кожен новий рядок повинен містити літери в тому самому індексі інших рядків

Наприклад, перша вихідна рядок повинна містити першу літеру всіх вхідних рядків, друга вихідна рядок повинна містити другу літеру всіх вхідних рядків тощо.

Приклади (цифри під літерами - це покажчики рядків):

input: "car", "dog", "man", "yay"
        012    012    012    012
output: "cdmy", "aoaa", "rgny"
         0000    1111    2222

input: "money", "taken", "trust"
        01234    01234    01234
output: "mtt", "oar", "nku", "ees", "ynt"
         000    111    222    333    444

Припустимо, що введення кожного разу правильне

Код найкоротших байтів виграє!

Редагувати:

Оскільки є багато мов програмування, і для кожного з них може бути багато можливих рішень, я опублікую найкоротше рішення для кожної мови програмування та користувача, який її надав. Продовжуйте кодування!

Повторне редагування:

Завдяки користувачеві Деннісу я вставив фрагмент для таблиць лідерів.

var QUESTION_ID=85255,OVERRIDE_USER=56179;function answersUrl(e){return"https://api.stackexchange.com/2.2/questions/"+QUESTION_ID+"/answers?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+ANSWER_FILTER}function commentUrl(e,s){return"https://api.stackexchange.com/2.2/answers/"+s.join(";")+"/comments?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+COMMENT_FILTER}function getAnswers(){jQuery.ajax({url:answersUrl(answer_page++),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){answers.push.apply(answers,e.items),answers_hash=[],answer_ids=[],e.items.forEach(function(e){e.comments=[];var s=+e.share_link.match(/\d+/);answer_ids.push(s),answers_hash[s]=e}),e.has_more||(more_answers=!1),comment_page=1,getComments()}})}function getComments(){jQuery.ajax({url:commentUrl(comment_page++,answer_ids),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){e.items.forEach(function(e){e.owner.user_id===OVERRIDE_USER&&answers_hash[e.post_id].comments.push(e)}),e.has_more?getComments():more_answers?getAnswers():process()}})}function getAuthorName(e){return e.owner.display_name}function process(){var e=[];answers.forEach(function(s){var r=s.body;s.comments.forEach(function(e){OVERRIDE_REG.test(e.body)&&(r="<h1>"+e.body.replace(OVERRIDE_REG,"")+"</h1>")});var a=r.match(SCORE_REG);a&&e.push({user:getAuthorName(s),size:+a[2],language:a[1],link:s.share_link})}),e.sort(function(e,s){var r=e.size,a=s.size;return r-a});var s={},r=1,a=null,n=1;e.forEach(function(e){e.size!=a&&(n=r),a=e.size,++r;var t=jQuery("#answer-template").html();t=t.replace("{{PLACE}}",n+".").replace("{{NAME}}",e.user).replace("{{LANGUAGE}}",e.language).replace("{{SIZE}}",e.size).replace("{{LINK}}",e.link),t=jQuery(t),jQuery("#answers").append(t);var o=e.language;/<a/.test(o)&&(o=jQuery(o).text()),s[o]=s[o]||{lang:e.language,user:e.user,size:e.size,link:e.link}});var t=[];for(var o in s)s.hasOwnProperty(o)&&t.push(s[o]);t.sort(function(e,s){return e.lang>s.lang?1:e.lang<s.lang?-1:0});for(var c=0;c<t.length;++c){var i=jQuery("#language-template").html(),o=t[c];i=i.replace("{{LANGUAGE}}",o.lang).replace("{{NAME}}",o.user).replace("{{SIZE}}",o.size).replace("{{LINK}}",o.link),i=jQuery(i),jQuery("#languages").append(i)}}var ANSWER_FILTER="!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe",COMMENT_FILTER="!)Q2B_A2kjfAiU78X(md6BoYk",answers=[],answers_hash,answer_ids,answer_page=1,more_answers=!0,comment_page;getAnswers();var SCORE_REG=/<h\d>\s*([^\n,]*[^\s,]),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/,OVERRIDE_REG=/^Override\s*header:\s*/i;

body{text-align:left!important}#answer-list,#language-list{padding:10px;width:290px;float:left}table thead{font-weight:700}table td{padding:5px}

<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script> <link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b"> <div id="answer-list"> <h2>Leaderboard</h2> <table class="answer-list"> <thead> <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr></thead> <tbody id="answers"> </tbody> </table> </div><div id="language-list"> <h2>Winners by Language</h2> <table class="language-list"> <thead> <tr><td>Language</td><td>User</td><td>Score</td></tr></thead> <tbody id="languages"> </tbody> </table> </div><table style="display: none"> <tbody id="answer-template"> <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table> <table style="display: none"> <tbody id="language-template"> <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table>

Піт, 1 байт

C

Спробуйте тут

Ще один вбудований транспондер

Пітон, 36 29 байт

zip(*s) повертає список кортежів кожного символу, перенесених.

lambda s:map(''.join,zip(*s))

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

Желе , 1 байт

Z

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

MATL , 1 байт

!

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

Приймає вхід неявно, переміщує, відображає вихід неявно.

PowerShell v2 +, 66 54 байти

param($n)for($x=0;$n[0][$x];$x++){-join($n|%{$_[$x]})}

Йо ... ні map, ні zip, ні transposeі т.д. Великий реквізит @DarthTwon для 12-байтового гольфу.

Бере введення $n, встановлює forцикл. Ініціалізація налаштована $xна 0тест - чи є у нас ще букви в слові $n[0][$x], і чи збільшуємо ми $x++кожну ітерацію.

Всередині циклу ми беремо наш масив струн, передаємо його до внутрішньої петлі, яка випльовує відповідний символ з кожного слова. Це інкапсульовано в a, -joinщоб утворити рядок, і ця струна залишилася на конвеєрі. В кінці виконання рядки на трубопроводі неявно друкуються.

PS C:\Tools\Scripts\golfing> .\convert-n-strings.ps1 "Darth","-Twon","Rocks"
D-R
aTo
rwc
tok
hns

Вім, 37 36 натискань клавіш

Всі інші відповіді нудні, і використовують нудні однобайтові вбудовані. Ось хитра відповідь, яка робить все це вручну, у тому, що навіть не є мовою програмування:

Gmaqqgg:s/./&<cr>d<C-v>`aGo<esc>pvGgJ@qq@q`adgg

Пояснення:

G                                   "move to the end of this line
     ma                             "And leave mark 'a' here
       qq                           "Start recording in register 'q'
         gg                         "Move to the beginning
           :s/./&<cr>               "Assert that there is atleast one character on this line
                      d             "Delete
                       <C-v>        "Blockwise
                            `a      "Until mark 'a'

    G                               "Move to the end of the buffer
     o<esc>                         "Open a newline below us
           p                        "And paste what we deleted
            vG                      "Visually select everything until the end
              gJ                    "And join these without spaces
                @q                  "Call macro 'q'. The first time, this will do nothing,
                                    "The second time, it will cause recursion.
                  q                 "Stop recording
                   @q               "Call macro 'q' to start it all

Зараз все добре, але в буфері залишилось зайвий текст. Отже, ми повинні:

`a                              "Move to mark 'a'
  dgg                           "And delete everything until the first line

CJam, 6 5 байт

Збережено 1 байт завдяки Луїсу Мендо.

qS%zp

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

q      e# Get all input
 S%    e# Split it on spaces
   z   e# Take the transpose
    p  e# Print it as an array

Пайк, 1 байт

,

Спробуйте тут!

Перенести.

Сітківка , 45 43 байт

Кількість байтів передбачає кодування ISO 8859-1.

O$#`.(?<=(.+))|¶
$.1
!`(?<=(¶)+.*)(?<-1>.)+

Провідна передача ліній є значною. Введення та виведення - це списки, що закінчуються підведенням ліній до друкованих рядків ASCII (зауважте, що обидва мають один зворотний податок рядків).

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

Я деякий час знав, що перенесення прямокутних блоків буде болем у Сітківці (тоді як перенесення квадратів не надто погано), але ніколи насправді не намагався. Перше рішення справді було колосальним в 110 байт, але після декількох істотних змін у підході, отримані 45 байт далеко не такі погані, як я підозрював (але все ж ...). Пояснення будуть наступними завтра.

Пояснення

1 етап: Сортування

O$#`.(?<=(.+))|¶
$.1

Це виконує основну роботу щодо переупорядкування символів у вхідних даних, але це закінчує змішання поділу на рядки. Цікаво, що якщо ми видалимо |¶, ми отримаємо код, необхідний для перенесення квадратного вводу.

Етапи сортування (позначені символом O) працюють так: вони знаходять усі збіги заданого регулярного виразу (річ після цього `), а потім сортують ці сірники і знову вставляють їх у місця, де знайдено збіги. Як це буває, цей регулярний вирівнювання відповідає кожному символу: нелінійна передача через .(?<=(.*))альтернативу та лінійна передача через ¶. Отже, вона сортує всі символи вхідних даних. Більш цікава частина це те , що вони сортуються по .

$Опція активує «сортування по» режимі, де кожен матч замінюється з шаблоном підстановки на другій лінії, яка потім використовується для порівняння збігів. Крім того, #вказує Retina перетворити результат підстановки в ціле число і порівняти ці цілі числа (замість того, щоб трактувати їх як рядки).

Отже, нарешті, нам потрібно переглянути регекс та заміну. Якщо перші альтернативні збіги (тобто ми зіставили будь-який символ в одному з рядків), то (?<=(.*))фіксує все, що відповідає цьому символу, на цій лінії в групу 1. У $.1шаблоні заміщення це замінює довжину групи 1. Отже, перший символ у кожному рядку стає 1, другий стає 2, третій стає 3і так далі. Тепер має бути зрозуміло, як це переносить квадратний вхід: усі перші символи рядків надходять першими, і всі вони закінчуються в самому верхньому рядку, потім всі другі символи закінчуються у другому рядку тощо. Але для цих прямокутних входів ми також узгоджуємо стрічки ліній. З групи1не використовується в цьому випадку, заміна порожня, але для цілей #опції це враховується 0. Це означає, що всі канали ліній сортуються вперед.

Отже, тепер у нас є символи в першому порядку (перший символ кожного рядка, другий символ кожного рядка тощо) та всі стрічки передач на початку.

2 етап: Матч

!`(?<=(¶)+.*)(?<-1>.)+

Тепер нам потрібно розділити символи на рядки правильної довжини. Ця довжина відповідає кількості рядків у вихідному введенні, що відповідає кількості каналів рядків у нас на початку рядка.

Розщеплення тут проводиться за допомогою етапу відповідності, який просто знаходить усі збіги заданого регулярного виразів і використовує !опцію для друку цих збігів (за замовчуванням було б замість них рахувати). Таким чином, мета регулярного вираження - збігатися по одному рядку.

Почнемо з "підрахунку" числа з огляду (?<=(¶)*.*). Це генерує одне захоплення в групі 1для кожної стрічки на фронті.

Потім для кожного з цих захоплень ми узгоджуємо одного персонажа (?<-1>.)+.

машинний код x86, 19 байт

У шістнадцятковій формі:

fc89d35651a401dee2fb91aa595e464a75f1c3

Вхід:: ECX# рядків (n) EDX,: окрема довжина рядка (m) ESI,: масив вхідних рядків,: EDIвихідний буфер, що приймає масив рядків. Масив, як вважається, визначається як char src[n][m+1]для введення, так і char dst[m][n+1]для виводу, а всі рядки закінчуються NULL.

0:  fc                  cld
1:  89 d3               mov ebx,edx   ;EDX is the counter for the outer loop
_outer:
3:  56                  push esi
4:  51                  push ecx
_inner:
5:  a4                  movsb         ;[EDI++]=[ESI++]
6:  01 de               add esi,ebx   ;Same char, next string
8:  e2 fb               loop _inner   ;--ECX==0 => break
a:  91                  xchg eax,ecx  ;EAX=0
b:  aa                  stosb         ;NULL-terminate just completed string
c:  59                  pop ecx
d:  5e                  pop esi       ;First string,
e:  46                  inc esi       ;...next char
f:  4a                  dec edx
10: 75 f1               jnz _outer
12: c3                  ret

Брахілог , 5 байт

z:ca.

Очікує список рядків як вхід, наприклад run_from_atom('z:ca.',["money":"taken":"trust"],Output).

Пояснення

z       Zip the strings in the Input list
 :ca.   output is the application of concatenation to each element of the zip

05AB1E, 3 байти

ø€J

Пояснив

     # implicit input, eg: ['car', 'dog', 'man', 'yay']
ø    # zip, producing [['c', 'd', 'm', 'y'], ['a', 'o', 'a', 'a'], ['r', 'g', 'n', 'y']]
 €J  # map join, resulting in ['cdmy', 'aoaa', 'rgny']

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

CJam , 3 байти

{z}

Це блок коду (еквівалентний функції; дозволений за замовчуванням ), який очікує введення в стеку і залишає вихід на стеку.

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

JavaScript ES6, 48 46 байт

a=>[...a[0]].map((n,x)=>a.map(a=>a[x]).join``)

Мені здається, у нас немає вбудованої функції zip. Дякую nicael за вказівку на помилку мого типу.

Використання

(a=>[...a[0]].map((n,x)=>a.map(a=>a[x])))(["asd","dsa"]); //or whatever is above, might change due to edits

повертає

["ad","ss","da"]

Утиліти Bash + BSD, 27

sed s/./\&:/g|rs -c: -g0 -T

Введення / виведення за допомогою рядків, розділених рядками STDIN / STDOUT.

Можливо, вам доведеться встановити за rsдопомогою sudo apt install rsабо подібного. Працює поза коробкою на OS X.

-TВаріант rsробить важку роботу в транспозиції. Решта - лише форматування:

• sedКоманда просто вставляє :після кожного символу
• -c:Вказує, що стовпці вводу :розділені
• -g0 задає вихідні стовпці, що мають нульову ширину поділу

Якщо моє прочитання сторінки сторінки rsправильне, то наступна оцінка повинна працювати на суму 12, але, на жаль, вона не працює - див. Примітку нижче:

rs -E -g0 -T

Приклад виводу:

$ printf "%s\n" car dog man yay |sed s/./\&:/g|rs -c: -g0 -T
cdmy
aoaa
rgny
$

Якщо очікується, що вхід буде весь ASCII для друку, то його :можна замінити на якийсь недрукований символ, наприклад, 0x7 BEL.

Примітка

Я хотів зрозуміти, чому я не можу отримати -Eможливість працювати та позбутися sedпопередньої обробки. Тут я знайшов rsвихідний код . Як бачите, надання цієї опції встановлює ONEPERCHARпрапор. Однак у коді немає нічого, що фактично перевіряє стан цього прапора. Тож я думаю, що можна сказати, що незважаючи на те, що варіант є документально зафіксованим, він не реалізований.

Фактично, ця опція задокументована на сторінці Linux rs:

-E Розгляньте кожен символ введення як запис масиву.

але не версія OS X

PHP, 82 байти

function f($a){foreach($a as$s)foreach(str_split($s)as$i=>$c)$y[$i].=$c;return$y;}

бере і повертає масив рядків

зламатися

function f($a)
{
    foreach($a as$s)                    // loop through array $a
        foreach(str_split($s)as$i=>$c)  // split string to array, loop through characters
            $y[$i].=$c;                 // append character to $i-th result string
    return$y;
}

приклади

$samples=[
    ["asd","dsa"], ["ad","ss","da"],
    ["car", "dog", "man", "yay"], ["cdmy", "aoaa", "rgny"],
    ["money", "taken", "trust"], ["mtt", "oar", "nku", "ees", "ynt"]
];
echo '<pre>';
while ($samples)
{
    echo '<b>in:</b> ';         print_r($x=array_shift($samples));
    echo '<b>out:</b> ';        print_r(f($x));
    echo '<b>expected:</b> ';   print_r(array_shift($samples));
    echo '<hr>';
}

APL, 3 байти

↓⍉↑

↑приймає вхідні рядки та перетворює їх у матрицю char. ⍉транспонує матрицю. ↓розбиває назад рядки отриманої матриці на рядки.

К, 1 байт

+

Спробуйте тут!

Перенести

Математика, 26 байт

""<>#&/@(Characters@#)&

Анонімна функція. Приймає список рядків як вхідний і повертає список рядків як вихідний. Символ Unicode - U + F3C7, що представляє \[Transpose]. Працює шляхом перетворення в матрицю символів, переміщення та повернення до списку рядків. Якщо формат вводу / виводу був розтягнутим, то простий 5-байтовий перенос спрацював би:

#&

MATLAB / Октава, 4 байти

@(x)x'

Це визначає анонімну функцію. Формат вводу є ['car'; 'dog'; 'man'; 'yay'].

Спробуйте тут .

Haskell, 41 байт

f l=zipWith($)[map(!!n)|n<-[0..]]$l<$l!!0

Або трохи більше повітря:

f l = zipWith ($) [map (!! n) | n <- [0..]] $
                  l <$ (l !! 0)

Другий список - це список слів, повторених часом "довжина слова". У кожному списку слів ми вибираємо n-ту букву кожного слова, даючи результат.

Лист звичайний, 62 байти

(lambda(s)(apply'map'list(lambda(&rest x)(coerce x'string))s))

The mapФункція приймає тип результату (тут list), функція F , щоб застосувати і одну або кілька послідовностей s1 , ..., Sn . Усі послідовності повторюються паралельно. Для кожного елемента (e1, ..., en), узятих із цих послідовностей, ми називаємо (f e1 ... en) і результат накопичується в послідовності потрібного типу.

Ми беремо список рядків, скажімо ("car" "dog" "man" "yay"), і використовуємо applyдля виклику map. Ми повинні зробити це, щоб список вхідних даних використовувався як більше аргументів map. Точніше, це:

(apply #'map 'list fn '("car" "dog" "man" "yay"))

... еквівалентно:

(map 'list f "car" "dog" "man" "yay")

А оскільки рядки - це послідовності, ми повторюємо паралельно всі перші символи, потім усі другі символи тощо. Наприклад, перша ітерація викликає f наступним чином:

(f #\c #\d #\m #\y)

Анонімний лямбда бере список наведених йому аргументів і примушує повернути його до рядка.

Perl, 91 байт

Так тривалий ..

$l=<>;$p=index($l," ")+1;@i=split//,$l;for$a(0..$p-1){print$i[$a+$_*$p]for(0..$p);print" "}

Спробуйте тут!

Рубін, 46 байт

Напевно, перший раз, коли "рядки Ruby не є перелічуваними" насправді кусає мене, тому що мені довелося зіставити рядки в масиви перед обробкою. (Зазвичай, для використання String#charsнедостатньо втрати байтів для матерії, але, оскільки мені потрібно їх скласти, це створює набагато більше)

->s{s.map!(&:chars).shift.zip(*s).map &:join}

Clojure, 68 байт

#(map(fn[g](reduce(fn[a b](str a(nth b g)))""%))(range(count(% 0))))

Відображає функцію, яка є справедливою reduce(переходить елементи списку по черзі та приєднується до n-го символу рядка) в діапазоні від 0 до довжини першого рядка.

Дивіться це в Інтернеті: https://ideone.com/pwhZ8e

C #, 53 байти

t=>t[0].Select((_,i)=>t.Aggregate("",(a,b)=>a+b[i]));

C # лямбда ( Func), де вихід IList<string>і вихід IEnumerable<string>. Я не знаю, як працювати zipна іншій мові, але я не можу знайти спосіб використовувати один із C # тут. Aggregateдобре підходити до потреби. У C # немає перенесення, в Excel є такий, але я не буду його використовувати.

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