Tulis sebuah program yang, mengingat 'n' jumlah string dengan panjang 'm', mengembalikan jumlah 'm' dari string 'n'-length, dengan kondisi ini:

Setiap string baru harus berisi huruf pada indeks yang sama dari string lainnya

Sebagai contoh, string output pertama harus berisi huruf pertama dari semua string input, string output kedua harus berisi huruf kedua dari semua string input, dan seterusnya.

Contoh (angka di bawah huruf adalah indeks string):

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

Asumsikan inputnya benar setiap kali

Kode byte terpendek menang!

Edit:

Karena ada banyak bahasa pemrograman, dan mungkin ada banyak solusi yang memungkinkan untuk masing-masingnya, saya akan memposting solusi terpendek untuk setiap bahasa pemrograman dan pengguna yang menyediakannya. Terus koding!

Sunting Ulang:

Berkat pengguna, Dennis, saya memasukkan cuplikan untuk papan peringkat.

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 byte

C

Coba di sini

Transin builtin lain

Python, 36 29 byte

zip(*s) mengembalikan daftar tupel masing-masing karakter, ditransformasikan.

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

Cobalah online

Jelly , 1 byte

Z

Cobalah online!

MATL , 1 byte

!

Cobalah online!

Mengambil input secara implisit, transpos, menampilkan output secara implisit.

PowerShell v2 +, 66 54 byte

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

Yo ... tidak map, tidak zip, tidak transpose, dll, jadi kita harus menggulung sendiri. Alat peraga besar ke @DarthTwon untuk golf 12-byte.

Mengambil input $n, mengatur forlingkaran. Inisialisasi diatur $xke 0, tes adalah apakah kita masih memiliki huruf dalam kata kita $n[0][$x], dan kita menambah $x++setiap iterasi.

Di dalam loop, kami mengambil array string kami, pipa itu ke loop batin yang memuntahkan karakter yang sesuai dari setiap kata. Itu diringkas dalam -joinuntuk membentuk string, dan string itu dibiarkan pada pipa. Pada akhir eksekusi, string pada pipeline dicetak secara implisit.

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

Vim, 37 36 penekanan tombol

Semua jawaban lain membosankan, dan menggunakan built-byte byte tunggal yang membosankan. Berikut ini jawaban hack yang melakukan semuanya secara manual, dalam sesuatu yang bahkan bukan bahasa pemrograman:

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

Penjelasan:

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

Sekarang, semuanya baik-baik saja, tetapi buffer memiliki beberapa teks tambahan yang tersisa. Jadi kita harus:

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

CJam, 6 5 byte

Disimpan 1 byte berkat Luis Mendo.

qS%zp

Cobalah 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 byte

,

Coba di sini!

Mengubah urutan.

Retina , 45 43 byte

Hitungan byte mengasumsikan penyandian ISO 8859-1.

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

Linefeed terkemuka sangat penting. Input dan output adalah daftar string ASCII yang dapat diakhiri linefeed (catat bahwa keduanya memiliki satu linefeeding trailing tunggal)

Cobalah online!

Saya tahu untuk sementara waktu bahwa memindahkan blok persegi panjang akan menyusahkan di Retina (padahal mentransposisikan kotak tidak terlalu buruk), tetapi tidak pernah benar-benar mencoba. Solusi pertama memang panjang 110 byte kekalahan, tetapi setelah beberapa perubahan substansial dalam pendekatan, yang dihasilkan 45 byte sejauh ini tidak seburuk yang saya duga (tapi masih ...). Penjelasan akan mengikuti besok.

Penjelasan

Tahap 1: Sortir

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

Ini melakukan tugas utama menyusun ulang karakter dalam input, tetapi akhirnya mengacaukan pemisahan menjadi beberapa baris. Menariknya, jika kita menghapus |¶, kita mendapatkan kode yang diperlukan untuk mengubah input persegi.

Tahap sortir (dilambangkan oleh O) bekerja seperti ini: mereka menemukan semua kecocokan dari regex yang diberikan (hal setelah `), dan kemudian mengurutkan kecocokan itu dan memasukkan kembali mereka ke tempat-tempat di mana kecocokan ditemukan. Seperti yang terjadi, regex ini cocok dengan setiap karakter tunggal: umpan tidak-line melalui .(?<=(.*))alternatif dan umpan baris melalui ¶. Oleh karena itu, semua karakter di input. Bagian yang lebih menarik adalah apa yang mereka diurutkan oleh .

The $pilihan mengaktifkan "sort-by" mode, di mana setiap pertandingan diganti dengan pola substitusi pada baris kedua, yang kemudian digunakan untuk membandingkan pertandingan. Selanjutnya,# Retina memberitahu untuk mengubah hasil substitusi menjadi bilangan bulat, dan membandingkan bilangan bulat tersebut (alih-alih memperlakukannya sebagai string).

Jadi akhirnya, kita perlu melihat regex dan substitusi. Jika alternatif pertama cocok (yaitu, kami telah mencocokkan karakter apa pun dalam salah satu baris), maka (?<=(.*))menangkap semuanya hingga karakter itu pada baris itu ke dalam grup 1. The $.1dalam pola substitusi menggantikan ini dengan panjang kelompok 1. Oleh karena itu, karakter pertama dalam setiap string menjadi 1, yang kedua menjadi tidak digunakan dalam kasus ini, substitusi kosong, tetapi untuk keperluan opsi, ini dipertimbangkan . Itu berarti, semua umpan garis diurutkan ke depan.2 , yang ketiga menjadi 3dan seterusnya. Seharusnya jelas sekarang bagaimana ini mentransposisi input kuadrat: semua karakter pertama dari baris datang pertama dan semua berakhir di baris paling atas, kemudian semua karakter kedua berakhir di baris kedua dan seterusnya. Tetapi untuk input persegi panjang ini, kami juga mencocokkan umpan baris. Sejak kelompok1#0

Jadi sekarang kita memiliki karakter dalam urutan pertama (karakter pertama dari setiap string, karakter kedua dari setiap string, dll.) Dan semua umpan baris di awal.

Tahap 2: Cocokkan

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

Kita sekarang perlu membagi karakter menjadi garis dengan panjang yang benar. Panjang ini sesuai dengan jumlah baris dalam input asli, yang sesuai dengan jumlah baris yang kita miliki di awal string.

Pemisahan dilakukan di sini dengan bantuan tahap pertandingan, yang hanya menemukan semua pertandingan dari regex yang diberikan dan menggunakan !opsi untuk mencetak pertandingan tersebut (standarnya adalah menghitungnya). Jadi tujuan dari regex adalah untuk mencocokkan satu baris sekaligus.

Kita mulai dengan "menghitung" angka dengan tampilan di belakang (?<=(¶)*.*). Ini menghasilkan satu tangkapan dalam grup 1untuk setiap linefeed di depan.

Kemudian, untuk setiap tangkapan itu, kami mencocokkan satu karakter dengan (?<-1>.)+.

kode mesin x86, 19 byte

Dalam hex:

fc89d35651a401dee2fb91aa595e464a75f1c3

Input:: ECX# string (n) EDX,: panjang string individu (m) ESI,: array string input,: EDIoutput buffer, menerima array string. Array dianggap didefinisikan sebagai char src[n][m+1]input dan char dst[m][n+1]output, dan semua string diakhiri dengan 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 byte

z:ca.

Mengharapkan daftar string sebagai input, mis run_from_atom('z:ca.',["money":"taken":"trust"],Output).

Penjelasan

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

05AB1E, 3 byte

ø€J

Dijelaskan

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

Cobalah online

CJam , 3 byte

{z}

Ini adalah blok kode (setara dengan fungsi; diizinkan secara default ) yang mengharapkan input pada stack dan meninggalkan output pada stack.

Cobalah online!

JavaScript ES6, 48 46 byte

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

Saya merasa ditinggalkan, kami tidak memiliki fungsi zip bawaan. Terima kasih nicael untuk menunjukkan kesalahan tipe saya.

Pemakaian

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

kembali

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

Utilitas Bash + BSD, 27

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

I / O via STDIN / STDOUT string yang dipisahkan baris baru.

Anda mungkin perlu menginstal rsdengan sudo apt install rsatau serupa. Berfungsi di luar kotak pada OS X.

The -Tpilihan untuk rsmelakukan angkat berat dari transposisi tersebut. Sisanya hanya memformat:

• The sedperintah hanya menyisipkan :setelah setiap karakter
• -c:menentukan kolom input :dipisahkan
• -g0 menentukan kolom output memiliki pemisahan lebar nol

Jika pembacaan halaman rsmanual saya benar, maka yang berikut harus bekerja untuk skor 12, tapi sayangnya tidak berhasil - lihat catatan di bawah ini:

rs -E -g0 -T

Contoh output:

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

Jika input diharapkan semua ASCII yang dapat dicetak, maka karakter :tersebut dapat diganti dengan beberapa karakter yang tidak dapat dicetak , misalnya 0x7 BEL.

Catatan

Saya ingin mengerti mengapa saya tidak bisa mendapatkan -Eopsi untuk bekerja dan menyingkirkan sedpreprocessing. Saya menemukan rskode sumber di sini . Seperti yang Anda lihat, memberi opsi ini menetapkan ONEPERCHARbendera. Namun, tidak ada dalam kode yang benar-benar memeriksa keadaan bendera ini. Jadi saya pikir kita dapat mengatakan bahwa meskipun fakta bahwa opsi didokumentasikan, itu tidak dilaksanakan.

Faktanya, opsi ini didokumentasikan dalam rsmanual Linux :

-E Pertimbangkan setiap karakter input sebagai entri array.

tapi bukan versi OS X.

PHP, 82 byte

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

mengambil dan mengembalikan array string

kerusakan

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

contoh

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

↓⍉↑

↑mengambil string input dan mengubahnya menjadi matriks char. ⍉transposes matriks. ↓membagi kembali baris-baris matriks yang dihasilkan menjadi string.

K, 1 byte

+

Coba di sini!

Mengubah urutan

Mathematica, 26 byte

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

Fungsi anonim. Mengambil daftar string sebagai input dan mengembalikan daftar string sebagai output. Karakter Unicode adalah U + F3C7, mewakili \[Transpose]. Bekerja dengan mengonversi ke matriks karakter, mentransposisi, dan mengonversi kembali ke daftar string. Jika format input / output diregangkan, maka transpose 5-byte sederhana akan berfungsi:

#&

MATLAB / Octave, 4 bytes

@(x)x'

This defines an anonymous function. Input format is ['car'; 'dog'; 'man'; 'yay'].

Try it here.

Haskell, 41 bytes

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

Or with a bit more air:

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

The second list is the list of words repeated “the length of a word” time. On each list of words, we select the n-th letter of each word, giving the result.

Common Lisp, 62 bytes

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

The map function takes a result type (here list), a function f to apply and one or more sequences s1, ..., sn. All sequences are iterated in parallel. For each tuple of elements (e1,...,en) taken from those sequences, we call (f e1 ... en) and the result is accumulated in a sequence of the desired type.

We take a list of strings, say ("car" "dog" "man" "yay"), and use apply to call map. We have to do this so that the input list is used as more arguments to map. More precisely, this:

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

... is equivalent to:

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

And since strings are sequences, we iterate in parallel over all first characters, then all second characters, etc... For example, the first iteration calls f as follows:

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

The anonymous lambda takes the list of arguments given to it and coerces it back to a string.

Perl, 91 bytes

So lengthy one..

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

Try it here!

Ruby, 46 bytes

Probably the first time that "Ruby strings aren't Enumerables" is actually biting me hard since I had to map the strings into arrays before processing. (Normally having to use String#chars isn't enough of a byte loss to matter, but since I need to map them, it stings a lot more)

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

Clojure, 68 bytes

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

Maps a function which is just reduce (goes on elements of the list one by one and joins nth character of the string) on the range from 0 to length of the first string.

See it online: https://ideone.com/pwhZ8e

C#, 53 bytes

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

C# lambda (Func) where the output is IList<string> and the output is IEnumerable<string>. I dont know how work zip in other language but I can't find a way to use the C#'s one here. Aggregate fit the need well. No transpose in C#, there is one in Excel but I wont use it.

Try it online!