Как праздник старого доброго Блокнота , мы будем рассматривать возврат каретки и перевод строки как то, что они изначально имели в виду, а не как они (ab-) используются сегодня.

Дана строка , состоящая из печати ASCII плюс каналы линии (␊; LF; ESC \n; шестигранной 0A; разл 10) и возврат каретки (␍; CR; ESC \r; шестигранный 0D; реш 13), причина попробовать Интернет , чтобы показать , как печатные символы будет расположен, если напечатано на принтере, который принимает эти два управляющих символа буквально:

1. после перевода строки продолжайте печатать еще одну строку вниз
2. при возврате каретки продолжить печать с левого края
3. несколько последовательных возвратов каретки ведут себя как одиночный возврат каретки

Из-за того, что современные устройства имеют проблемы с перегрузкой , выполнение одного или нескольких возвратов каретки, за исключением начала ввода, никогда не произойдет без хотя бы одного предшествующего и / или последующего перевода строки. Однако два ряда возвратов каретки могут быть разделены одним переводом строки.

Любое количество дополнительных конечных пробелов допустимо как с правой стороны любых строк, так и под всем текстом, при условии, что сохраняется хотя бы количество пробелов, указанное во входных данных.

Примеры (использование \nи \rдля перевода строки и возврата каретки)

Lorem ipsum dolor sit amet,

Lorem ipsum dolor sit amet,

consectetur adipiscing\nelit, sed

consectetur adipiscing
                      elit, sed

do eiusmod\r\ntempor incididunt\n\n ut labore

do eiusmod
tempor incididunt

                  ut labore

et dolore\n\rmagna \r\r\naliqua. Ut (обратите внимание на пробелы)

et dolore
magna          
aliqua. Ut

\nenim ad minim veniam,\n\r quis nostrud

Enim Ad Minim Veniam,
     Quis Nostrud

\rexercitation\r\n\rullamco laboris\n\r\nnisi ut aliquip ex\n\n\rea commodo consequat.\n\n

упражнение
Ullamco Labouris

Ниси ут аликип экс

коммандос.

Древесный уголь , 10 байт

ＵＴＦθ«ι≡ι⸿↑

Попробуйте онлайн! Ссылка на подробную версию кода. Объяснение:

ＵＴ

Отключить правый отступ.

Ｆθ«

Цикл по входу.

ι

Распечатать текущий символ. Это автоматически обрабатывает \n(что уголь рассматривает как \vв этом контексте), но уголь переводится \rв \r\n, так что ...

≡ι⸿

... проверить на \r...

↑

... и если так, то вернитесь на линию вверх.

Рубин , 24 17 байт

->s{s.tr $/,"\v"}

Попробуйте онлайн!

Он не работает на TIO, но работает на консоли Linux.

Java 10, 211 207 206 байт

s->{var a=s.replace("\r\n","\n\r").split("(?<=\n)");int i=0,p=0,j;for(var x:a){for(j=x.charAt(0)<14?0:p;j-->0;x=" "+x);j=(a[i++]=x.replace("\r","")).length()-1;p=x.matches("\\s+")?p:j;}return"".join("",a);}

Попробуйте онлайн.

Объяснение:

s->{                      // Method with String as both parameter and return-type
  var a=s.replace("\r\n","\n\r")
                          //  Replace all "\r\n" with "\n\r"
        .split("(?<=\n)");//  Create String-array split by "\n",
                          //  without removing the trailing "\n" delimiter
  int i=0,                //  Index integer
      p=0,                //  Previous line-length, starting at 0
      j;                  //  Temp integer
  for(var x:a){           //  Loop over the String-array
    for(j=x.charAt(0)<14?0//   If the current line starts with either '\r' or '\n':
        0                 //    Prepend no spaces
       :                  //   Else:
        p;j-->0;x=" "+x); //    Prepand `p` amount of spaces for the current item
    j=(a[i++]=x.replace("\r",""))
                          //   Remove all "\r" from the current line
       .length()-1;       //   Set `j` to the current line-length (minus the trailing '\n')
    p=x.matches("\\s+")?  //   If the current line only contains '\r', '\n' and/or spaces:
       p                  //    Leave `p` unchanged
      :                   //   Else:
       j;}                //    Change `p` to this line-length minus 1
  return"".join("",a);}   //  Return the String-array joined together

Старый ответ перед вызовом был изменен на 151 148 байт :

s->{String a[]=s.replace("\r\n","\n\r").split("(?<=\n)"),r="";int p=0,i;for(var x:a){for(i=p;i-->0;r+=" ");i=x.length()-1;p=i<1?p:i;r+=x;}return r;}

Объяснение:

s->{                            // Method with String as both parameter and return-type
  String a[]=s.replace("\r\n","\n\r") 
                                //  Replace all "\r\n" with "\n\r"
              .split("(?<=\n)"),//  Create String-array split by "\n",
                                //  without removing the trailing "\n" delimiter
         r="";                  //  Result-String, starting empty
  int p=0,                      //  Previous line-length, starting at 0
      i;                        //  Index (and temp) integer
  for(var x:a){                 //  Loop over the String-array
    for(i=p;i-->0;r+=" ");      //   Append `p` amount of spaces to the result
    i=x.length()-1;p=i<1?p:j;   //   If the current line is not empty:
                                //    Replace `p` with the length of this current line
    r+=x;}                      //   Append the current item
  return r;}                    //  Return the result-String

Не работает в TIO, работает в командной строке Windows:

JavaScript (Node.js) , 85 байт

s=>s[R='replace'](/(.*)([\n\r]+)/g,(_,t,b)=>t+b[R](/\r/g,_=>s='',s=t[R](/./g,' '))+s)

Попробуйте онлайн!

Python 2 , 150 128 122 104 103 байта

def f(s):
 i=n=0;l=''
 for c in s:l,n,i=[l,l+c,l+' '*i*n+c,n,1,0,0,i,i+1]['\r\n'.find(c)%3::3]
 print l

Попробуйте онлайн!

Добавлено:

• -1 байт, спасибо Линн

C (gcc) , 100 94 байта

b,c,d;f(char*s){for(b=13;b;b=*s++)b==13?c=d=0:b-10?d=!printf("%*c",++d,b),++c:putchar(b,d=c);}

Предполагает кодирование ASCII ( '\r'==13, '\n'==10); настроить в соответствии с другими системами.

Попробуйте онлайн! (требуется Javascript)

Читаемая версия

int c = 0;
int d = 0;

f(char*s)
{
    for (;*s;++s) {
        switch (*s) {
        case'\r':
            c = d = 0;
            break;
        case'\n':
            d = c;
            putchar(*s);
            break;
        default:
            printf("%*s%c", d, "", *s);
            d = 0;
            ++c;
        }
    }
}

cтекущая позиция столбца; dколичество пробелов, которые должны быть вставлены перед печатным символом. Предполагается, что оба значения равны нулю при входе в функцию.

Тестовая программа

int main(int argc, char **argv)
{
    char s[1024];
    if (argc <= 1)
        while (fgets(s, sizeof s, stdin))
               f(s);
    else
        for (int i = 1;  i < argc;  ++i)
            f(argv[i]);
}

Python 3 , 101 94 байта

На основании ответа TFeld .

def f(s):
 i=n=0
 for c in s:k='\r\n'.find(c);a=k&1;print(end=-k*' '*i*n+c*a);n=k>0;i=i*a-k//2

Попробуйте онлайн!

Ungolfed

def f(s):
  i=0  # position of the cursor
  n=0  # was the last character LF?
  for c in s:        # iterate over the input
    k='\r\n'.find(c) # k := 0 for CR, 1 for LF and -1 for every other character
    a=k&1            # as (-1)&1 == (1)&1 == 1, this is a := abs(k)
    print(end=-k*' '*i*n+c*a) # If c is a normal character (k == -1) and the last character was LF, 
                              # print leading spaces. If c is not CR, print it
    n=k>0            # n := True if c is LF, False otherwise
    i=i*a-k//2       # If c is either a newline or a printable character (a == 1),
                     # keep the cursor's position and increment it for a printable character ((-1)//2 == -1)

Чисто , 92 91 байт

-1 спасибо Лайкони!

Примечание: \ in \rисключен из bytecount, так как Linux CG обрабатывает литерал \rи \ns.
Примечание: Windows CG требует \nи \rдолжен быть экранирован, так что +3, если он должен работать в Windows.

import StdEnv
?n['\r':t]= ?0t
?n['
':t]=['
':spaces n]++ ?n t
?n[h:t]=[h: ?(n+1)t]
?_ e=e

?0

Попробуйте онлайн!

Частичное применение ? :: Int [Char] -> [Char]с 0 в качестве начального первого аргумента. Это происходит по каждому символу, отслеживая, сколько пройдено, счетчик сбрасывается, когда он встречает возврат каретки, и когда он встречает символ новой строки, он добавляет пробелы, равные количеству символов, пройденных в этой точке.

Haskell , 93 87 байтов

l=0#0
(n#x)(t:r)|t=='\n'=t:(n#1)r|t=='\r'=l$r|m<-n+1=(' '<$[1..n*x])++t:(m#0)r
(_#_)e=e

Попробуйте онлайн!

Довольно простое решение. # - это инфиксная функция, которая рекурсивно создает вывод по одному символу за раз, сохраняя при этом счетчик положения символа (n) и флаг, когда следует добавлять пробелы после новой строки (x).