Опубликовано здесь .

Эта проблема очень "искажена" из этого вопроса. Отдельное спасибо @Akababa!

В этой задаче вы должны вставить восклицательный знак в начале строки и после каждого символа.

правила

• Всегда будет ввод непустой строки. Ввод также не будет содержать вкладки. Можно предположить, что входные данные содержат только расширенные печатные символы ASCII и символы новой строки.
• Входные данные не будут содержать завершающие символы новой строки, если ваш язык не может обнаружить новую строку.
• Это соревнование по коду-гольфу ; самый короткий ответ должен победить.

Примеры

• 4 символа новой строки дают 5 восклицательных знаков с разделителями. Очень трудно поместить это как текст Markdown, так что это указывается вместо этого.

1 2 3 4 5 6
129591 129012 129127 129582

0

Выходы

! 1! ! 2! ! 3! ! 4! ! 5! ! 6!
! 1! 2! 9! 5! 9! 1! ! 1! 2! 9! 0! 1! 2! ! 1! 2! 9! 1! 2! 7! ! 1! 2! 9! 5! 8! 2!
!
! 0!

asd afjoK ak: e
kPrLd
    fOJOE;
    KFO
КФкепйгоп сгпаой фай

Выходы

! A! S! D! ! А! Е! J! O! K! ! A K:! Е!
! К! Р! Г! Л! Д!
! ! ! ! ! Ф О J O E!!!!!;!
! ! ! ! ! K! F! O!
! K! F! К! Е! Р! J! Г! О! Р! ! S! Г! Р! А! О! J! ! ! ! Е! А! J!

Базовый контрольный пример только с одним символом:

Выходы

! А!

(Автозаполнение! Шучу, такого нет.) Содержит восклицательные знаки:

!!
!!
!!
!!
!!

Выходы:

!!!!!
!!!!!
!!!!!
!!!!!
!!!!!

QuadR , 1 байт

Спасибо A__ за половину количества байтов!

!

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

Ничего не заменяет !

Python 3 , 27 байт

lambda s:f"!{'!'.join(s)}!"

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

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

Python 3 , 26 байт

lambda s:s.replace('','!')

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

Сетчатка 0.8.2 , 2 байта

!

Попробуйте онлайн! Наконец, вызов, где Retina имеет встроенный!

Haskell, 18 байт

('!':).(>>=(:"!"))

-1 байт благодаря @nimi

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

Python 2 , 27 байт

lambda s:'!%s!'%'!'.join(s)

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

JavaScript (ES6), 19 байт

Принимает ввод как массив символов.

s=>`!${s.join`!`}!`

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

JavaScript (ES6),  23  20 байт

Сохранено 3 байта благодаря @ShieruAsakoto

Принимает ввод в виде строки.

s=>[,...s,,].join`!`

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

JavaScript (ES6), 22 байта

Предложил @tjjfvi

Принимает ввод в виде строки.

s=>s.replace(/|/g,"!")

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

R , 25 байт

function(x)gsub("","!",x)

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

Функция, принимающая и возвращающая символьный вектор.

8086 машинный код, формат .COM (MS-DOS 2+), 32 байта

(-1 в зависимости от эмулятора: см. Ниже)

Для достижения наилучших результатов перенаправьте стандартный ввод из файла, так как при наборе текста получается странный вывод из-за отсутствия буферизации; Кроме того, переводы строки выглядят немного странно, потому что они хранятся как CR LF, а CRчасть портит вывод.

Эта программа работает нормально в реальной эмуляции MS-DOS (например, PCjs), но DOSBox, похоже, имел проблемы с Ctrl + Z EOF (см. Комментарии в листе сборки), поэтому НЕ пытайтесь вводить ввод с помощью консоли в DOSBox, если вы добавить дополнительную проверку!

BB 01 00 53 59 BA 0B 01 B4 40 CD 21 4A 4B B4 3F CD 21 85 C0 74 09 B4 40 43 41 CD 21 49 EB EE C3

Некоторые интересные биты:

• Я сохранил некоторое пространство данных за счет многократного использования памяти , которая уже была выполнена ( 21Hв INT 21Hслучается !)

• Я был почти в состоянии использовать интересный трюк, который я нашел на странице «Скрытая сила команд BCD», который позволил бы мне использовать AAAвместо стандарта TESTсравнение ALс 0, сохраняя один байт. К сожалению, это не полностью задокументировано, поэтому я не мог на это полагаться: например, PCjs не регулирует ничего, кроме флагов переноса и вспомогательного переноса. :-(

Код сборки (идеальный режим TASM):

IDEAL
MODEL   TINY

CODESEG
ORG 100H

;; DOSBox (tested with 0.74-2) didn't seem to handle Ctrl-Z as EOF
;; so uncomment the ";;" lines to run it there.
MAIN:
    MOV     BX,1
    PUSH    BX
    POP     CX
    MOV     DX,OFFSET MAIN_1+1  ; The 21H in INT 21H
    MOV     AH,40H
MAIN_1:
    INT     21H
    DEC     DX
    ;;PUSH  DX
    ;;POP   SI
IO_LOOP:
    DEC     BX
    MOV     AH,3FH
    INT     21H
    ;;; This should work on an non-emulated PC. 
    ;;;AAA      ; AL=0?
    TEST    AX,AX
    JZ      DONE
    ;;CMP   [BYTE PTR SI],1AH
    ;;JZ    DONE
    MOV     AH,40H
    INC     BX
    INC     CX
    INT     21H
    DEC     CX
    JMP     IO_LOOP
DONE:
    RET
ENDS
END MAIN

бред , 24 22 байта

-2 байта благодаря JoKing.

-[-[-<]>>+<],[>.<.,]>.

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

Пепе , 47 байт

REREEeRErEErREeeEeeeeEREEeeREEeereeREEEEeeEReee

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

Объяснение:

REREEeRE # Push 0,then input (str),then 0 -> (R)
         # The zeroes are pushed to correct the inserting
rEE # Begin loop labelled 0 -> (r)
  rREeeEeeeeE # Push "!" -> (R)
              # r flag inserts it instead of pushing
  REEeeREEee # Move pointer pos 2 steps forward -> (R)
ree # Loop while (R) != 0
REEEEeeE # Remove characters of (R) that are in stack of (r)
         # Removes the 0 in (R)
Reee # Output (R)

Лабиринт ,  19 11 10  9 байтов

33
..
",@

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

Как?

Мы входим в Лабиринт в верхнем левом углу вправо с бесконечной стопкой нулей ...

                         I / O    stack
                                  0,0,0,...
3 - pop * 10 + 3                  3,0,0,0,...
  - 2 neighbours, forward
3 - pop * 10 + 3                  33,0,0,0,...
  - 2 neighbours, forward
. - pop & print chr          !    0,0,0,...
  - T junction from the side
  -   TOS==0, forward
, - read chr or -1       L        76,0,0,0,...   or   -1,0,0,0
  - T junction from the base
  -   if TOS > 0 right:
" -     no-op                     76,0,0,0,...
  -     2 neighbours, forward
. -     pop & print chr      L    0,0,0,...
  -     T junction from the side
  -       TOS==0, forward
3 -       ...back to the start
  -   elif TOS == -1 left:
@ -     exit                                          we're out!


  * right, but on the first occasion (from above) we hit the wall and turn
    around, so that's like a left

К счастью, нам не нужно обрабатывать непечатаемые документы, иначе первый нулевой байт перевернет нас ,и приведет к хаосу.

sed , 12 байт

s/\b\|\B/!/g

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

-3 байта благодаря Корове Кря

Zsh , 32 байта

for c ('' ${(s::)1})echo -nE $c!

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

(s::)разбивается на символы, ''добавляет пустой элемент в начало, а затем echo -nE $c!отображает каждый из них, после которого следует символ !.

Perl 5 -p0, 17 6 байтов

s,,!,g

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

Мой оригинальный ответ был -pи $_='!'.s,.,$&!,gr. Спасибо @Nahuel Fouilleul за сокращение 11 байтов и @Grimy за -p0отзыв.

6502, 12 байт (13 байт, если Apple II)

6502

Машинный код предполагает, что пара местоположений нулевой страницы подключена к аппаратному обеспечению ввода ($ FE) и вывода (FF). Многие системы на основе 6502 облегчают ввод-вывод таким способом, хотя адрес ввода-вывода обычно не находится на нулевой странице.

Для простоты я использовал Py65 , симулятор микрокомпьютерной системы 6502, написанный на Python.

Вот дамп памяти от Py65. Вы можете загрузить следующий код в любом месте нулевой страницы, чтобы он не перекрывал $ FE и $ FF.

       PC  AC XR YR SP NV-BDIZC
6502: 0000 00 00 00 ff 00110010
.mem 0:b
0000:  a9  21  85  ff  a5  fe  f0  fc  85  ff  d0  f4

Запустив в командном окне Windows, вы можете вставить (Ctrl + V) любой текст, который вы хотите, или вы можете просто напечатать. Если вы печатаете, нажмите Ctrl + J для новой строки (тот же символ ASCII). Нажмите Ctrl + C, чтобы прервать работу процессора и вернуться в командную строку Py65.

Естественно, ассемблерный код легче читать.

       PC  AC XR YR SP NV-BDIZC
6502: 0000 00 00 00 ff 00110010
.d 00:0b
$0000  a9 21     LDA #$21
$0002  85 ff     STA $ff
$0004  a5 fe     LDA $fe
$0006  f0 fc     BEQ $0004
$0008  85 ff     STA $ff
$000a  d0 f4     BNE $0000

Для наглядности вот код сборки в формате CBA65 .

; ASSEMBLE:
; cba65 bangit
;
; LOAD/RUN
; python3 py65/monitor.py -i 00fe -o 00ff -l bangit.bin
; goto 0000

        .FILES  BIN=256

; I/O LOCATIONS
GETC    .EQU    $FE             ; (1) MOVING PY65'S GETC TO ZP SHAVES 1 BYTE
PUTC    .EQU    $FF             ; (1) MOVING PY65'S PUTC TO ZP SHAVES 2 BYTES

        .ORG    $0000

VROOM   LDA     #'!'
        STA     PUTC
VROOM2  LDA     GETC
        BEQ     VROOM2
        STA     PUTC
        BNE     VROOM

        .END

Apple II

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

Для сравнения, Apple I и Apple II сигнализируют о доступности нового символа, устанавливая бит 7 адреса ввода-вывода клавиатуры, который затем необходимо очистить после извлечения символа. В этих системах символьный ввод-вывод обычно выполняется путем вызова процедур системного монитора вместо прямого доступа к оборудованию.

Вызывая RDKEY ($ FD0C) и COUT ($ FDED), Apple II эквивалент вышеупомянутого может быть закодирован в 13 байтов и может быть запущен где угодно в оперативной памяти. Вот код, который я запускал в эмуляторе Apple // e, a2ix на Android 9.

Нажатие Return имеет тот же эффект, что и перевод строки.

*300L

0300-   A9 A1       LDA   #$A1
0302-   20 ED FD    JSR   $FDED
0305-   20 0C FD    JSR   $FD0C
0308-   20 ED FD    JSR   $FDED
030B-   F0 F3       BEQ   $0300

Вы заметили, что вместо нормального значения ASCII # $ 21 для восклицательного знака вместо него используется # $ A1? Это происходит потому, что отправка стандартных значений ASCII в COUT приводит к их отображению в «инверсном режиме», черным по белому. Отображение ASCII обычным белым на черном требует добавления $ 80 к значению символа в аккумуляторе перед вызовом COUT. Поскольку RDKEY возвращает символы с установленным hi-bit, программы сборки обычно очищают бит символа, чтобы получить его значение ASCII перед его использованием.

Баш , 36 байт

while read -n1 c;do printf \!$c;done

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

Это означает, что перевод строки завершает ввод последней строки! отметка.

MarioLANG , 95 94 90 89 69 байт

++++++
======< >)
>+++++++",+[
=======<.==<
>+++++++!(.-
========#===

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

Впервые попробовать MarioLANG, это было очень весело!

Спасибо Джо Кингу за -20 байт

Объяснение:

Таким образом, как следует из названия, MarioLANG создан, чтобы играть как игра Super Mario Bros. Он работает аналогично BF, с памятью, упорядоченной в виде ленты ячеек. Существуют операторы для увеличения, уменьшения, печати (как ascii или числовые) и считывания в текущую ячейку памяти, а также операторы для перемещения влево или вправо по ленте.

Марио (указатель инструкций) всегда начинается в верхней левой ячейке программы, причем его предполагаемое направление движения установлено вправо. Если у Марио нет объекта наподобие пола (=, "или #), он упадет, пока не достигнет напольного объекта. Если Марио покинет пространство программы, программа завершится из-за Game Over :(

Эта конкретная программа может быть в основном разделена на две половины: настройка и цикл.

   Setup                          Loop
-----------------------------------------------
                       |
++++++                 |          
======<                |          >)
>+++++++               |          ",+[
=======<               |          .==<
>+++++++               |          !(.-
========               |          #===

В разделе «Настройка» мы просто увеличиваем первую ячейку памяти, пока не достигнем 33 - значение ASCII для «!». Достаточно просто; если это можно сыграть в гольф, это просто вопрос формы. Марио начинает сверху слева, поднимает 10 монет, начинает падать, когда поднимает 11-е, меняет направление, затем повторяется. Он подбирает последние 11 монет без смены направления; он заканчивает раздел настройки в крайнем правом нижнем углу "+".

В секции петли Марио начинает с лифта. "!" Оператор заставляет его прекратить движение, чтобы он оставался на лифте. По пути он печатает соответствующий символ ASCII в текущем значении ячейки памяти (это всегда 33, «!»), Затем переключается на следующую ячейку в памяти. Марио достигает вершины и задает направление вправо. Он падает и читает символ из ввода как его значение ASCII (или -1, если нет символа). Мы увеличиваем, потому что единственная мера контроля в MarioLANG - это пропуск инструкции, если текущая ячейка памяти имеет значение 0. Если это так, мы пропускаем изменение направления Марио, поэтому он сразу уходит со следующего этажа к своей гибели. Если это не так, мы устанавливаем направление налево; шаг влево от пола ниже уменьшает текущую ячейку до ее предыдущего значения,

Предыдущая версия (89 байт):

+++++++++++>,
==========@"+
+++++++++++)[
@==========.==<
+++++++++++!(.-
===========#===

Perl 6 , 16 11 байт

{S:g/<(/!/}

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

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

C # (интерактивный компилятор Visual C #) , 28 байт

s=>$"!{String.Join("!",s)}!"

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

05AB1E , 4 байта

€'!Ć

Ввод / вывод в виде списка символов.

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

Объяснение:

€'!  '# Prepend a "!"-item before each character in the (implicit) input-list
   Ć  # Enclose (append the first character of the list at the end of it)
      # (after which the result is output implicitly)

Befunge-98 (PyFunge) , 7 байт

'!,#@~,

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

Треугольный , 15 13 байтов

B\3;#*~.,</@<

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

-2 байта после запоминания того, что у Triangular есть оператор условного останова.

Я считаю, что это так же коротко, как и на этот. Треугольный делает имеют условные операторы направления-изменения, но они , к сожалению , работают иначе , чем другие условные. В то время как все остальные проверяют, является ли ToS <= 0, условные выражения, изменяющие направление, проверяют ToS! = 0. Если бы это было не так, у нас было бы 10 байтов в форме Bq3~#*/@<<.

Ungolfed:

    B
   \ 3
  ; # *
 ~ . , <
/ @ <
----------------------------------------------------
B3*              - Push 11 and 3, then pop both and push their product.
    <,<          - Change directions 3 times (to save 2 bytes on last line)
        @/       - Print Top of Stack value as a character, do not pop
          ~;\    - Push a character from input to ToS. Halt if ToS <= 0. Change Direction.
              #  - Print ToS as a character and pop

Предыдущая версия (15 байт):

B.3\.*#).(/?~@<

SimpleTemplate , 23 байта

Это язык, который я написал, и он должен был быть для шаблонов, но хорошо.

!{@eachargv.0}{@echo_}!

Должно быть почти самоочевидным, как только вы увидите некоголенный код:

!{@each argv.0 as char} {@echo char}!{@/}

И объяснение:

• !- печатает буквальный !символ
• {@each argv.0 as char}- Перебирает каждый символ со значением, установленным для переменной char( необязательно , переменная по умолчанию - _).
  argv.0это первый параметр, переданный render()методу компилятора.
• {@echo char}!- выводит charпеременную и буквальный !символ.
  Для версии для гольфа используется переменная по умолчанию _.
• {@/}- закрывает цикл ( необязательно )

Чистое решение SimpleTemplate :

{@fn x}!{@eachargv.0}{@echo_}!{@/}{@/}

Создает функцию, xкоторая выводит тот же результат.

Вы можете использовать это так:

{@call x "this is an example"}

Вы можете попробовать все это на: http://sandbox.onlinephpfunctions.com/code/f6baff8d411fc8227ece81eccf05b6e7d3586bfa

На линии 908, вы можете использовать переменные $golfed, $ungolfedи $fnпроверить все версии.

Однако, если разрешено использовать массив символов, код упрощается (20 байт):

!{@echoj"!" argv.0}!

И безглым

!{@echo separator "!" argv.0}!

По сути, выводит все элементы массива "!", окруженные литералом !.
Из-за ограничений в классе компилятора, место обязательно (в версии для гольфа).

Этот код также чрезвычайно сложно использовать в чистом SimpleTemplate (используя функцию в качестве примера):

{@fn x}!{@echoj"!" argv.0}!{@/}

{@// alternative: @call str_split into a "a char array"}
{@set a "a", " ", "c", "h", "a", "r", " ", "a", "r", "r", "a", "y"}

{@call x a}

@callМожет вызвать функцию , которая существует в PHP, что означает , что она не является чисто SimpleTemplate решения.

Рубин , 17 16 байт

->s{s.gsub'',?!}

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

Спасибо значение чернил за -1 байт

Гема , 11 персонажей

\A=\!
?=?\!

К сожалению, !начинается комментарий в Gema, поэтому должен быть экранирован.

Образец прогона:

bash-5.0$ echo -ne '1 2 3 4 5 6\n129591 129012 129127 129582\n\n0' | gema '\A=\!;?=?\!'
!1! !2! !3! !4! !5! !6!
!1!2!9!5!9!1! !1!2!9!0!1!2! !1!2!9!1!2!7! !1!2!9!5!8!2!
!
!0!

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

Желе , 5 байт

Ż”!ṁż

Полная программа, принимающая строку, которая печатает результат.

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

Как?

Ż”!ṁż - Main Link: list of characters, s   e.g. "abc"
 ”!   - character '!'                           '!'
   ṁ  - mould like:
Ż     -   s with a zero prepended              "!!!!"
    ż - zip together with s                    ["!a","!b","!c",'!']
      - implicit (smashing) print              !a!b!c!

Japt , 4 байта

rP'!

Попытайся

r      Replace
 P     all empty strings "" with
  '!   An exclamation mark (If '!' wasn't a special character in Japt I could remove the quote)

Japt , 4 байта

rP'!

Попытайся

Japt -P , 7 байт

К сожалению !, это зарезервированный символ, требующий кавычек.

ï'! i'!

Попытайся

Не так много, чтобы объяснить: ïэто декартово произведение и iprepends.

Perl 5+ -p, 11 байт

s/^|.\K/!/g

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