COBOL - очень старый язык, на момент написания ему 58 лет. На самом деле он настолько старый, что имеет очень интересную причуду: первые шесть символов каждой строки являются комментариями.

Вы спрашиваете, почему это? Ну, эти 6 символов были предназначены для использования в качестве номеров строк, в те времена, когда программы не были полностью цифровыми и печатались на компьютере.

Кроме того, седьмой символ может быть только частью очень маленького набора (обычно *это закомментирует строку или пробел, чтобы отделить номер строки от кода)

Но что, если вы работаете в более цифровой системе и вам нужна просто необработанная программа?

Система комментариев

В языке COBOL есть два типа комментариев: комментарии к строкам и вышеупомянутые комментарии к номеру строки.

Раскомментировать номера строк просто: просто уберите первые семь (шесть плюс один пробел) символов из каждой строки.

000000 apple
000001 banana
celery donuts

станет:

apple
banana
donuts

Строка комментариев делает это немного сложнее. Комментарий к строке начинается со звездочки, *расположенной в седьмой позиции символа в строке, например:

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

Другими словами, чтобы раскомментировать строку, удалите первые шесть символов каждой строки, а затем верните все, кроме первого символа каждой строки, которая не начинается со звезды.

Соревнование

Создайте программу или функцию, которая принимает закомментированную программу и возвращает ее незакомментированный вариант.

Разъяснения

• Звездочки ( *) никогда не будут найдены нигде, кроме первых семи символов в строке (мы не просим вас проверять синтаксис)
• Каждая строка всегда будет содержать не менее 7 символов.
• Вы можете предположить, что седьмой символ всегда является звездочкой или пробелом.
• Вход или выход может быть матрицей или списком.
• Только печатные символы ASCII (плюс перевод строки) должны быть обработаны.
• Вы можете выводить с последующим переводом строки. Вы также можете предположить, что ввод будет иметь завершающий символ новой строки, если вы того пожелаете.

счет

Поскольку это код-гольф , выигрывает ответ с наименьшим количеством байтов!

_{ОТКАЗ ОТ ОТВЕТСТВЕННОСТИ: На самом деле я не знаю, 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 символов, так как это ограничение длины строки для программ фиксированного формата. Это представляет два ограничения:

• Строки длиной более 80 символов усекаются.
• Строки короче 80 символов дополняются пробелами справа.

Я предполагаю, что это приемлемо, так как, ну, это Кобол. Если нет, я был бы готов рассмотреть альтернативы.

Подтверждения

• -166 байт благодаря Эдварду Н
• -2 байта благодаря Hornj

Python 2 , 39 38 37 байт

-1 байт благодаря LyricLy. -1 байт благодаря Мего.

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

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

Ввод / вывод в виде списков строк.

Perl 5 , 19 + 1 (-p) = 20 16 байт

-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#", но я чувствую, что это сделало бы это неконкурентным. К счастью, он все-таки сработал (он использует только функции из v0.2.8, которые я зафиксировал три дня назад).

Октава, 23 байта

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

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

Желе , 11 9 байт

ṫ€7Ḣ⁼¥Ðf⁶

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

Входы и выходы в виде списка строк.

-2 байта благодаря @EriktheOutgolfer и @JonathanAllan

Как это устроено

ṫ€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 байтов

Спасибо « анонимному пользователю » за избавление от еще одного байта.

Спасибо Феликсу Пальмену за напоминание о том, что « Вы можете предположить, что седьмой символ всегда является звездочкой или пробелом », который сбрил еще один байт.

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

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

Gaia , 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 строка является комментарием. Все остальные решения работают во всех случаях.

-2 байта благодаря @pizzakingme !

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 - оставьте те, которые имеют первый символ, звездочкой.
тм - удалить первый символ каждого.
            - Вывод неявно.

Pyth , 11 байт

m>d7fqd@T6Q

Попробуй это здесь!

объяснение

m> d7fq @ T6dQ - полная программа. Принимает ввод как список строк.

      @ T6 - шестой символ каждого.
    fq dQ - оставить строки, которые имеют пробел, как ^.
m> d7 - обрезать первые 7 символов.
             - Вывод неявно.

Pyth , 12 байт

tMfnhT\*m>d6

Попробуй это здесь!

объяснение

tMfnhT \ * m> d6 - полная программа с неявным вводом. Принимает ввод как список строк.

        m> d6 - удалить первые 6 символов каждой строки.
    hT - получить первый символ каждого.
  fn \ * - Отфильтровать те, которые не равны звездочке.
тм - удалить первый символ каждого.
             - Вывод неявно.

Pyth , 12 байт

m>d7fn@T6\*Q

Попробуй это здесь!

объяснение

m> d7fn @ T6 \ * Q - полная программа. Принимает ввод как список строк.

      @ T6 - получить шестой символ каждой строки
    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)","")

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

Подтверждения

• -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)

СНОБОЛ4 (CSNOBOL4) , 72 70 66 50 байт

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

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

Сопоставление с образцом в SNOBOL весьма отличается от регулярного выражения, но идея здесь все та же: если строка соответствует «шести символам, а затем звездочке», удалите ее, в противном случае удалите первые семь символов строки и напечатайте результат.

Теперь это на самом деле лучше использует оператор условного присваивания SNOBOL.

Шаблон, POS(6) (' ' REM . OUTPUT | '*')который интерпретируется как:

Начиная с позиции 6, введите пробел или звездочку и, если вы соответствуете пробелу, присвойте оставшуюся часть строки OUTPUT.

Vim, 14 байтов

Ctrl-VG5ld:%g/\*/dEnter

Загрузите входной файл в качестве буфера для редактирования, затем введите вышеуказанные команды. Выход - новый буфер.

Ruby , 39 38 36 29 23 22 20 + 1 = 21 байт

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

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

Использует -pфлаг.

Объяснение:

-pФлаг добавляет неявный блок вокруг кода, так что код , который фактически получает запустить выглядит следующим образом :

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

    puts $_
end

getsчитает строку текста и сохраняет ее результат в $_.

$_[/.../]=''удаляет первое вхождение регулярного выражения ...в $_.

/.{6}( |.*\n)/соответствует 6 любому символу в начале строки, за которым следует либо пробел, либо остальная часть строки. Поскольку пробел появляется первым, он будет пытаться удалить только первые 6 символов и пробел, прежде чем пытаться удалить всю строку.

$_ затем распечатывается, и этот процесс повторяется для каждой строки.

Пайк , 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 байт

5 байтов сохранено благодаря nmjcman101
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<
~   \~/

В основном те же вещи, что и раньше, но немного реструктурированные

В качестве примечания: я разочарован, никто еще не сделал этого в Коболе.

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.}

6 байт сохранено благодаря tsh

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

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

C ++ (GCC), 121 112 байт

Спасибо @gurka за сохранение 9 байтов!

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

-42 байта благодаря @ OliverGrégoire , используя Stream<String>вместоString и выходных данных.

Объяснение:

Попробуй это здесь.

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)