COBOLは非常に古い言語であり、執筆時点では58歳です。実際、非常に古いため、非常に興味深い癖があります。各行の最初の6文字はコメントです。

これはなぜですか？まあ、これらの6文字は、プログラムが完全にデジタル化されておらず、コンピューターに入力されていなかった当時、行番号として使用されることを目的としていました。

さらに、7番目の文字は非常に小さなセットの一部にしかならない可能性があります（通常*、行またはスペースをコメントアウトして、コードから行番号を分離します）

しかし、よりデジタルシステムを使用していて、生のプログラムだけが必要な場合はどうでしょうか。

コメントシステム

COBOLには2種類のコメントがあります。行コメントと前述の「行番号」コメントです。

行番号のコメントを外すのは簡単です。各行から最初の7文字（6プラス1スペース）を削除するだけです。

000000 apple
000001 banana
celery donuts

になるだろう：

apple
banana
donuts

行コメントはそれを少し難しくします。行コメントは*、次のように、行の7番目の文字位置にアスタリスクを配置して開始されます。

000323* this is a comment

これは行コメントではありません：

*00000 this isn't a comment

行コメントのコメントを解除するには、行全体を削除します。

「プログラム」とコメントされた例：

000000 blah blah
000001* apples
000002 oranges?
000003* yeah, oranges.
000*04 love me some oranges

コメントなしのバージョン：

blah blah
oranges?
love me some oranges

つまり、文字列のコメントを解除するには、各行の最初の6文字を削除してから、スターで始まらないすべての行の最初の文字を除くすべてを返します。

挑戦

コメント化されたプログラムを受け取り、コメント化されていないバリアントを返すプログラムまたは関数を作成します。

明確化

• アスタリスク（*）は、行の最初の7文字以外の場所では検出されません（構文の確認を求めているわけではありません）
• 各行には常に少なくとも7文字が含まれます。
• 7番目の文字は常にアスタリスクまたはスペースであると想定できます。
• 入力または出力は、マトリックスまたはリストです。
• 印刷可能なASCII文字（および改行）のみを処理する必要があります。
• 末尾に改行を付けて出力できます。また、必要に応じて、入力の末尾に改行があると想定することもできます。

得点

これはcode-golfなので、バイト数が最小の答えが勝ちです！

_{免責事項：私は実際にCOBOLを知らず、主張もしていません。この質問で私が行ったCOBOLに関する主張のいずれかに誤りがある場合、私は責任を負いません。}

COBOL（GnuCOBOL）、191 + 17 = 208バイト

私はこの答えについてCOBOLを「学習」したので、おそらく完全にゴルフではありません。

これは完全なプログラムであり、標準入力と思われるものを入力し、標準出力と思われるものに書き込みます。おそらくいつかこれに戻り、（1）COBOLに関数があるかどうかを判断し、ある場合は、（2）関数ソリューションが短くなるかどうかを確認します。

バイトカウントには、プログラムおよびコンパイラフラグ（-freeおよび-frelax-syntax）が含まれます。

program-id.c.select i assign keyboard line sequential.fd i. 1 l pic X(80). 88 e value 0.open input i perform until e read i end set e to true end-read if not e and l(7:1)<>'*'display l(8:73).

オンラインで試す

ゴルフされていないプログラム

program-id. c.

select i assign to keyboard organization line sequential.

fd i.
    1 l pic X(80).
    88 e value 0.

open input i
perform until e
    read i
        end set e to true
    end-read
    if not e and l(7:1) <> '*'
        display l(8:73).

制限事項

技術的に言えば、出力は正しくありません。私の大まかな研究から、COBOLで文字列を格納する唯一の実用的な方法は、固定サイズのバッファにあるようです。これは固定形式プログラムの行の長さの制限であるため、80文字のバッファーサイズを選択しました。これには2つの制限があります。

• 80文字より長い行は切り捨てられます。
• 80文字より短い行には、スペースが右詰めされます。

まあ、それはCOBOLなので、これは受け入れられると思います。そうでない場合は、代替案を検討したいと思います。

謝辞

• Edward Hのおかげで-166バイト
• -hornjのおかげで2バイト

パイソン2、39の 38 37バイト

LyricLyのおかげで-1バイト。Megoのおかげで-1バイト。

lambda s:[i[7:]for i in s if'*'>i[6]]

オンラインでお試しください！

文字列のリストとしてのI / O。

Perl 5の、19 + 1（-p）は= 20の 16のバイト

Pavelの提案で-4バイト

s/.{6}( |.*)//s

オンラインでお試しください！

V、13 11 10バイト

Î6x<<
çª/d

オンラインでお試しください！

説明

Î       ' On every line
  x     ' delete the first...
 6      ' 6 characters
   <<   ' and unindent the line (removes the leading space)
ç /     ' on every line
 ª      ' matching \*
   d    ' delete the line

Hexdump：

00000000: ce36 783c 3c0a e7aa 2f64                 .6x<<.../d

Paradoc（v0.2.8 +）、8バイト（CP-1252）

µ6>(7#;x

行のリストを取得し、コメント化されていない行のリストを作成します。

説明：

μ        .. Map the following block over each line (the block is terminated
         .. by }, but that doesn't exist, so it's until EOF)
 6>      .. Slice everything after the first six characters
   (     .. Uncons, so now the stack has the 6th character on top
         .. and the rest of the line second
    7#   .. Count the multiplicity of factors of 7 in the character
         .. (treated as an integer, so '*' is 42 and ' ' is 32)
      ;  .. Pop the top element of the stack (the rest of the line)...
       x .. ...that many times (so, don't pop if the 6th character was a
         .. space, and do pop if it was an asterisk)

こんにちは、私はゴルフのプログラミング言語を書きました。:)

私はまだこれを開発しており、スペースとアスタリスクを「7#」よりも区別するためのより合理的な方法があるように、これを書いた後に組み込みの束を追加/微調整しましたが、私はこれが競合しないように感じます。まだうまくいったのは幸運です（これは3日前にコミットしたv0.2.8の機能のみを使用しています）。

オクターブ、23バイト

@(s)s(s(:,7)~=42,8:end)

オンラインでお試しください！

ゼリー、11 9バイト

ṫ€7Ḣ⁼¥Ðf⁶

オンラインでお試しください！

行のリストとして入力および出力します。

@EriktheOutgolferと@JonathanAllanのおかげで-2バイト

使い方

ṫ€7Ḣ=¥Ðf⁶
 €           On each line:
ṫ 7            Replace the line with line[7:]
      Ðf     Keep all lines that meet condition:
     ¥         Dyad:
   Ḣ             First Element (modifies line)
    =            Equals
        ⁶    Space

PowerShell、32バイト

$input-replace'^.{6}( |.*)'-ne''

オンラインでお試しください！

パイプライン入力は、文字列の配列として入力され、-replaceすべての文字列で機能し、-ne ''（空の文字列とは異なります）配列に適用され、空白行を除外します。

C、63 59 55 48 47 46バイト

さらに別のバイトを削除してくれた「匿名ユーザー」に感謝します。

Felix Palmenに、「7番目の文字は常にアスタリスクまたはスペースであると仮定することができます。」と思い出させてくれてありがとう。

f(char**a){for(;*a;++a)(*a)[6]&2||puts(*a+7);}

次のように使用します：

char** program = { "000000 apple", "000001 banana", "celery donuts", 0 };
f(program);

オンラインでお試しください！

実際には、13バイト

⌠6@tp' =*⌡M;░

入力と出力は文字列のリストとして行われます。

説明：

⌠6@tp' =*⌡M;░
⌠6@tp' =*⌡M    for each line:
 6@t             discard the first 6 characters
    p            pop the first character of the remainder
     ' =         is it a space?
        *        multiply the string by the boolean - returns the string if true, and an empty string if false
           ;░  filter out empty strings

オンラインでお試しください！

ガイア、9バイト

6>¦'*«⁈ḥ¦

文字列のリストを受け取り、文字列のリストを返す関数。

オンラインでお試しください！

説明

6>¦        Remove the first 6 characters of each string
   '*«⁈    Filter out ones that start with *
       ḥ¦  Remove the initial space from each

Pyth、9バイト

少なくとも1行がある場合にのみ動作することに注意してくださいませんコメントし、少なくとも1行があるコメント。他のすべてのソリューションはすべての場合に機能します。

@pizzakingmeに感謝-2バイト！

m>d7.m@b6

ここで試してみてください！

説明

m>d7.m@b6     - Full program with implicit input. Takes input as a list of Strings.

m>d7          - All but the first 7 letters of 
    .m   (Q)  - The input, filtered for its minimal value using the < operator on
      @b6     - the 7th character -- note that "*" is greater than " "
              - Implicitly Output the result.

Pyth、11バイト

tMfqhTdm>d6

ここで試してみてください！

説明

tMfqhTdm> d6-暗黙的な入力を伴う完全なプログラム。入力を文字列のリストとして受け取ります。

       m> d6-各行の最初の6文字を削除します。
    hT-それぞれの最初の文字を取得します。
  fq d-最初の文字がアスタリスクであるものを保持します。
tM-それぞれの最初の文字を削除します。
            -暗黙的に出力します。

Pyth、11バイト

m>d7fqd@T6Q

ここで試してみてください！

説明

m> d7fq @ T6dQ-完全なプログラム。入力を文字列のリストとして受け取ります。

      @ T6-それぞれの6番目の文字。
    fq dQ-スペースを含む行を^のままにします。
m> d7-最初の7文字を切り取ります。
             -暗黙的に出力します。

Pyth、12バイト

tMfnhT\*m>d6

ここで試してみてください！

説明

tMfnhT \ * m> d6-暗黙的な入力を伴う完全なプログラム。入力を文字列のリストとして受け取ります。

        m> d6-各行の最初の6文字を削除します。
    hT-それぞれの最初の文字を取得します。
  fn \ *-アスタリスクに等しくないものをフィルタリングします。
tM-それぞれの最初の文字を削除します。
             -暗黙的に出力します。

Pyth、12バイト

m>d7fn@T6\*Q

ここで試してみてください！

説明

m> d7fn @ T6 \ * Q-完全なプログラム。入力を文字列のリストとして受け取ります。

      @ T6-各文字列の6番目の文字を取得します
    fn \ * Q-アスタリスクに等しくないものをフィルタリングします。
m> d7-最初の7文字を切り取ります。
              -暗黙的に出力します。

GNU Sed、19 + 2 = 21文字

拡張正規表現を有効にするには-E引数が必要sedです。

/^.{6}\*/d;s/^.{7}/

Java 8、40バイト

正規表現：仕事のための間違ったツールについてですが、完全ではありません。ラムダからStringのString（への割り当てFunction<String, String>）。入力には末尾の改行が必要です。

s->s.replaceAll("(?m)^.{6}( |.*\\n)","")

オンラインで試す

謝辞

• Sven Hohensteinの正規表現のおかげで-3バイト

Haskell、27 25バイト

ライコニのバージョンは私のものよりも短い：

f n=[x|' ':x<-drop 6<$>n]

オンラインでお試しください！

私のバージョン：

f n=[drop 7x|x<-n,x!!6<'*']

オンラインでお試しください！

C（gcc）、53 48 46バイト

x;main(y){for(y=&x;gets(y-6);x&2||puts(y+1));}

オンラインでお試しください！

-5バイト：この「プログラム全体」をgurkaの関数と同じサイズにするには非常に注意が必要でした。間違った型の配列の境界外（両方向）に書き込みを行っており、アスタリスクを見つけるためにリトルエンディアンと4バイトの整数に依存しています...

-2バイト：既に「ランダムな」.bss場所に書き込みを行っているのに、なぜ配列を宣言するのが面倒なのでしょうか。そこで、型も配列も使用しない文字列処理プログラムが登場します。char

R、47 45バイト

function(x)gsub("(?m)^.{6}( |.*\\n)","",x,,T)

SNOBOL4（CSNOBOL4）、72 70 66 50バイト

R	INPUT POS(6) (' '  REM . OUTPUT | '*') :S(R)
END

オンラインでお試しください！

SNOBOLのパターンマッチングは正規表現とはまったく異なりますが、ここでの考え方は同じです。行が「6文字、次にアスタリスク」に一致する場合、それを削除します。

これにより、実際にはSNOBOLの条件付き代入演算子をより活用できます。

パターンは次のようPOS(6) (' ' REM . OUTPUT | '*')に解釈されます：

位置6から開始して、スペースまたはアスタリスクに一致し、スペースに一致する場合は、行の残りをに割り当てOUTPUTます。

Vim、14バイト

Ctrl-VG5ld:%g/\*/dEnter

入力ファイルを編集するバッファーとしてロードし、上記のコマンドを入力します。出力は新しいバッファです。

ルビー、39 38 36 29 23 22 20 + 1 = 21バイト

$_[/.{6}( |.*
)/]=''

オンラインでお試しください！

-pフラグを使用します。

説明：

-pフラグは、コードの周りに暗黙のブロックを追加しますので、実際に実行して取得するコードは次のようになります。

while gets
    $_[/.{6}( |.*
)/]=''

    puts $_
end

getsテキストの行を読み取り、その結果をに格納し$_ます。

$_[/.../]=''の正規表現の最初の出現を削除...し$_ます。

/.{6}( |.*\n)/行の先頭にある任意の文字の6に一致し、その後にスペースまたは行の残りが続きます。最初にスペースが表示されるため、行全体を削除する前に、最初の6文字とスペースのみを削除しようとします。

$_ その後、印刷され、このプロセスが各行に対して繰り返されます。

Pyke、9バイト

36 4C 3E 23 64 DE 29 6D 74

ここで試してみてください！

読みやすい：

6L>#d.^)mt

ここで試してみてください！

6L>        -   [i[6:] for i in input]
   #d.^)   -  filter(i.startswith(" ") for  i in ^)
        mt - [i[-1:] for i in ^]

網膜、23 15バイト

nmjcman101のおかげで5バイト節約Neilの
おかげで1バイト節約

m`^.{6}( |.*¶)

オンラインでお試しください！

JavaScript（ES6）、48バイト

s=>s.map(c=>c[6]<"*"?console.log(c.substr(7)):1)

オンラインでお試しください！

> <>、57 53バイト

>i~i~i~i~i~i~i67*=\
<o$/?:$/?=a:;?(0:i<
\~$/~\ $
/  <o\?/

オンラインで試す

説明

>i~i~i~i~i~i~i67*=    Read in the first seven bytes of the line
 i~i~i~i~i~i~         Read, and discard 6 characters
             i        Read the seventh
              67*=    Check if the seventh character was an 
                      asterisk (and leave that value on the stack );

<o$/?:$/?=a:;?(0:i<    Read characters until a newline or eof
                 i     Read the next character of the line
            ;?(0:      If it's a -1, terminate the program
       /?=a:           If it's a newline, break out of the loop
   /?:$                If the seventh character was not an asterisk
<o$                    Output this character
\~$/                   otherwise discard it

   /~\ $    Having reached the end of the line, output
/  <o\?/    the newline only if it was not a comment

編集：53バイト

>   i~i~i~i~i~i~i67*=\
/?=a<o/?$@:$@:$;?(0:i<
~   \~/

基本的に以前と同じものですが、わずかに再構築されました

サイドノートとして：私は誰もまだこれをcobolで行っていないことに失望しています。

C＃、160 145 90 89バイト

t=>{var o="";foreach(var s in i.Split('\n'))if(s[6]!=42)o+=s.Substring(7)+"\n";return o;}

サイズを小さくしてくれたPavelとauhmaanに感謝します。

Python 3、71バイト（正規表現なし）

def f(s):
 for w in s.split('\n'):
  t=w[6:]
  if t[0]!='*':print(t[1:])

できます！

>>> s="""000000 blah blah
000001* apples
000002 oranges?
000003* yeah, oranges.
000*04 love me some oranges"""
>>> f(s)
blah blah
oranges?
love me some oranges

05AB1E、11バイト

|ʒ6èðQ}ε7F¦

オンラインでお試しください！

JavaScript、44 34バイト

^{取り消し線44は、まだ通常の44です。}

tshのおかげで6バイト節約

a=>a.replace(/^.{6}( |.*\n)/gm,'')

オンラインでお試しください！

C ++（GCC）、121 112バイト

9バイトを節約してくれた@gurkaに感謝します！

#import<bits/stdc++.h>
void f(std::list<std::string>l){for(auto s:l)if(s[6]-42)std::cout<<s.substr(7,s.size());}

入力を行のリストとして受け取ります。

オンラインでお試しください！

Java 8、95 54 53バイト

s->s.filter(x->x.charAt(6)<33).map(x->x.substring(7))

@OliverGrégoireのおかげStream<String>でString、インおよび出力としてではなくaを使用して-42バイトになりました。

説明：

ここで試してみてください。

s->                          // Method with Stream<String> as parameter and return-type
  s.filter(x->x.charAt(6)<33)//  Filter out all lines containing an asterisk as 7th char
   .map(x->x.substring(7))   //  And remove the first 7 characters from the remaining lines
                             // End of method (implicit / single-line body)