EDIT Bazı şeyleri daha açık hale getirmek için kuralların ifadesini değiştirdim. Ayrıca, görünürdeki karışıklığın bazı noktalarını temizlemek için biraz vurgu ekledim ve bir işlev yerine bağımsız bir program yapma seçeneğini açıkça tanımladım.

Buradaki amaç, bir metin dosyası (veya dize) alan ve satırları sütunlar veya tersi olacak şekilde dönüştüren bir işlev yapmaktır.

Örnek:

Ben bir mesajım
Transpoze et beni.
Bunu yapabilirmisin?

Sonuçlar:

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

Kurallar:

• Sen kullanılan tek boşluk karakterler olduğunu varsayın izin verilir " "ve "\n"herhangi bir hat üzerinde hiçbir sondaki boşluk bulunmadığını söyledi.
• Dosyanın ASCII olduğunu varsayabilirsiniz. Hangi bitiş çizgisini kullanmak istediğiniz size bağlıdır (CRLF veya LF). Örnekte doğru çalışması gerekir, ancak yukarıdaki varsayımları karşılayan herhangi bir girdi üzerinde de çalışması gerekir .
• Sütunları aynı hizada tutmak için boşlukların (örnekte olduğu gibi) bulunmaması gerekebilir.
• Sonucun olmamalıdır sonlarındaki boşluk var herhangi satırda .
• Son satırsonu karakteri (son satır için) isteğe bağlıdır.
• Bir işlev veya tam bir program olmalıdır. Eğer fonksiyonunuz bir string kabul ederse, sonuçları string olarak döndürmelidir. Bir dosya adını kabul ederse, sonucu kaydettiğiniz dosyanın adını döndürürsünüz. Ayrıca , STDIN'den girdi kabul eden ve doğru sonucu STDOUT'a veren tam bir program yazmanıza izin verilir ; Bunu yaparsanız, STDERR'ye hiçbir şey vermemelisiniz .
• En kısa prosedür kazanır, ancak sevdiğim herhangi bir cevabı iptal edeceğim.

Kurallara dayanarak, örnekteki çıktı, son satırın eklenip eklenmemesine bağlı olarak 53 veya 52 bayt uzunluğundadır (LF yeni satırları için).

Not: Bu özel bir gereklilik değildir, ancak işleviniz art arda iki kez çalıştırıldığında orijinali ile aynı değilse (son satırsonu farklı olabilir ve dosyanın sonundaki boş satırlar silinir), o zaman Muhtemelen kurallardan birini çiğniyor.

Japt , 6 bayt

y mx1R

Deneyin
İki kez çalıştırın - orijinal dizeyi döndürür

açıklama

y

Girişi devretmek

m  R

Her satırın üzerinde eşleştir

x1

Sağa kırp

J ( 31 40)

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

Bu, bir dizgeyi alan ve bir dizge döndüren bir işlevdir (yani doğru yerlere doğru beslenen satır beslemeli bir karakter vektörüdür , matris değil).

Düzenleme: herhangi bir satırda izleyen boşluk yok

Ölçek:

   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

golfed:

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

Ungolfed:

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'nin bir dizi transpoze işlevi vardır, bu nedenle bu satırları basitleştirir, karakter dizisine dönüştürür, Ruby'nin Array # transpose işlevini kullanır, ardından karakter dizisini tekrar satırlara dönüştürür.

Golf oynamak sadece tek karakterli tanımlayıcılar kullanmak, boşlukları kaldırmak, text.lines için geçici kullanmak ve max_length inline için hesaplama yapmaktı (verimlilik için puan yok).

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")}

Kullanım örneği:

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
  ?

İzleyen beyaz boşluk kaldırıldı.

Python 2.7 ( 97 79 94 90)

EDIT: fonksiyon gereksinimi cevapsız;

Burada bir tür acemi olduğum için bunun daha iyi olacağından oldukça eminim;

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

Kod split, dizgiyi bir satır vektörüne bölmek için basit bir yöntem kullanır . Daha sonra (birlik fonksiyonu) mapgibi bir fonksiyon değerine Noneve vektörü ( zip_longestPython3'teki ile benzer işlevsellik) dönüştürmek ve doldurmak için uyarıcı operatörüyle birlikte kullanır .

Kodun geri kalanı sadece Noneuzayla eşleşir, matrisi yeniden tek bir dizeye yeniden düzenler ve yeniden birleştirir.

>>> 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/ \+$//'

foldve pasteönemli işleri yapın. Gerisi sadece biçimleniyor.

Stdin'den girdi ve stdout'a çıktı kabul eder:

$ < 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 bayt)

Düzenleme: Bu aslında kurallara aykırıdır, çünkü dosya ismini argüman olarak alır, fakat stdout'a yazar. Daha sonra bir dosyaya yazıp sonra dosya adını stdout'a yazdırarak düzenlerim.

Bu benim ilk kod golf, şimdi merhamet olsun. Bazı düz eski C. Girişi yerleştirin test.txtve çalışmasına izin verin!

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

Kısa değişken adları kullanarak, gereksiz biçimlendirmeyi kaldırma ve dosya tanıtıcılarının sızmasına izin verme ve tüm uyarıları devre dışı bırakma, bu, 278 bayta düşürülür. (Bu, dolaylı içe aktarma kullandığından, tüm sistemlerde düzgün bağlantı kurmayabilir. Makinemde çalışıyor!)

#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");}}

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

Ölçek

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

Yakut: 88 karakter

(Diğer Ruby çözümlerinden daha kısa olduğu için gönderildi. Kodumun bunlarla karşılaştırıldığında yeni bir şey getirip göstermediğini kontrol etmedim. Eğer daha önce bir Ruby çözümü yayınladıysanız ve bunun çoğunlukla sizin bir kopyası olduğunu düşünüyorsanız, lütfen yorum yapın ve cevabımı emekli edeceğim. )

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

Örnek çalışma:

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 bayt

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/ *$//'

Standart girişi okur ve standart çıktı yazar. Dene:

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

Nasıl çalışır:

• splittek satırlara giriş (geçici dizindeki dosyalar $D)
• kullanarak satırları tek karakterlere ayırma grep(dosya * +)
• Mizanpaj karakterlerini yan yana kullanarak paste(TAB ayrılmış sütunlar)
• hizalama TAB'lerini çıkarın, dolgu TAB'lerini BLANK'larla değiştirin, sed

Düzenle:

• -9: Düzenli düzenleme kodu kaldırıldı ;rm -r $D(teşekkürler Tim)
• -2: kullanım +yerine _olarak eki ve kısaltması ${F}_için$F+
• -3: Lbölünmüş sonuç dosyalarından öneki kaldır

Yakut - 144 karakter

İşte benim ilk girişim, golf:

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

Çıktı için, yukarıdaki kurallara uygun çok satırlı bir dizgenin puts f textolduğu yerde çalıştırın text. Ungolfed versiyonu aşağıdadır:

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

Ruby'de benzer ancak sonuçta daha iyi bir çözüm için, Wayne Conrad'ın yukarıdaki kodunu inceleyin.

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

Sigara golfed:

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

Bu benim ilk golf denemem, lütfen nazik ol! Ayrıca, ipuçları / öneriler çok takdir edilecektir!

MATHEMATICA 117 karakter

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)

stdin okur ve stdout'a yazar. puanına 1 ekleyereksay

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

CJam, 32 25 bayt

CJam bu mücadeleden daha yeni, bu nedenle bu cevap kabul edilmeye uygun değil.

Kullanıcı23013 tarafından büyük ölçüde kısaltılmıştır.

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

Burada test et.

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``

Daha az golf oynadı

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('')

Ölçek

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>

Retina , 40 bayt

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

Çevrimiçi deneyin!

Leo'nun önerisini bilinen boyutta bir dikdörtgenin transpozisyonu için kullandığı herhangi bir dikdörtgenin transpoze etmek için yarattığı bu programa dayanarak .

Düzenleme: Golf daha fazla ve artık satırlarında izleyen boşluk var.

Perl 5 , 25 bayt

Bunun ANSI kaçış dizilerini kullandığını ve TIO'da çalışmadığını, ancak eylem halini burada görebilirsiniz .

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

açıklama

Bu kod ilk önce list separator ( $") değerini dikey bir sekme olacak şekilde değiştirir, ardından '1 sütuna geri gitme' ( \x1b[1D) için ANSI çıkış sırasını takip eder , ardından örtülü olarak basılan değişkeni $_ANSI çıkış sırasına başlayan bir dize olarak ayarlarız. 'satır 1 sütununda yazdırmaya başla $.( $.geçerli metin satırı nerede )' ( \x1b1;$.H) ve listeyi @F(bu satırdaki tüm karakterlerin listesi olan, autosplit ( -a) ile boş bir bölme deseni ( -F) ile doldurulur ) araya sokar içeriğini $"her bir öğenin arasına yerleştirir, imleci önceki karakterden sonra çıktısını devam ettirmek yerine dikey olarak aşağıya kaydırır.

Çevrimiçi deneyin!

C ++ (243 karakter)

İşte bir dize alır ve döndüren bir işlev.

Birkaç düzine karakter traş edebilirdim, ama aptal olmayan bir kod olarak tutmaya karar verdim (hızlı koşuyor, tamam okuyor). Belki de bunu yapmaya karar verdim çünkü bu benim ilk golf kodumdur ... Henüz yeterince sert değilim :)

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

Biçimlendirme ile:

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 karakter :

oneliner:

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

ve daha temiz bir baskıda:

>>> 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
  ?

115 karakter içinde:

>>> 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 karakter

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

Bu ilk denemedir; İyileştirilebileceğinden şüpheleniyorum. Kodun çoğu, doldurma ve iz bırakma alanı kaldırma gereksinimlerine uymaktır - bunlar olmadan, n%zip n*yeterli olur.

Ps. Aşağıdaki 46 karakterlik sürüm, verilen örnek girdi için işi yapacak, ancak herhangi bir girdi sütunu tamamen boşluklardan oluşuyorsa çökecektir:

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

Bunun açıkça söylemediği halde, diskalifiye edilmesi için yeterli olduğunu varsayıyorum.

Şema / Raket 113

Metin:

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

Yeni çizgiler ve ekstra beyaz boşluklar olmadan:

(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)))

Kullanıcı dostu versiyon

(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)

Çok kısaydı, beyaz boşluk eklemeye ihtiyacım vardı ...

Python 89 103 karakter

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

Kirli hissediyorum. Endüstriyel dayanıklılık için 90 104 karakter. : ^)

Mathematica, 95 karakter

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

K, 56

Bu şimdi şartnameye uygun olmalı.

Bir dizeyi kabul eder, bir dize döndürür.

{`/:{$[" "=*|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"

Harika, 98 karakter

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

internet üzerinden

ungolfed:

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

Pyth , 11 bayt

# aYcw1;.tY

Çevrimiçi deneyin!

Bir dizge olarak girdi alır, listelerin bir listesini çıkarır

Pyth , 25 bayt

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

Bir dizge olarak girdi alır, bir dizge çıkarır.

Çevrimiçi deneyin!

J, 28 26 Bayt

Frownyfrog sayesinde 2 bayt kaydedildi

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

Bir dize alır, bir dize döndürür. 'Cutopen' işlevinin daha kısa bir sürümü olup olmadığından emin değilim. fiilinin .

Ayrıca daha kısa var

t=.|:@:>@cutLF

Ancak OP'nin kurallarına uyduğundan emin değilim, çünkü bir dizi karakter döndürür.

Nasıl çalışır:

                     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

Diğer sürüm aynı şekilde çalışır, ancak aktarılan diziyi doğru biçimlendirilmiş bir dizeye dönüştürmez.

Örnekler:

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 bayt

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

Çevrimiçi deneyin!

Burada başka bir Lua çözümü gördüm, ancak aynı dilde 2 çözüm göndermede bir sorun olduğunu sanmıyorum. Varsa, söyle bana :)