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

Дана рядок , що складається з друку 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 minimal veniam,
     quis nostrud

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

напруження
ullamco Laboris

nisi ut aliquip ex

ea commodo posleat.

Вугілля деревне , 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

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

Безумовно

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упущено з рахунку, оскільки 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).