이번 주 초, 우리는 주석을 달기 위해 난해한 언어의 형식을 지정 하는 방법을 배웠습니다 . 오늘, 우리는 그 반대를 할 것입니다. 잘 짜여진 난해한 코드를 파싱하고 주석을 파싱하여 코드 만 반환하는 프로그램이나 함수를 작성해야합니다. 이전 과제의 몇 가지 예를 사용하여 잘 작성된 코드는 다음과 같습니다.

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.

파이썬 2, 48 43 바이트

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

5 바이트를 골라 낸 @xnor에게 감사드립니다!

Ideone에서 테스트하십시오 .

자바 스크립트 (ES6), 97 75 60 바이트

22 바이트의 골프 오프를 도와 준 @ 닐 에게 감사 합니다

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

입력은 라인의 배열입니다.

• a 배열 입력입니다
• p 이전 항목입니다
• c 현재 상품입니다
• m 일치 문자열입니다
• o 오프셋

펄, 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 바이트

기본적으로 Dennis 'Jelly 의 항구는 대답 합니다. 입력을 문자열 배열로 취합니다.

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

eval.in에서 참조하십시오 : https://eval.in/640757

CJam , 12 바이트

2 바이트를 절약 한 Sp3000에 감사합니다.

{:.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:))

문자열 목록을 입력으로 사용합니다. 기본적으로 그의 젤리 답변에서 Dennis와 동일한 접근법을 사용합니다.

주석 및 설명

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?

자바 스크립트 (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 바이트

@milk 덕분에 35 바이트를 기록했습니다. 맹세하지만 일찍 시도했습니다.

입력을 2 차원 문자 배열로 사용합니다.

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

STDIN에서 문자열 목록을 입력하고 문자열을 인쇄하는 프로그램.

온라인으로 사용해보십시오

작동 원리

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 바이트

: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,...$,,

입력 끝에 줄 바꿈이 필요합니다.
나는 이것이 조금 더 골프를 칠 수 있다고 확신하지만, 그것이 현재로서는 효과가 있다고 생각합니다.

펄 6 , 39 바이트

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

Dennis 의 Python 솔루션 번역 .
입력을 문자열 목록으로 가져 와서 문자열을 반환합니다.

( 온라인 시도 )

젤리 , 27 바이트

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

TryItOnline 에서 테스트

가장 엄격한 사양을 사용합니다-주석 문자 앞에 바이트를 추가하여 제거하기위한 추가 공간.

입력은 문자열 목록입니다.

루비, 77 바이트

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

TSQL, 216 175 바이트

골프 :

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('%_#%',@))

언 골프 드 :

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('%_#%',@))

깡깡이

자바 스크립트, 56 34 바이트, 비경쟁

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

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

@ n̴̖̋h̷͉̃a̷̭̿h̸̡̅ẗ̵̨́d̷̰̀ĥ̷̳이 지적했듯이 추가 공간을 준비하지 않았습니다.

디아 로그 APL , 22 바이트

영감 .

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

(

 ⎕UCS 의 문자 표현

 ¯2↓ 마지막 두 개를 제외한 모두

 ⍳∘35↑ 괄호 밖에있는 첫 번째 35 ( "#")의 위치까지

 ⊢ 괄호 밖에있는 것

) 즉...

⌈⌿ 주상 최대

∘ 의

⎕UCS 유니 코드 값

TryAPL 온라인!