Napisz program, który, biorąc pod uwagę dowolną liczbę ciągów „n” o długości „m”, zwraca liczbę „ciągów” o długości „n”, pod warunkiem:

Każdy nowy ciąg powinien zawierać litery o tym samym indeksie co pozostałe ciągi

Na przykład pierwszy ciąg wyjściowy musi zawierać pierwszą literę wszystkich ciągów wejściowych, drugi ciąg wyjściowy musi zawierać drugą literę wszystkich ciągów wejściowych i tak dalej.

Przykłady (cyfry pod literami to indeksy ciągów znaków):

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

Załóż, że dane wejściowe są poprawne za każdym razem

Wygrywa kod najkrótszego bajtu!

Edytować:

Ponieważ istnieje wiele języków programowania i dla każdego z nich może istnieć wiele możliwych rozwiązań, opublikuję najkrótsze rozwiązanie dla każdego języka programowania i użytkownika, który go dostarczył. Koduj dalej!

Ponowna edycja:

Dzięki użytkownikowi Dennis wstawiłem fragment tabeli wyników.

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>

Pyth, 1 bajt

C

Wypróbuj tutaj

Kolejna wbudowana transpozycja

Python, 36 29 bajtów

zip(*s) zwraca listę krotek każdego znaku, transponowanych.

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

Wypróbuj online

Galaretka , 1 bajt

Z

Wypróbuj online!

MATL , 1 bajt

!

Wypróbuj online!

Pobiera dane niejawnie, transponuje, wyświetla dane niejawnie.

PowerShell v2 +, 66 54 bajtów

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

Yo ... nie map, nie zip, nie transposeitd., Więc możemy sami rzucić. Wielkie rekwizyty dla @DarthTwon dla 12-bajtowego golfa.

Pobiera dane wejściowe $n, tworzy forpętlę. Inicjalizacja ustawia się $xna 0, test polega na tym, czy nadal mamy litery w naszym słowie $n[0][$x]i zwiększamy $x++każdą iterację.

Wewnątrz pętli bierzemy naszą tablicę ciągów, prowadzimy ją do wewnętrznej pętli, która wydziela odpowiedni znak z każdego słowa. To jest zamknięte w a, -joinaby utworzyć ciąg, a ten ciąg zostaje pozostawiony w potoku. Pod koniec wykonywania ciągi w potoku są domyślnie drukowane.

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

Vim, 37 36 naciśnięć klawiszy

Wszystkie pozostałe odpowiedzi są nudne i wykorzystują nudne wbudowane bajty. Oto odważna odpowiedź, która robi wszystko ręcznie, w czymś, co nie jest nawet językiem programowania:

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

Wyjaśnienie:

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

Teraz wszystko jest w porządku, ale w buforze pozostało trochę tekstu. Więc musimy:

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

CJam, 6 5 bajtów

Zaoszczędzono 1 bajt dzięki Luisowi Mendo.

qS%zp

Wypróbuj online!

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

Pyke, 1 bajt

,

Wypróbuj tutaj!

Transponować.

Siatkówka , 45 43 bajtów

Liczba bajtów zakłada kodowanie ISO 8859-1.

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

Wiodące podawanie linii jest znaczące. Dane wejściowe i wyjściowe są zakończonymi podawaniem linii listami drukowalnych ciągów ASCII (zauważ, że oba mają jedno końcowe podawanie wiersza).

Wypróbuj online!

Przez jakiś czas wiedziałem, że transpozycja prostokątnych bloków byłaby uciążliwa dla siatkówki (podczas gdy transponowanie kwadratów nie jest takie złe), ale tak naprawdę nigdy nie próbowałem. Pierwsze rozwiązanie rzeczywiście miało aż 110 bajtów długości, ale po kilku istotnych zmianach w podejściu powstałe 45 bajtów nie jest tak złe, jak się spodziewałem (ale nadal ...). Wyjaśnienie nastąpi jutro.

Wyjaśnienie

Etap 1: Sortuj

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

Wykonuje to główną pracę polegającą na zmianie kolejności znaków na wejściu, ale ostatecznie psuje podział na linie. Co ciekawe, jeśli usuniemy |¶, otrzymamy kod wymagany do transponowania kwadratowego wejścia.

Etapy sortowania (oznaczone przez O) działają w ten sposób: znajdują wszystkie dopasowania podanego wyrażenia regularnego (rzecz po `), a następnie sortują te dopasowania i umieszczają je ponownie w miejscach, w których znaleziono dopasowania. Tak się składa, że ​​wyrażenie regularne dopasowuje każdy pojedynczy znak: nieliniowe poprzez .(?<=(.*))alternatywę i liniowe przez¶ . Dlatego sortuje wszystkie znaki na wejściu. Im bardziej interesujące jest to, co oni są klasyfikowane wg .

The $Opcja aktywuje „sortowania o trybie”, gdzie każda odpowiedź jest zastąpiony przez wzorzec podstawienia w drugiej linii, który jest następnie wykorzystywany do porównywania wyników. Ponadto #mówi Retinie, aby przekonwertowała wynik podstawienia na liczbę całkowitą i porównała te liczby całkowite (zamiast traktować je jak łańcuchy).

Wreszcie musimy przyjrzeć się wyrażeniu regularnemu i podstawieniu. Jeśli pierwsze alternatywne dopasowania (tzn. Dopasowaliśmy dowolny znak w jednej z linii), wówczas (?<=(.*))przechwytuje wszystko do tego znaku w tej linii w grupie 1. $.1We wzorcu podstawienia zastępuje to z długość grupy 1. Dlatego pierwszy znak w każdym ciągu staje1 , drugi staje się 2, trzeci staje się 3itd. Teraz powinno być jasne, jak to transponuje kwadratowe wejście: wszystkie pierwsze znaki linii są pierwsze i wszystkie kończą się na najwyższej linii, a następnie wszystkie drugie znaki kończą się w drugiej linii i tak dalej. Ale w przypadku tych prostokątnych danych wejściowych dopasowujemy również linie. Od grupy1nie jest używane w tym przypadku, podstawienie jest puste, ale dla celów #opcji jest to brane pod uwagę 0. Oznacza to, że wszystkie linie są sortowane do przodu.

Mamy teraz znaki w pierwszej kolejności (pierwszy znak każdego łańcucha, drugi znak każdego łańcucha itp.) I wszystkie linie na początku.

Etap 2: Mecz

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

Teraz musimy podzielić znaki na wiersze o odpowiedniej długości. Ta długość odpowiada liczbie linii na oryginalnym wejściu, co odpowiada liczbie linii, jakie mamy na początku łańcucha.

Podział odbywa się tutaj za pomocą etapu dopasowania, który po prostu wyszukuje wszystkie dopasowania podanego wyrażenia regularnego i używa !opcji drukowania tych dopasowań (domyślnie zamiast nich je policzymy). Zatem celem wyrażenia regularnego jest dopasowanie jednej linii na raz.

Zaczynamy od „liczenia” liczby za pomocą lookbehind (?<=(¶)*.*). Generuje jedno przechwytywanie w grupie 1dla każdego wysuwu linii z przodu.

Następnie dla każdego z tych ujęć dopasowujemy jedną postać (?<-1>.)+.

kod maszynowy x86, 19 bajtów

W hex:

fc89d35651a401dee2fb91aa595e464a75f1c3

Dane wejściowe:: ECXliczba ciągów (n) EDX,: długość pojedynczego ciągu (m) ESI,: tablica ciągów wejściowych,: EDIbufor wyjściowy odbierający tablicę ciągów. Zakłada się, że tablica jest zdefiniowana jako char src[n][m+1]dla danych wejściowych i char dst[m][n+1]wyjściowych, a wszystkie łańcuchy są zakończone wartością 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

Brachylog , 5 bajtów

z:ca.

Oczekuje listy ciągów jako danych wejściowych, np run_from_atom('z:ca.',["money":"taken":"trust"],Output).

Wyjaśnienie

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

05AB1E, 3 bajty

ø€J

Wyjaśniono

     # 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']

Wypróbuj online

CJam , 3 bajty

{z}

Jest to blok kodu (równoważny funkcji; domyślnie dozwolony ), który oczekuje danych wejściowych na stosie i pozostawia dane wyjściowe na stosie.

Wypróbuj online!

JavaScript ES6, 48 46 bajtów

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

Czuję się pominięty, nie mamy wbudowanej funkcji zip. Dzięki nicael za wskazanie mojego błędu typu.

Stosowanie

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

zwroty

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

Narzędzia Bash + BSD, 27

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

I / O poprzez STDIN / STDOUT ciągi rozdzielone znakiem nowej linii.

Może być konieczne zainstalowanie za rspomocą sudo apt install rslub podobnego. Działa od razu w systemie OS X.

-TOpcja rsrobi dźwiganie ciężarów transpozycji. Reszta to po prostu formatowanie:

• The sedPolecenie po prostu wstawia :po każdej postaci
• -c:określa, że ​​kolumny wejściowe są :rozdzielone
• -g0 określa, że ​​kolumny wyjściowe mają zerową szerokość separacji

Jeśli moje odczytanie strony rspodręcznika jest prawidłowe, poniższe wyniki powinny zadziałać dla wyniku 12, ale niestety nie działa - patrz uwaga poniżej:

rs -E -g0 -T

Przykładowe dane wyjściowe:

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

Jeśli oczekuje się, że wejście będzie w całości drukowalnym kodem ASCII, wówczas :można je zastąpić jakimś niedrukowalnym znakiem, np BEL. 0x7 .

Uwaga

Chciałem zrozumieć, dlaczego nie mogłem dostać -Eopcji pracy i pozbyć się sedwstępnego przetwarzania. Znalazłem rstutaj kod źródłowy . Jak widać, podanie tej opcji powoduje ustawienieONEPERCHAR flagi. Jednak w kodzie nie ma niczego, co faktycznie sprawdzałoby stan tej flagi. Myślę więc, że możemy powiedzieć, że pomimo tego, że opcja jest udokumentowana, nie została wdrożona.

W rzeczywistości ta opcja jest udokumentowana na stronie Linux rs:

-E Traktuj każdy znak wejściowy jako pozycję tablicy.

ale nie wersja OS X.

PHP, 82 bajty

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

pobiera i zwraca tablicę ciągów

awaria

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

przykłady

$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 bajty

↓⍉↑

↑pobiera ciągi wejściowe i przekształca je w macierz znaków. ⍉transponuje macierz. ↓dzieli wiersze wynikowej macierzy na łańcuchy.

K, 1 bajt

+

Wypróbuj tutaj!

Transponować

Mathematica, 26 bajtów

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

Funkcja anonimowa. Pobiera listę ciągów jako dane wejściowe i zwraca listę ciągów jako dane wyjściowe. Znak Unicode to U + F3C7, reprezentujący \[Transpose]. Działa poprzez konwersję do matrycy znaków, transponowanie i konwersję z powrotem do listy ciągów. Gdyby format wejściowy / wyjściowy był rozciągnięty, działałaby prosta 5-bajtowa transpozycja:

#&

MATLAB / Octave, 4 bajty

@(x)x'

Definiuje to anonimową funkcję. Format wejściowy to ['car'; 'dog'; 'man'; 'yay'].

Wypróbuj tutaj .

Haskell, 41 bajtów

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

Lub z odrobiną powietrza:

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

Druga lista to lista słów powtórzonych „długość słowa”. Na każdej liście słów wybieramy n-tą literę każdego słowa, podając wynik.

Common Lisp, 62 bajty

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

mapFunkcja przyjmuje typ wynik (tutaj list), to funkcja f stosowania i jedną lub więcej sekwencji s1 , ..., sn . Wszystkie sekwencje są iterowane równolegle. Dla każdej krotki elementów (e1, ..., en) pobranych z tych sekwencji wywołujemy (f e1 ... en) a wynik jest kumulowany w sekwencji pożądanego typu.

Bierzemy listę ciągów, powiedzmy ("car" "dog" "man" "yay"), i używamy applydo wywołania map. Musimy to zrobić, aby lista wejściowa była używana jako więcej argumentów map. Dokładniej:

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

... jest równa:

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

A ponieważ ciągi znaków są sekwencjami, iterujemy równolegle wszystkie pierwsze znaki, a następnie wszystkie drugie znaki itp. Na przykład pierwsza iteracja wywołuje f w następujący sposób:

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

Anonimowa lambda bierze listę podanych argumentów i zmusza ją z powrotem do łańcucha.

Perl, 91 bajtów

Taki długi ...

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

Wypróbuj tutaj!

Rubinowy, 46 bajtów

Prawdopodobnie po raz pierwszy „Rubinowe ciągi nie są Wyliczalne” w rzeczywistości mnie mocno gryzą, ponieważ przed przetworzeniem musiałem odwzorować ciągi na tablice. (Zwykle konieczność użycia String#charsnie wystarcza na utratę bajtu, żeby mieć znaczenie, ale ponieważ muszę je zmapować, to kłuje o wiele więcej)

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

Clojure, 68 bajtów

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

Odwzorowuje funkcję, która po prostu reduce(przenosi elementy listy jeden po drugim i łączy n-ty znak ciągu) w zakresie od 0 do długości pierwszego ciągu.

Zobacz online: https://ideone.com/pwhZ8e

C #, 53 bajty

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

C # lambda ( Func) gdzie wyjście jest, IList<string>a wyjście jest IEnumerable<string>. Nie wiem, jak działa zipw innym języku, ale nie mogę znaleźć sposobu na użycie C # tutaj. Aggregatedobrze pasują do potrzeb. Brak transpozycji w C #, jest jeden w Excelu, ale go nie użyję.

Wypróbuj online!