EDIT Tôi đã sửa đổi từ ngữ của các quy tắc để làm cho một số điều rõ ràng rõ ràng hơn. Tôi cũng đã thêm một số điểm nhấn để làm rõ một số điểm nhầm lẫn rõ ràng và xác định rõ ràng tùy chọn tạo một chương trình độc lập thay vì một chức năng.

Mục tiêu ở đây là tạo ra một hàm lấy tệp văn bản (hoặc chuỗi) và hoán chuyển nó để các dòng trở thành cột và ngược lại.

Thí dụ:

Tôi là một văn bản.
Chuyển tôi
Bạn có làm được không

Kết quả trong:

ITC
 ra
aan
mn
 sy
một PO
 ồ
ts
eed
xo
tm
.ei
 .t
  ?

Những quy định:

• Bạn được phép giả định rằng các ký tự khoảng trắng duy nhất được sử dụng là " "và "\n"không có khoảng trắng ở cuối trên bất kỳ dòng nào.
• Bạn có thể cho rằng tệp là ASCII. Điểm đánh dấu endline nào bạn muốn sử dụng là tùy thuộc vào bạn. (CRLF hoặc LF). Nó phải hoạt động chính xác trên ví dụ, nhưng nó cũng sẽ hoạt động trên bất kỳ đầu vào nào thỏa mãn các giả định trên.
• Bạn có thể phải chèn khoảng trắng (như trong ví dụ) trong đó không có khoảng trống nào để giữ các cột thẳng hàng.
• Kết quả của bạn không được có khoảng trắng ở cuối trên bất kỳ dòng nào .
• Ký tự dòng mới cuối cùng (cho dòng cuối cùng) là tùy chọn.
• Nó nên là một chức năng hoặc một chương trình hoàn chỉnh. Nếu hàm của bạn chấp nhận một chuỗi, thì nó sẽ trả về kết quả dưới dạng chuỗi. Nếu nó chấp nhận tên tệp, thì bạn trả về tên của tệp mà bạn đã lưu kết quả. Bạn cũng được phép viết một chương trình hoàn chỉnh chấp nhận đầu vào từ STDIN và đưa ra kết quả chính xác cho STDOUT; nếu bạn làm điều này, bạn không được xuất bất cứ thứ gì sang STDERR.
• Thủ tục ngắn nhất sẽ thắng, nhưng tôi sẽ đưa ra bất kỳ câu trả lời nào tôi thích.

Dựa trên các quy tắc, đầu ra trên ví dụ dài 53 hoặc 52 byte (đối với các dòng mới của LF) tùy thuộc vào dòng mới cuối cùng có được bao gồm hay không.

Lưu ý: Đây không phải là một yêu cầu cụ thể, nhưng nếu chức năng của bạn, khi chạy hai lần liên tiếp không giống với bản gốc (dòng mới cuối cùng có thể khác và bất kỳ dòng trống nào ở cuối tệp sẽ bị xóa), thì bạn sẽ có lẽ phá vỡ một trong những quy tắc.

Japt , 6 byte

y mx1R

Dùng thử
Chạy nó hai lần - trả về chuỗi gốc

Giải trình

y

Chuyển đổi đầu vào

m  R

Bản đồ trên mỗi dòng

x1

Cắt đúng

J ( 31 40)

f=:3 :';(,&LF@dlb&.|.)&.><"1|:>LF cut y'

Đây là một hàm lấy một chuỗi và trả về một chuỗi (tức là một vectơ ký tự với các đường dẫn được chèn vào đúng chỗ và không phải là ma trận.)

Chỉnh sửa: không có khoảng trắng ở cuối trên bất kỳ dòng nào.

Kiểm tra:

   f=:3 :';(,&LF@dlb&.|.)&.><"1|:>LF cut y'

   string=:stdin''
I am a text.
Transpose me.
Can you do it?
^D

   $string
42
   $f string
53
   f string
ITC
 ra
aan
mn
 sy
apo
 ou
ts
eed
x o
tm
.ei
 .t
  ?

Ruby 111

Chơi gôn

def f t;s=t.lines;s.map{|l|l.chomp.ljust(s.map(&:size).max).chars}.transpose.map{|l|l.join.rstrip+?\n}.join;end

Ung dung:

def transpose_text(text)
  max_length = text.lines.map(&:size).max
  text.lines.map do |line|
    line.chomp.ljust(max_length).chars
  end.transpose.map do |chars|
    chars.join.rstrip + "\n"
  end.join
end

Ruby có chức năng hoán vị mảng, do đó, điều này chỉ đơn giản là đệm các dòng ra, biến chúng thành một mảng các ký tự, sử dụng hàm chuyển đổi # # của Ruby, sau đó biến mảng ký tự trở lại thành các dòng.

Chơi golf chỉ đơn giản là sử dụng mã định danh một ký tự, xóa khoảng trắng, sử dụng tạm thời cho text.lines và đặt phép tính cho nội tuyến max_length (không có điểm nào cho hiệu quả).

R, 171

function(e){p=strsplit
x=t(plyr::rbind.fill.matrix(lapply(p(p(e,"\n")[[1]],""),t)))
x[is.na(x)]=" "
cat(apply(x,1,function(y)sub(" *$","",paste(y,collapse=""))),sep="\n")}

Ví dụ sử dụng:

text <- "I am a text.
Transpose me.
Can you do it?"


(function(e){p=strsplit
x=t(plyr::rbind.fill.matrix(lapply(p(p(e,"\n")[[1]],""),t)))
x[is.na(x)]=" "
cat(apply(x,1,function(y)sub(" *$","",paste(y,collapse=""))),sep="\n")})(text)

ITC
 ra
aan
mn
 sy
apo
 ou
ts
eed
x o
tm
.ei
 .t
  ?

Khoảng trắng Trailing được loại bỏ.

Python 2.7 ( 97 79 94 90)

EDIT: Thiếu yêu cầu chức năng;

Tôi khá chắc chắn rằng điều này sẽ được cải thiện vì tôi là người mới bắt đầu ở đây, nhưng để bắt đầu;

c=lambda a:'\n'.join(''.join(y or' 'for y in x).rstrip()for x in map(None,*a.split('\n')))

Mã sử ​​dụng một đơn giản splitđể chia chuỗi thành một vectơ hàng. Sau đó, nó sử dụng mapvới một giá trị hàm là None(hàm unity) và toán tử splat để hoán vị và đệm vectơ (chức năng tương tự như zip_longesttrong Python3)

Phần còn lại của mã chỉ ánh xạ Nonevào không gian, cắt và ghép lại ma trận thành một chuỗi duy nhất.

>>> a = 'I am a text.\nTranspose me.\nCan you do it?'
>>> c(a)                                                                            
'ITC\n ra\naan\nmn\n sy\napo\n ou\nts\need\nx o\ntm\n.ei\n .t\n  ?'
>>> len("""c=lambda a:'\n'.join(''.join(y or' 'for y in x).rstrip()for x in map(None,*a.split('\n')))""")
88
# (+2 since `\n` is considered by `len` to be a single char)

Bash + coreutils + sed, 83

eval paste `sed 's/.*/<(fold -w1<<<"&")/'`|expand -t2|sed 's/\(.\) /\1/g;s/ \+$//'

foldvà pastelàm công việc quan trọng. Phần còn lại chỉ là định dạng.

Chấp nhận đầu vào từ stdin và đầu ra cho thiết bị xuất chuẩn:

$ < tr.txt ./transposefile.sh
ITC
 ra
aan
mn
 sy
apo
 ou
ts
eed
x o
tm
.ei
 .t
  ?
$ < tr.txt ./transposefile.sh | ./transposefile.sh
I am a text.
Transpose me.?
Can you do it
$ 

C (278 byte)

Chỉnh sửa: Điều này thực sự phá vỡ các quy tắc, vì nó lấy tên tệp làm đối số nhưng ghi vào thiết bị xuất chuẩn. Tôi sẽ chỉnh sửa nó sau để ghi vào một tệp và sau đó in tên tệp thành thiết bị xuất chuẩn.

Đây là mã golf đầu tiên của tôi từ trước đến nay, vì vậy hãy thương xót. Một số đơn giản cũ C. Đặt đầu vào test.txtvà để cho nó chạy!

clang transpose.c -o transpose && ./transpose test.txt

#import <stdio.h>
#import <stdlib.h>
#import <string.h>

#define BUFFER_SIZE 1024

#define MAX(A,B) ((A)>(B)?(A):(B))

int main(int argc, char **argv) {
    char line[BUFFER_SIZE];

    FILE *f; int nLines, maxLen;

    f = fopen(argv[1], "r");
    while(!feof(f) && fgets(line, BUFFER_SIZE, f)) {
        nLines++;
        maxLen = MAX(maxLen, strlen(line));
    }
    fclose(f);

    for (int charPos = 0; charPos < maxLen; charPos++) {
        f = fopen(argv[1], "r");
        for (int linePos = 0; linePos < nLines; linePos++) {
            fgets(line, BUFFER_SIZE, f);
            printf("%c", charPos < strlen(line) && line[charPos] != '\xA' ? line[charPos] : ' ');
        }
        printf("\n");
        fclose(f);
    }

    return 0;
}

Bằng cách sử dụng tên biến ngắn, loại bỏ định dạng vô cớ và cho phép xử lý tệp bị rò rỉ và vô hiệu hóa tất cả các cảnh báo, điều này được giảm xuống còn 278 byte. (Vì việc này sử dụng nhập khẩu ngầm, nên nó có thể không liên kết chính xác trên tất cả các hệ thống. Hoạt động trên máy của tôi!)

#import <stdio.h>
int main(int C,char**V){char L[1024];int A,B,D,I,J,*F=fopen(V[1],"r");while(!feof(F)&&fgets(L,1024,F)){A++;D=strlen(L);B=B>D?B:D;}for(I=0;I<B;I++){F=fopen(V[1],"r");for(J=0;J<A;J++)fgets(L,1024,F)&&printf("%c",I<strlen(L)&&L[I]!='\n'?L[I]:' ');printf("\n");}}

Auto Hotkey 210

f(i){
StringSplit,o,i,`n
m:=0
loop % o0 {
a:=A_index
if (t:=Strlen(p:=o%a%))>m
m:=t
StringSplit,l%a%,o%a%
}
loop % m {
a:=A_index,n:=""
loop % o0
n.=(j:=l%A_index%%a%)=""?" ":j
s.=Rtrim(n," ") "`n"
}
return s
}

Kiểm tra

text=
(
I am a text.
Transpose me.
Can you do it?
)
msgbox % f(text)

Ruby: 88 ký tự

(Được đăng bởi vì nó ngắn hơn các giải pháp Ruby khác. Không kiểm tra xem mã của tôi có giới thiệu gì mới so với các giải pháp đó không. Nếu bạn đã đăng một giải pháp Ruby và bạn cảm thấy đây chủ yếu là bản sao của bạn, vui lòng nhận xét và tôi sẽ rút lại câu trả lời của tôi. )

f=->t{l=t.split$/;r=[""]*m=l.map(&:size).max;l.map{|l|m.times{|i|r[i]+=l[i]||" "}};r*$/}

Chạy mẫu:

irb(main):001:0> f=->t{l=t.split$/;r=[""]*m=l.map(&:size).max;l.map{|l|m.times{|i|r[i]+=l[i]||" "}};r*$/}
=> #<Proc:0x99a9e68@(irb):1 (lambda)>

irb(main):002:0> sample='I am a text.
irb(main):003:0' Transpose me.
irb(main):004:0' Can you do it?'
=> "I am a text.\nTranspose me.\nCan you do it?"

irb(main):005:0> puts f[sample]
ITC
 ra
aan
mn
 sy
apo
 ou
ts
eed
x o
tm
.ei
 .t
  ?
=> nil

irb(main):006:0> puts f[f[sample]]
I am a text.
Transpose me.
Can you do it?
=> nil

Bash, 124 byte

D=`mktemp -d`;split -l1 - $D/;for F in $D/*;do grep -o . $F>$F+
done;paste $D/*+|sed -e's/\([^\t]\)\t/\1/g;s/\t/ /g;s/ *$//'

Nó đọc đầu vào tiêu chuẩn và ghi đầu ra tiêu chuẩn. Thử nó:

echo $'I am a text.\nTranspose me.\nCan you do it?' | script.sh

Làm thế nào nó hoạt động:

• splitnhập vào các dòng đơn (tệp trong thư mục tạm thời $D)
• chia dòng thành các ký tự đơn bằng cách sử dụng grep(tệp * +)
• bố trí các ký tự cạnh nhau bằng cách sử dụng paste(các cột được phân tách bằng TAB)
• xóa TAB căn chỉnh, thay thế TAB phụ bằng BLANK, cắt bằng cách sử dụng sed

Chỉnh sửa:

• -9: Đã xóa mã dọn dẹp ;rm -r $D(cảm ơn Tim)
• -2: sử dụng +thay vì _như hậu tố và rút ngắn ${F}_thành$F+
• -3: xóa tiền tố Lkhỏi các tệp kết quả phân tách

Ruby - 144 ký tự

Đây là nỗ lực đầu tiên của tôi, đánh gôn:

def f t
t.split(?\n).each{|l|l<<' 'until l.size==t.split(?\n).map(&:size).max}.map{|x|x.split('')}.transpose.map{|l|l.join.rstrip}.join(?/n)
end

Đối với đầu ra, chạy puts f textở đâu textlà bất kỳ chuỗi nhiều dòng tuân thủ các quy tắc ở trên. Phiên bản không có bản quyền dưới đây:

def text_transpose(text)
  lines = text.split(?\n)
  maxlen = lines.map(&:size).max
  lines.each { |line| line << ' ' until line.size == maxlen }
       .map  { |line| line.split('') }.transpose
       .map  { |char| char.join.rstrip }.join(?\n)
end

Để có giải pháp tương tự nhưng cuối cùng tốt hơn trong Ruby, hãy xem mã của Wayne Conrad ở trên.

PHP 194

function x($a){$a.="\n";$s=strlen($a);$i=0;while($c<$s)if($a{$c}!="\n")$b[$i++].=$a{$c++};else{$c++;for(;$i<$s;$i++)$b[$i].=" ";$i=0;}ksort($b);return rtrim(implode("\n",array_map("trim",$b)));}

Không chơi gôn:

function x($a) {
    $a.="\n";
    $s=strlen($a);
    $i=0;
    while($c<$s)
        if($a{$c}!="\n")
            $b[$i++].=$a{$c++};
        else{
            $c++;
            for(;$i<$s;$i++)
                $b[$i].=" ";$i=0;
        }
    ksort($b);
    return rtrim(implode("\n",array_map("trim",$b)));
}

Đây là nỗ lực chơi gôn đầu tiên của tôi, vì vậy hãy tử tế! Ngoài ra, lời khuyên / đề xuất sẽ được đánh giá rất cao!

MATHEMATICA 117 ký tự

t = "I am a text.\nTranspose me.\nCan you do it?";

f=(m=Length/@(f=Flatten[Characters/@StringSplit[#,"\n"],{{2},{1}}])//Max;
StringJoin@@@(PadLeft[#,m," "]&/@f)//Column)&

Perl (92 + 1)

đọc stdin và viết vào stdout. thêm 1 vào điểm số chosay

@L=map[grep!/\n/,split//],<>;do{$_=join'',map shift@$_||$",@L;s/ +$//;say}while grep@$_>0,@L

CJam, 32 25 byte

CJam mới hơn thử thách này, vì vậy câu trả lời này không đủ điều kiện để được chấp nhận.

Được rút ngắn đáng kể bởi user23013.

qN/_z,f{Se]}z{S+e`);e~N}%

Kiểm tra nó ở đây.

qN/                       "Read input, split into lines.";
   _z,                    "Transpose, get length (find maximum line length).";
      f{Se]}              "Pad each line to that length with spaces.";
            z             "Transpose.";
             {         }% "Map this block onto each line in the result.";
              S+          "Add a space to ensure there's at least one.";
                e`        "Run-length encode.";
                  );      "Discard the trailing run of spaces.";
                    e~    "Run-length decode";
                      N   "Push a newline.";

Javascript, 103

s=>[...s].map((_,i)=>s.split`
`.map(b=>r+=b[q=b[i]||q,i]||' ',r=q='')&&r.replace(/ *$/,q?`
`:q)).join``

Ít chơi gôn

s=>[...s].map(
     // we need 'i' ranging from 0 to the length of the longest input line
     // so we scan all the input string, that is surely longer
     // but we need to check that after some point the output must be empty
     (_, i) => ( 
       r = '', // the current output row, starts empty
       q = '', // flag to check if we are beyond the longest line
       s.split('\n') // split in rows
       .map( 
         b => ( // for each input row in b
           q = b[i] || q, // if there is a char at position i in b, i goes to q
           r += b[i] || ' ' // add to output the char at position i or a fill space
         )
       ),
       q // if q is still '', we are beyond the longest input line 
       ? r.replace(/ *$/,`\n`) // trim leading space and add newline
       : '' // no output 
     )
   ).join('')

Kiểm tra

F=
s=>[...s].map((_,i)=>s.split`
`.map(b=>r+=b[q=b[i]||q,i]||' ',r=q='')&&r.replace(/ *$/,q?`
`:q)).join``

function go() {
  var text=I.value
  var output = F(text)
  O.textContent = output
}

go()

#I { width:50%; height:5em }

<textarea id=I>I am a text.
Transpose me.
Can you do it?</textarea><br>
<button onclick='go()'>Transpose</button>
<pre id=O></pre>

Võng mạc , 40 byte

P`.+
~L0$`.
L,$.%'vs,$.(x$%=),`.+
m` *$

Hãy thử trực tuyến!

Dựa trên chương trình này mà tôi đã tạo để hoán chuyển bất kỳ kích thước hình chữ nhật nào, sử dụng đề xuất của Leo để hoán chuyển một hình chữ nhật có kích thước đã biết.

Chỉnh sửa: Chơi gôn nhiều hơn và không còn dấu cách trên các dòng.

Perl 5 , 25 byte

Lưu ý rằng điều này sử dụng các chuỗi thoát ANSI và như vậy không hoạt động trên TIO, tuy nhiên bạn có thể thấy nó hoạt động ở đây .

$"="[1D";$_="[1;$.H@F"

Giải trình

Trước tiên, mã này thay đổi giá trị dấu phân cách danh sách ( $") thành tab dọc, theo sau là chuỗi thoát ANSI cho 'quay ngược 1 cột' ( \x1b[1D), sau đó chúng tôi đặt biến được in ngầm $_thành một chuỗi bắt đầu bằng chuỗi thoát ANSI cho 'bắt đầu in tại cột dòng 1 $.(trong đó $.dòng văn bản hiện tại)' ( \x1b1;$.H) và nội suy danh sách @F(là danh sách tất cả các ký tự trên dòng đó, được điền bởi autosplit ( -a) với mẫu phân tách trống ( -F)) trong đó đặt nội dung $"ở giữa mỗi mục, di chuyển con trỏ xuống theo chiều dọc thay vì tiếp tục xuất sau ký tự trước.

Hãy thử trực tuyến!

C ++ (243 ký tự)

Đây là một hàm lấy và trả về một chuỗi.

Tôi đã có thể cạo vài chục ký tự, nhưng quyết định giữ nó dưới dạng mã không ngu ngốc (chạy nhanh, đọc ổn). Có lẽ tôi chỉ quyết định làm điều đó bởi vì đây là môn đánh gôn đầu tiên của tôi ... Tôi chưa đủ khó tính :)

string f(string s){stringstream ss(s);vector<string> v;for(size_t i=0;getline(ss,s);++i){if(v.size() < s.size())v.resize(s.size());for(size_t j=0;j<s.size();++j){v[j].resize(i,' ');v[j].push_back(s[j]);}}s="";for(auto& i:v)s+=i+'\n';return s;}

Với định dạng:

string f(string s)
{
    stringstream ss(s);
    vector<string> v;

    for(size_t i = 0; getline(ss, s); ++i)
    {
        if(v.size() < s.size())
            v.resize(s.size());

        for(size_t j = 0; j < s.size(); ++j)
        {
            v[j].resize(i, ' ');
            v[j].push_back(s[j]);
        }
    }

    s = "";
    for(auto& i : v)
        s += i + '\n';

    return s;
}

Python 2.7 - 115 ký tự :

lót:

>>> a
'I am a text.\nTranspose me.\nCan you do it?'

>>> "".join(["".join(i)+'\n' for i in zip(*[x+" "*(len(max(a.splitlines(), key=len))-len(x)) for x in a.splitlines()])])
'ITC\n ra\naan\nmn \n sy\napo\n ou\nts \need\nx o\ntm \n.ei\n .t\n  ?\n'

và trong một bản in sạch hơn:

>>> print "".join(["".join(i)+'\n' for i in zip(*[x+" "*(len(max(a.splitlines(), key=len))-len(x)) for x in a.splitlines()])])
ITC
 ra
aan
mn 
 sy
apo
 ou
ts 
eed
x o
tm 
.ei
 .t
  ?

trong 115 ký tự:

>>> len(""""".join(["".join(i)+'\n' for i in zip(*[x+" "*(len(max(a.splitlines(), key=len))-len(x)) for x in a.splitlines()])])""")
115

GolfScript, 51 ký tự

n%.{,}%$-1=" "*:y;{y+y,<}%zip{n\+0{;).32=}do}%((;\+

Đây là một nỗ lực đầu tiên; Tôi nghi ngờ nó có thể được cải thiện. Hầu hết các mã là để tuân thủ các yêu cầu loại bỏ không gian đệm và dấu vết - không có chúng, n%zip n*sẽ chỉ đủ.

Thi thiên Phiên bản 46 -character sau đây sẽ thực hiện công việc cho đầu vào mẫu đã cho, nhưng sẽ sập nếu bất kỳ cột đầu vào nào chứa toàn bộ khoảng trắng:

n%.{,}%$-1=" "*:y;{y+y,<}%zip{0{;).32=}do]}%n*

Tôi cho rằng điều đó đủ để loại bỏ nó, ngay cả khi thử thách không nói rõ ràng như vậy.

Sơ đồ / vợt 113

Văn bản:

(define t (list 
    (string->list "I am a text.") 
    (string->list "Transpose me.")
    (string->list "Can you do it?")
))

Không có dòng mới và khoảng trắng thừa:

(define s(λ(v x)(if(= x 0)'()(cons(list->string(car v))(s(cdr v)(- x 1))))))(s(apply map list t)(length(car t)))

Phiên bản thân thiện với người dùng

(define text (list 
    (string->list "I am a text.") 
    (string->list "Transpose me.")
    (string->list "Can you do it?")
))

(define transpose
    (λ(text length)
        (if (= length 0)
            '()
            (cons (list->string (car text)) (transpose (cdr text) (- length 1)))
)))

(transpose (apply map list text) (length (car text)))

Haskell

import Data.List
main = interact (unlines . transpose . lines)

Nó quá ngắn, tôi cần thêm vào khoảng trắng ...

Python 89 103 ký tự

def f(a):return'\n'.join([''.join(i).rstrip()for i in zip(*[j+' '*99 for j in a.split('\n')])]).rstrip()

Tôi cảm thấy bẩn. 90 104 ký tự cho phiên bản sức mạnh công nghiệp. : ^)

Toán học, 95 ký tự

f=""<>Riffle[Thread@PadRight@Characters@StringSplit[#,"\n"]//.{0->" ",{x___," "..}:>{x}},"\n"]&

K, 56

Điều này sẽ đáp ứng các thông số kỹ thuật bây giờ.

Chấp nhận một chuỗi, trả về một chuỗi.

{`/:{$[" "=*|x;|(+/&\" "=|x)_|x;x]}'x@'/:!max@#:'x:`\:x}

.

k)f:{`/:{$[" "=*|x;|(+/&\" "=|x)_|x;x]}'x@'/:!max@#:'x:`\:x}
k)f"I am a text.\nTranspose me.\nCan you do it?"
"ITC\n ra\naan\nmn\n sy\napo\n ou\nts\need\nx o\ntm\n.ei\n .t\n  ?\n"
k)f f"I am a text.\nTranspose me.\nCan you do it?"
"I am a text.\nTranspose me.\nCan you do it?\n"

Groovy, 98 ký tự

{i->o=[].withDefault{''};i.readLines().each{it.toList().eachWithIndex{c,d->o[d]+=c}};o.join('\n')}

Trực tuyến

vô dụng:

{i->
o=[].withDefault{''};//create list with empty string as default value 
i.readLines()
.each{
    it.toList() //split every line to characters
    .eachWithIndex{ 
        c,d->o[d]+=c //append to string from list with right index
    }
};
o.join('\n')}//join list with newlines
}

Bình thường , 11 byte

# aYcw1;.tY

Hãy thử trực tuyến!

Lấy đầu vào dưới dạng chuỗi, xuất ra danh sách danh sách

Bình thường , 25 byte

# aYcw1=+Z1;jbcj"".n.tY)Z

Lấy đầu vào dưới dạng một chuỗi, xuất ra một chuỗi.

Hãy thử trực tuyến!

J, 28 26 byte

Đã lưu 2 byte nhờ vào frownyfrog

t=.,@:(,&LF"1)@|:@:>@cutLF

Lấy một chuỗi, trả về một chuỗi. Tôi không chắc chắn nếu có một phiên bản ngắn hơn của động từ chức năng 'cutopen' mà tôi có thể sử dụng.

Cũng có cái ngắn hơn

t=.|:@:>@cutLF

Nhưng tôi không chắc nó nằm trong hướng dẫn của OP, vì nó trả về một loạt các ký tự.

Làm thế nào nó hoạt động:

                     cutLF   | Splits the input on new lines and boxes them
                    @        | Composes verbs (as does @:, but they're not equal)
                   >         | Unboxes this, forming an array of the lines
                 @:          |
               |:            | Transposes the array
      (      )@              |
       ,&LF                  | Appends a new line...
           "1                | To each row of the array
    @:                       |
   ,                         | Flatten the result
t=.                          | Assign this verb to t

Phiên bản khác hoạt động tương tự, nhưng không chuyển đổi mảng được chuyển thành một chuỗi được định dạng đúng.

Ví dụ:

NB. Define a multi-line string

    text =: 0 : 0
I am a text.
Transpose me.
Can you do it?
)

    t text
ITC
 ra
aan
mn    NB. There's whitespace after the 'n' here, but I assume it doesn't count as trailing since it's part of the original string
 sy
apo
 ou
ts 
eed
x o
tm 
.ei
 .t
  ?

    t t text
I am a text.     NB. Again, whitespace here, but it's part of the argument of the second 't' (added by the first 't' to keep columns straight)
Transpose me. 
Can you do it?

Lua ,203 189 byte

t={{}}i=1m=0(...):gsub(".",function(c)n=#t[i]if c=="\n"then i=i+1t[i]={}else t[i][n+1]=c end m=m<=n and n+1or m end)
for x=1,m do for p=1,i do io.write(t[p][x]or" ")end _=m<=x or print()end

Hãy thử trực tuyến!

Tôi đã thấy một giải pháp Lua khác ở đây, nhưng tôi không nghĩ có vấn đề gì với việc đăng 2 giải pháp trên cùng một ngôn ngữ. Nếu có, hãy nói cho tôi :)