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

a                #Explanation of what 'a' does
 bc              #Bc
   d             #d
    e            #Explanation of e
     fgh         #foobar
        ij       #hello world
          k      #etc.
           l     #so on
            mn   #and
              op #so forth

Ось що потрібно зробити, щоб витягнути код. Спочатку видаліть символ коментаря ( #), пробіл перед ним та все після символу коментаря.

a               
 bc             
   d            
    e           
     fgh        
        ij      
          k     
           l    
            mn  
              op

Потім згорніть кожну лінію вгору на одну лінію. Наприклад, оскільки bзнаходиться у другому стовпчику другого рядка, як тільки ми його згортаємо, він буде у другому стовпчику першого рядка . Аналогічним чином cбуде розміщено в третьому стовпці рядка перший, а dбуде розміщено на четвертому. Повторіть це для кожного персонажа, і ви отримаєте це:

abcdefghijklmnop

Важлива примітка: Схоже, тривіальним рішенням є просто видалити коментарі, видалити пробіл і приєднатись до кожного рядка. Це НЕ обгрунтований підхід! Оскільки в оригінальному коді можуть бути пробіли, вони викреслюються при такому підході. Наприклад, це цілком коректний вклад:

hello         #Line one
              #Line two
       world! #Line three

І відповідний вихід повинен бути:

hello  world!

Змагання:

Напишіть програму або функцію, яка приймає коментований код як вхідний і виводить або повертає код з усіма розібраними коментарями з нього. Вам слід виводити код без пробілів, хоча допустимий один новий рядок. Персонаж коментаря завжди буде #, і перед початком коментарів завжди буде одне додаткове місце. #буде НЕ з'явиться в розділі коментарів введення. Щоб полегшити виклик, перегляньте кілька вправ, з якими вам не доведеться звертатися:

• Можна припустити, що код не буде мати два символи в одному стовпчику. Наприклад, це вхід, який порушує це правило:

  a  #A character in column one
  bc #Characters in columns one and two
  

• Ви також можете припустити, що всі символи коментарів відображаються в одному стовпчику. Наприклад, цей вхід:

  short       #this is a short line
        long        #This is a long line
  

  порушує це правило. Це також означає, що #не буде в розділі коду.

• І нарешті, вам не доведеться обробляти розділи коду з провідними чи задніми пробілами. Наприклад,

    Hello,          #
           World!   #
  

Ви також можете припустити, що вхід містить лише символи для друку ASCII.

Приклади:

Input:
hello         #Line one
              #Line two
       world! #Line three

Output:
hello  world!

Input:
E                                                   #This comment intentionally left blank
 ac                                                 #
   h s                                              #
      ecti                                          #
          on is                                     #
                one c                               #
                     haracte                        #
                            r longer                #
                                     than the       #
                                              last! #

Output:
Each section is one character longer than the last!

Input:
4          #This number is 7
 8         #
  15       #That last comment is wrong.
    16     #
      23   #
        42 #

Output:
4815162342

Input:
Hello                     #Comment 1
      world               #Comment 2
           ,              #Comment 3
             how          #Comment 4
                 are      #Comment 5
                     you? #Comment 6

Output:
Hello world, how are you?

Input:
Prepare                               #
        for...                        #
                        extra spaces! #

Output:
Prepare for...          extra spaces!

Ви можете взяти вхід у будь-якому розумному форматі, наприклад, список рядків, одна рядок з новими рядками, 2d список символів тощо. Найкоротший відповідь у байтах виграє!

Желе , 8 7 байт

»/ṣ”#ḢṖ

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

Як це працює

»/ṣ”#ḢṖ  Main link. Argument: A (array of strings)

»/       Reduce the columns of A by maximum.
         Since the space is the lowest printable ASCII characters, this returns the
         non-space character (if any) of each column.
  ṣ”#    Split the result at occurrences of '#'.
     Ḣ   Head; extract the first chunk, i.e., everything before the (first) '#'.
      Ṗ  Pop; remove the trailing space.

Python 2, 48 43 байт

lambda x:`map(max,*x)`[2::5].split(' #')[0]

Дякуємо @xnor за те, що виграли 5 байт!

Перевірте це на Ideone .

JavaScript (ES6), 97 75 60 байт

Дякуємо @Neil за те, що він допомагає гольфу з 22 байтів

a=>a.reduce((p,c)=>p.replace(/ /g,(m,o)=>c[o])).split` #`[0]

Введення - це масив ліній.

• a це вхід масиву
• p є попереднім пунктом
• c є поточним елементом
• m - це відповідна рядок
• o компенсується

Perl, 35 34 32 байт

Включає +1 для -p

Введіть дані про STDIN

eso.pl

#!/usr/bin/perl -p
y/ /\0/;/.#/;$\|=$`}{$\=~y;\0; 

Зауважте, що після фіналу є пробіл ;. Код працює, як показано, але замінити \0його буквальним символом, щоб отримати заявлений бал.

Пітон 2, 187 байт

def f(x,o=""):
 l=[i[:i.index("#")-1]for i in x]
 for n in range(len(l[0])):
  c=[x[n]for x in l]
  if sum([1for x in c if x!=" "])<1:o+=" "
  else:o+=[x for x in c if x!=" "][0]
 print o

Я буду займатись гольфом ще завтра в школі;)

Рубін, 63 байти

В основному порт Деніс відповідь Желе . Приймає введення як масив рядків.

->a{l,=a
l.gsub(/./){a.map{|m|m[$`.size]||$/}.max}[/(.+) #/,1]}

Дивіться це на eval.in: https://eval.in/640757

CJam , 12 байт

Завдяки Sp3000 за збереження 2 байт.

{:.e>_'##(<}

Безіменний блок, який приймає список рядків (по одному для кожного рядка) і замінює його однією рядком.

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

Пояснення

:.e>  e# Reduce the list of strings by elementwise maximum. This keeps non-spaces in
      e# favour of spaces. It'll also wreak havoc with the comments, but we'll discard
      e# those anyway.
_'##  e# Duplicate and find the index of '#'.
(<    e# Decrement that index and truncate the string to this length.

J, 30 байт

(#~[:<./\'#'~:])@(>./&.(3&u:))

Приймає список рядків як вхідний. В основному він використовує той самий підхід, що і Денніс у своїй відповіді Джелі.

Прокоментував і пояснив

ord =: 3 & u:
under =: &.
max =: >./
over =: @
maxes =: max under ord
neq =: ~:
arg =: ]
runningMin =: <./\
magic =: #~ [: runningMin ('#' neq arg)

f =: magic over maxes

Проміжні кроки:

   p
Hello                     #Comment 1
      world               #Comment 2
           ,              #Comment 3
             how          #Comment 4
                 are      #Comment 5
                     you? #Comment 6
   maxes p
Hello world, how are you? #Comment 6
   magic
#~ ([: runningMin '#' neq arg)
   3 neq 4
1
   '#' neq '~'
1
   '#' neq '#'
0
   '#' neq maxes p
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 1 1
   runningMin 5 4 2 5 9 0 _3 4 _10
5 4 2 2 2 0 _3 _3 _10
   runningMin '#' neq maxes p
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0
   0 1 0 1 1 0 # 'abcdef'
bde
   'abcdef' #~ 0 1 0 1 1 0
bde
   (maxes p) #~ runningMin '#' neq maxes p
Hello world, how are you? 
   (#~ [: runningMin '#' neq arg) maxes p
Hello world, how are you? 
   ((#~ [: runningMin '#' neq arg) over maxes) p
Hello world, how are you? 
   (magic over maxes) p
Hello world, how are you? 

Тестовий випадок

   f =: (#~[:<./\'#'~:])@(>./&.(3&u:))
   a
Hello                     #Comment 1
      world               #Comment 2
           ,              #Comment 3
             how          #Comment 4
                 are      #Comment 5
                     you? #Comment 6
   $a
6 36
   f a
Hello world, how are you?

Javascript (ES6), 63 байти

a=>a.reduce((p,c)=>p+/(.+?)\s+#/.exec(c)[1].slice(p.length),'')

Приймає введення як масив рядків.

F=a=>a.reduce((p,c)=>p+/(.+?)\s+#/.exec(c)[1].slice(p.length),'')

input.oninput = update;
update();

function update() {
  try {
    output.innerHTML = F(input.value.trim().split`
`);
  } catch(e) {
    output.innerHTML = 'ERROR: INVALID INPUT';
  }
}

textarea {
  width: 100%;
  box-sizing: border-box;
  font-family: monospace;
}

<h2>Input:</h2>
<textarea id="input" rows="8">
a                #Explanation of what 'a' does
 bc              #Bc
   d             #d
    e            #Explanation of e
     fgh         #foobar
        ij       #hello world
          k      #etc.
           l     #so on
            mn   #and
              op #so forth
</textarea>
<hr />
<h2>Output:</h2>
<pre id="output">
</pre>

Сітківка , 32 байти

Кількість байтів передбачає кодування ISO 8859-1.

Rmr` #.+|(?<=^(?<-1>.)+).+?¶( )+

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

Пайк, 15 10 байт

,FSe)s\#ch

Спробуйте тут!

Порт желейної відповіді

,          -     transpose()
 FSe)      -    map(min, ^)
     s     -   sum(^)
      \#c  -  ^.split("#")
         h - ^[0]

C # 157 122 байт

Полював 35 байт завдяки @milk - хоча клянусь, я спробував це раніше.

Вводить дані як двовимірний масив символів.

string f(char[][]s){int i=0;foreach(var x in s)for(i=0;x[i]!=35;i++)if(x[i]!=32)s[0][i]=x[i];return new string(s[0],0,i);}

157 байт:

string g(char[][]s){var o=new char[s[0].Length];foreach(var x in s)for(int i=0;x[i]!=35;i++)if(x[i]!=32|o[i]<1)o[i]=x[i];return new string(o).TrimEnd('\0');}

Pyth, 11 байт

PhceCSMCQ\#

A program that takes input of a list of strings on STDIN and prints a string.

Try it online

How it works

PhceCSMCQ\#  Program. Input: Q
       CQ    Transpose Q
     SM      Sort each element of that lexicographically
    C        Transpose that
   e         Yield the last element of that, giving the program ending with ' #' and some
             parts of the comments
  c      \#  Split that on the character '#'
 h           Yield the first element of that, giving the program with a trailing space
P            All but the last element of that, removing the trailing space
             Implicitly print

sed, 126 bytes

:a;N;$!ba;s,#[^\n]*\n,#,g;s,^,#,;:;/#[^ ]/{/^# /s,^# *,,;t;H;s,#.,#,g}
t;/#[^ ]/!{H;s,#.,#,g};t;g;s,\n#(.)[^\n]*,\1,g;s,...$,,

Requires a newline at the end of the input.
I'm sure I can golf this a little more, but I'm just happy it works for now.

Perl 6, 39 bytes

{[Zmax](@_».comb).join.split(' #')[0]}

Translation of the Python solution by Dennis.
Takes input as a list of strings, and returns a string.

(try it online)

Jelly, 27 bytes

żḟ€” ;€” Ḣ€
i€”#’©ḣ@"ç/ḣ®ṪṖ

Test it at TryItOnline

Uses the strictest spec - the extra space before the comment character is removed at the cost of a byte.

Input is a list of strings.

Ruby, 77 bytes

puts File.readlines("stack.txt").join('').gsub(/\s{1}#.*\n/,'').gsub(/\s/,'')

TSQL, 216 175 bytes

Golfed:

DECLARE @ varchar(max)=
'hello         #Line one
              #Line two
       world! #Line three'

DECLARE @i INT=1,@j INT=0WHILE @i<LEN(@)SELECT @=stuff(@,@j+1,len(x),x),@j=iif(x=char(10),0,@j+1),@i+=1FROM(SELECT ltrim(substring(@,@i,1))x)x PRINT LEFT(@,patindex('%_#%',@))

Ungolfed:

DECLARE @ varchar(max)=
'hello         #Line one
              #Line two
       world! #Line three'

DECLARE @i INT=1,@j INT=0
WHILE @i<LEN(@)
  SELECT @=stuff(@,@j+1,len(x),x),@j=iif(x=char(10),0,@j+1),@i+=1
  FROM(SELECT ltrim(substring(@,@i,1))x)x
PRINT LEFT(@,patindex('%_#%',@))

Fiddle

Javascript, 56 34 bytes, non-competing

q=>q.split(/\n/).map(x=>/ (.?) #./.exec(x)[1]).join()

q=>q.replace(/^ *| *#.*$\n?/gm,'')

As @n̴̖̋h̷͉̃a̷̭̿h̸̡̅ẗ̵̨́d̷̰̀ĥ̷̳ pointed out, I am not prepared for extra spaces

Dyalog APL, 22 bytes

Inspiration.

(⎕UCS¯2↓⍳∘35↑⊢)⌈⌿∘⎕UCS

(

 ⎕UCS character representation of

 ¯2↓ all but the last two of

 ⍳∘35↑ up until the position of the first 35 ("#"), in that which is outside the parenthesis, taken from

 ⊢ that which is outside the parenthesis

) namely...

⌈⌿ the columnar maximums

∘ of

⎕UCS the Unicode values

TryAPL online!