EDIT Я змінив формулювання правил, щоб зробити явніші деякі речі. Я також додав деякий акцент, щоб усунути деякі моменти явної плутанини, і чітко визначив варіант створення окремої програми замість функції.

Мета полягає в тому, щоб зробити функцію, яка приймає текстовий файл (або рядок) і переміщує його, щоб рядки стали стовпцями і навпаки.

Приклад:

Я текст.
Перекладіть мене.
Ви можете зробити це?

Призводить до:

ІТЦ
 ра
аан
мн
 си
апо
 ун
ц
eed
xo
тм
.ei
 .t
  ?

Правила:

• Ви дозволили припустити , що тільки пробільні символи використовуються " "і "\n"і що немає завершальних пропусків в будь-якому рядку.
• Ви можете припустити, що файл ASCII. Який маркер кінцевої лінії ви хочете використовувати, залежить від вас (CRLF або LF). Він повинен правильно працювати на прикладі, але він також повинен працювати на будь-якому вкладі, який задовольняє наведеним вище припущенням.
• Можливо, вам доведеться вставити пробіли (як у прикладі) там, де їх не було, щоб стовпці були у рядку.
• У вашому результаті не повинно бути пробілів пробілу в жодному рядку .
• Остаточний символ нового рядка (для останнього рядка) необов’язковий.
• Це повинна бути або функція, або повна програма. Якщо ваша функція приймає рядок, вона повинна повертати результати у вигляді рядка. Якщо він приймає ім'я файлу, то ви повертаєте ім'я файлу, де ви зберегли результат. Вам також дозволено написати повну програму, яка приймає вхід від STDIN і видає правильний результат в STDOUT; якщо ви це зробите, ви не повинні нічого виводити на STDERR.
• Найкоротша процедура виграє, але я підтримаю будь-яку відповідь, яка мені подобається.

Виходячи з правил, результат на прикладі має тривалість 53 або 52 байти (для нових рядків LF) залежно від того, включений чи ні останній рядок.

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

Japt , 6 байт

y mx1R

Спробуйте
запустити двічі - повертає початковий рядок

Пояснення

y

Транспонуйте вхід

m  R

Мапа над кожним рядком

x1

Обріжте право

J ( 31 40)

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

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

Редагувати: у жодному рядку немає пробілів.

Тест:

   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
  ?

Рубін 111

Гольф:

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

Безголівки:

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 є функція переміщення масиву, тому це просто прошиває рядки, перетворює їх у масив символів, використовує функцію перенесення Ruby's Array # transpose, а потім перетворює масив символів назад у рядки.

Для гольфу це було просто за допомогою однозначних ідентифікаторів, видалення пробілів, використання тимчасових для text.lines та введення обчислення для вставки max_length (немає балів для ефективності).

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

Приклад використання:

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
  ?

Заміщений пробіл видалено.

Python 2.7 ( 97 79 94 90)

EDIT: Відсутня вимога до функції;

Я досить впевнений, що це буде покращено, оскільки я тут як початківець, але для початку;

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

Код використовує простий, splitщоб розділити рядок на вектор рядків. Потім він використовує mapзі значенням функції None(функція єдності) та оператором splat для переміщення та zip_longestнакладки вектора (аналогічний функціоналу в Python3)

Решта коду просто перетворюється Noneна простір, обрізає та знову збирає матрицю до однієї струни.

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

foldі pasteвиконувати важливу роботу. Решта - лише форматування.

Приймає введення з stdin та виводить у stdout:

$ < 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 байт)

Редагувати: Це фактично порушує правила, оскільки воно приймає ім'я файлу в якості аргументу, але пише в stdout. Пізніше я відредагую його, щоб записати у файл, а потім надрукую ім'я файлу до stdout.

Це мій перший гольф з кодом коли-небудь, тож помилуй. Якийсь звичайний старий С. Помістіть вхід test.txtі нехай він працює!

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

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

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

Тест

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

Ruby: 88 символів

(Опубліковано, оскільки це коротше, ніж інші рішення Ruby. Не перевіряється, чи вводить мій код щось нове порівняно з тими. Якщо ви вже опублікували рішення Ruby, і ви вважаєте, що це здебільшого ваша копія, будь ласка, прокоментуйте, і я скасую свою відповідь. )

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

Проба зразка:

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 байти

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

Він читає стандартний вхід і записує стандартний вихід. Спробуй це:

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

Як це працює:

• splitвведення в єдині рядки (файли у тимчасовому каталозі $D)
• розділити лінії на одиничні символи, використовуючи grep(файли * +)
• символи компонування поруч із використанням paste(розділені TAB стовпці)
• видаліть таблички вирівнювання, замініть таблички заповнення BLANK, обріжте за допомогою sed

Редагувати:

• -9: Видалений прибраний код ;rm -r $D(спасибі Тім)
• -2: використовувати +замість _суфікса та скоротити ${F}_до$F+
• -3: видалити префікс Lіз розділених файлів результатів

Рубін - 144 символи

Ось моя перша спроба, гольф:

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

Для виведення запустіть, puts f textде textє будь-яка багаторядкова рядок, що дотримується правил вище. Недозволена версія нижче:

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, ознайомтеся з кодом Уейна Конрада вище.

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

Не гольф:

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

Це моя перша спроба в гольф, тому будь ласка, будь ласка! Також поради / пропозиції будуть дуже вдячні!

MATHEMATICA 117 символів

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 і пише в stdout. додавши 1 бал заsay

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

CJam, 32 25 байт

CJam є новішим, ніж цей виклик, тому ця відповідь не може бути прийнятою.

Значно скорочений користувачем23013.

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

Перевірте це тут.

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

Менше гольфу

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

Тест

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>

Сітківка , 40 байт

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

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

На основі цієї програми, яку я створив, щоб перенести будь-який розмір прямокутника, який використовує пропозицію Лео для перенесення прямокутника відомого розміру.

Редагувати: Гольф більше і більше не має пробілів на лініях.

Perl 5 , 25 байт

Зауважте, що для цього використовуються послідовності відбору ANSI і як такий не працює в TIO, однак ви можете побачити це в дії тут .

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

Пояснення

Цей код спочатку змінює значення роздільника списку ( $") на вертикальну вкладку, після чого послідовність аварійної послідовності ANSI для 'іти назад 1 стовпець' ( \x1b[1D), потім ми встановлюємо неявно надруковану змінну $_на рядок, що починається з послідовності запуску ANSI для 'почати друк у стовпці 1-го рядка $.(де $.знаходиться поточний рядок тексту)' ( \x1b1;$.H) та інтерполює список @F(який є списком усіх символів на цьому рядку, заповненим автосплітом ( -a) з порожнім розділеним малюнком ( -F)) який розміщує вміст $"між кожним елементом, переміщуючи курсор вертикально вниз, а не продовжуючи вихід після попереднього символу.

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

C ++ (243 символи)

Ось функція, яка бере і повертає рядок.

Я міг би поголити пару десятків символів, але вирішив зберегти це як не дурний код (працює швидко, добре читає). Можливо, я лише вирішив це зробити, тому що це мій перший гольф-код ... Я ще не досить жорсткий :)

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

З форматуванням:

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 символів :

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'

і більш чистим друком:

>>> 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 символів:

>>> 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 знак

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

Це перша спроба; Я підозрюю, що його можна вдосконалити. Більшість коду полягає у дотриманні вимог щодо вилучення місця та затримки простору - без них просто n%zip n*вистачить.

Пс. Наступна 46 -характерна версія виконає роботу для заданого введення зразка, але перестане працювати, якщо будь-який стовпець вводу повністю складається з пробілів:

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

Я припускаю, що цього достатньо, щоб дискваліфікувати це, навіть якщо виклик прямо не говорить про це.

Схема / Ракетка 113

Текст:

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

Без нових ліній та зайвих пробілів:

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

Зручна версія користувача

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

Хаскелл

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

Це було так коротко, що мені потрібно було додати в білий простір ...

Пітон 89 103 символів

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

Я відчуваю себе брудно. 90 104 знаків для промислової міцності. : ^)

Математика, 95 чол

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

К, 56

Це має відповідати специфікації зараз.

Приймає рядок, повертає рядок.

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

Гроовий, 98 ч

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

онлайн

неозорений:

{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 байт

# aYcw1;.tY

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

Приймає введення як рядок, виводить список списків

Pyth , 25 байт

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

Приймає введення як рядок, виводить рядок.

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

J, 28 26 байт

Збережено 2 байти завдяки нахмуреній жабі

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

Бере рядок, повертає рядок. Я не впевнений, чи існує більш коротка версія дієслова функції cutopen, яку я міг би використати.

Там також коротше

t=.|:@:>@cutLF

Але я не впевнений, що він підпадає під керівництво ОП, оскільки він повертає масив символів.

Як це працює:

                     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

Інша версія працює так само, але не перетворює транспонований масив у правильно відформатований рядок.

Приклади:

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?

Луа ,203 189 байт

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

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

Тут я побачив ще одне рішення Lua, але не думаю, що існує проблема із розміщенням 2 рішень на одній мові. Якщо є, скажіть мені :)