46
\$\begingroup\$

Posted from here.

This challenge is highly "distilled" from this question. Special thanks to @Akababa!

In this task, you should insert an exclamation mark at the start of the string and after every character.

Rules

  • There will always be a non-empty-string input. The input will not contain tabs either. You can assume that the input only contain non-extended ASCII printable characters and newlines.
  • The input will not contain trailing newlines as long as your language can't detect a newline.
  • This is a contest; the shortest answer should win.

Examples

  • 4 newlines result in 5 newline-delimited exclamation marks. It is very hard to put this as a Markdown text, so this is stated instead.
1 2 3 4 5 6
129591 129012 129127 129582

0

Outputs

!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
KFkepjgop sgpaoj   faj

Outputs

!a!s!d! !a!f!j!o!K! !a!k!:!e!
!k!P!r!L!d!
! ! ! ! !f!O!J!O!E!;!
! ! ! ! !K!F!O!
!K!F!k!e!p!j!g!o!p! !s!g!p!a!o!j! ! ! !f!a!j!

A base test case with only one character:

a

Outputs

!a!

(Auto-completion! Just kidding, there is no such thing.) Contains exclamation marks:

!!
!!
!!
!!
!!

Outputs:

!!!!!
!!!!!
!!!!!
!!!!!
!!!!!
Improve this question
\$\endgroup\$
12
  • 7
    \$\begingroup\$ very similar question \$\endgroup\$
    – Giuseppe
    Commented Aug 18, 2019 at 11:06
  • 9
    \$\begingroup\$ I really don't understand the downvote - this is a clear and well written challenge. Re: being a duplicate - it's not (preceding '!' makes for a big difference), and I don't believe anyone has suggested so (no close votes). \$\endgroup\$
    – Jonathan Allan
    Commented Aug 18, 2019 at 13:45
  • 1
    \$\begingroup\$ if a language can't tell the difference between a\n and a, can we require that there are no trailing newlines? \$\endgroup\$
    – Giuseppe
    Commented Aug 18, 2019 at 14:29
  • 31
    \$\begingroup\$ Downvotes are inserted between every upvote, just like what the challege describes. \$\endgroup\$
    – user85052
    Commented Aug 18, 2019 at 14:34
  • 1
    \$\begingroup\$ Is the case of a single space input " ", is the output supposed to be "!" or "! !" \$\endgroup\$
    – Kai
    Commented Aug 19, 2019 at 3:52

97 Answers 97

Reset to default
1
2
3 4
3
\$\begingroup\$

Kotlin, 50 bytes

fun f(s:String)=s.map{"!$it"}.joinToString("")+"!"

Try it online!

This is my first participation on this site, thought I would try a challenge with my new favourite language.

Improve this answer
\$\endgroup\$
1
  • 1
    \$\begingroup\$ 29 bytes with replace and a lambda \$\endgroup\$
    – squid
    Commented Sep 11, 2019 at 14:59
3
\$\begingroup\$

VBA, 75 bytes 72 bytes

72 bytes as a sub that outputs to the immediate window (thanks @taylorscott)

Sub s(x):Debug.?"!";:For i=1To Len(x):Debug.?Mid(x,i,1)"!";:Next:End Sub

75 bytes as a function that returns the formatted string.

Function t(x):t="!":For i=1To Len(x):t=t &Mid(x,i,1) &"!":Next:End Function

Which expands to and is readable as

Public Function t(x)
    t = "!"
    For i = 1 To Len(x)
        t = t & Mid(x, i, 1) & "!"
    Next
End Function

Test cases

Public Sub test_golf()

    x = "1 2 3 4 5 6" & vbCr & "129591 129012 129127 129582" & vbCr & vbCr & "0"
    'x = "a"
    'x = "!!" & vbCr & "!!" & vbCr & "!!" & vbCr & "!!" & vbCr & "!!"
    
    Debug.Print x
    s(x)              ' to call the sub
    Debug.Print t(x)  ' to call the function

End Sub
Improve this answer
\$\endgroup\$
3
  • \$\begingroup\$ You can get this down to a 48 byte immediate window function as ?"!";:For i=1To[Len(A1)]:?Mid([A1],i,1)"!";:Next \$\endgroup\$
    – Taylor Raine
    Commented Aug 25, 2019 at 18:25
  • 1
    \$\begingroup\$ @TaylorScott, I agree that would work in Excel VBA. I was just thinking of a pure VBA solution. \$\endgroup\$
    – Ben
    Commented Aug 26, 2019 at 0:58
  • \$\begingroup\$ If you want to keep it as a pure VBA function, you can still get it down a bit by switching it to a sub and printing directly to the console as Sub t(x):Debug.?"!";:For i=1To Len(x):Debug.?Mid(x,i,1)"!";:Next:End Sub or Sub t(x):s="!":For i=1To Len(x):s=s+Mid(x,i,1)+"!":Next:Debug.?s:End Sub \$\endgroup\$
    – Taylor Raine
    Commented Sep 11, 2019 at 20:48
3
\$\begingroup\$

MAWP, 18 bytes

%|092M3W!;~[;~!;~]

Dion's solution.

Try it!

Older solution(19 bytes):

%|0~[65W3M;;]65W3M;

Try it!

Improve this answer
\$\endgroup\$
4
  • \$\begingroup\$ 18 bytes 8dion8.github.io/MAWP/… \$\endgroup\$
    – Dion
    Commented Aug 12, 2020 at 5:39
  • \$\begingroup\$ Wow, lotta work for a byte. \$\endgroup\$
    – Razetime
    Commented Aug 12, 2020 at 5:45
  • \$\begingroup\$ Thats codegolf for ya :D \$\endgroup\$
    – Dion
    Commented Aug 12, 2020 at 5:46
  • 1
    \$\begingroup\$ Argh! So close! Pushing a ! character in 1+ is already 11 bytes anyway... \$\endgroup\$
    – TwilightSparkle
    Commented Aug 12, 2020 at 6:21
3
\$\begingroup\$

Hexagony, 11 bytes

$>P...@1;,<

Try it online!

  $ > P
 . . . @
1 ; , < .
 . . . .
  . . .
  • P1 in place of 33 so that it resets the memory.
  • MP is stationary

(old) Hexagony, 17 bytes

{33...@;",<./{;/>

Try it online!

  { 3 3
 . . . @
; " , < .
 / { ; /
  > . .

{33 Puts an ! in left memory

;" Prints ! at the start and sets back mem

, Gets the next byte of input, < sends the IP U-R if null (which terminates it with @), D-R else

/{;/ Reflects IP, prints current byte, and sets it to the next line

> Redirects the IP to the start of the loop

Improve this answer
\$\endgroup\$
3
\$\begingroup\$

Vyxal, 4 bytes

¤\!V

 ¤\!V - Full program
-------
 ¤    - Push empty string to the stack
  \!  - Push exclamation mark to the stack, better than `!`
    V - take implicit input and replace the empty 
        string with the exclamation point

For an empty input, it will produce !0! because it considers the empty input 0, but I don't believe this can be fixed since taking input plainly returns 0 for "".

Try it Online!

Improve this answer
\$\endgroup\$
3
\$\begingroup\$

Wolfram Language (Mathematica), 26 16 bytes

"!"<>#&/@#<>"!"&

Try it online!

Input a list of characters. Returns a string.

Improve this answer
\$\endgroup\$
1
  • \$\begingroup\$ it does not produce the result in a string format tho \$\endgroup\$
    – Dan Oak
    Commented Oct 3, 2022 at 20:26
3
\$\begingroup\$

AWK, 11 bytes

gsub(_,"!")

 echo '
1 2 3 4 5 6
129591 129012 129127 129582

0
asd afjoK ak:e
kPrLd
    fOJOE;
    KFO
KFkepjgop sgpaoj   faj
!!
!!
!!
!!
!!' | awk 'gsub(_,"!")'

!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!
!a!s!d! !a!f!j!o!K! !a!k!:!e!
!k!P!r!L!d!
! ! ! ! !f!O!J!O!E!;!
! ! ! ! !K!F!O!
!K!F!k!e!p!j!g!o!p! !s!g!p!a!o!j! ! ! !f!a!j!
!!!!!
!!!!!
!!!!!
!!!!!
!!!!!
Improve this answer
\$\endgroup\$
7
  • \$\begingroup\$ It doesn’t work \$\endgroup\$
    – The Empty String Photographer
    Commented May 29, 2023 at 9:15
  • 1
    \$\begingroup\$ i've cleaned up your answer formatting. In the future, please try to make it clear which part of your submission is your actual answer. (side note: this is almost identical to a previous answer) \$\endgroup\$
    – Jo King ♦
    Commented May 30, 2023 at 13:22
  • \$\begingroup\$ @Hippopotomonstrosesquipedalian This seems to work fine, why do you think it doesn't? \$\endgroup\$
    – mousetail 'he-him'
    Commented May 30, 2023 at 15:03
  • \$\begingroup\$ @mousetail it works now, but it didn’t before with the word “awk” in front of it. \$\endgroup\$
    – The Empty String Photographer
    Commented May 30, 2023 at 15:38
  • \$\begingroup\$ @Hippopotomonstrosesquipedalian Copy pasting the code before the edit in bash already gave the correct solution even before the edit \$\endgroup\$
    – mousetail 'he-him'
    Commented May 30, 2023 at 15:40
2
\$\begingroup\$

Gema, 11 characters

\A=\!
?=?\!

Unfortunately ! starts a comment in Gema, so must be escaped.

Sample run:

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!

Try it online!

Improve this answer
\$\endgroup\$
2
\$\begingroup\$

Japt, 4 bytes

rP'!

Try it

r      Replace
 P     all empty strings "" with
  '!   An exclamation mark (If '!' wasn't a special character in Japt I could remove the quote)
Improve this answer
\$\endgroup\$
1
  • \$\begingroup\$ You'd only be able to ditch the ' if the replacement were a number. \$\endgroup\$
    – Shaggy
    Commented Aug 31, 2019 at 16:05
2
\$\begingroup\$

Japt, 4 bytes

rP'!

Try it

Japt -P, 7 bytes

Unfortunately ! is a reserved character, necessitating the quotation marks.

ï'! i'!

Try it

Not much to explain: ï is Cartesian product and i prepends.

Improve this answer
\$\endgroup\$
2
\$\begingroup\$

Perl 5 + -p, 11 bytes

s/^|.\K/!/g

Try it online!

Improve this answer
\$\endgroup\$
0
2
\$\begingroup\$

Pyth, 8 bytes

+\!s+R\!

Try it online!

     Code | Explanation
----------+-------------------------------------
+\!s+R\!  | Code
+\!s+R\!Q | with implicit variables filled
----------+-------------------------------------
     R  Q | For each d in input, replace d with:
    +R\!  |  d+"!"
   s      | Join results on empty string
+\!       | Add "!" to beginning
          | Print (implicit)
Improve this answer
\$\endgroup\$
2
\$\begingroup\$

C (gcc), 69 62 50 bytes

Saved 12 bytes, thanks to ErikF's suggestion:

f(char*s){for(printf("!");*s;)printf("%c!",*s++);}

Try it online!

Improve this answer
\$\endgroup\$
4
  • 1
    \$\begingroup\$ You can use the passed-in pointer to iterate through the string and put the first printf in the for loop to save 12 bytes: Try it online! \$\endgroup\$
    – ErikF
    Commented Aug 18, 2019 at 23:47
  • \$\begingroup\$ Great idea! I'll update it \$\endgroup\$
    – WarmTaunTaun
    Commented Aug 18, 2019 at 23:49
  • \$\begingroup\$ 46 bytes \$\endgroup\$
    – ceilingcat
    Commented Aug 20, 2019 at 20:31
  • \$\begingroup\$ @ceilingcat that is a completely different method. Should be posted as its own answer. \$\endgroup\$
    – Potato44
    Commented Aug 21, 2019 at 13:09
2
\$\begingroup\$

J, 12 bytes

'!',,@,.&'!'

Try it online!

Improve this answer
\$\endgroup\$
2
\$\begingroup\$

Aheui (esotope), 61 bytes

붖다따삭바사빠맣삭붛
밙봆＠뫃선차희져썬뻐

Try it online!

Nice small aheui code.

Improve this answer
\$\endgroup\$
2
\$\begingroup\$

05AB1E, 6 bytes

-1 thanks to Kevin Cruijssen. Takes input as a list of characters.

õ.ø'!ý

Try it online! or Try it online! (with input as a string)

Improve this answer
\$\endgroup\$
6
  • 1
    \$\begingroup\$ Are you a bit rusty golfing in 05AB1E? ;p \$\endgroup\$
    – Kevin Cruijssen
    Commented Aug 19, 2019 at 7:49
  • 1
    \$\begingroup\$ @KevinCruijssen Perhaps (now that I think about it I kinda am) :(. But I never actually knew how to exploit € so I guess I'm fine. \$\endgroup\$
    – Mr. Xcoder
    Commented Aug 19, 2019 at 7:52
  • 1
    \$\begingroup\$ Yeah, it's something new this version.. The regular map ε works the same as in the legacy, but the € keeps all values on the stack. So €D would duplicate each character for example, while still keeping a 1D list. Not sure who's idea that was (probably Adnan), but it's useful in some cases. :) In other cases it can be pretty annoying as well, though. \$\endgroup\$
    – Kevin Cruijssen
    Commented Aug 19, 2019 at 7:55
  • 1
    \$\begingroup\$ @KevinCruijssen Interesting, thanks for the info (ahem ahem I do see it's useful sometimes :P) \$\endgroup\$
    – Mr. Xcoder
    Commented Aug 19, 2019 at 7:57
  • \$\begingroup\$ -1 byte for your approach: õ.ø'!ý (surrounding with an empty string before joining). \$\endgroup\$
    – Kevin Cruijssen
    Commented Aug 19, 2019 at 7:58
2
\$\begingroup\$

Whitespace, 79 bytes

[N
S S N
_Create_Label_LOOP][S S S N
_Push_0][S N
S _Duplicate_0][T   N
T   S _Read_STDIN_as_character][T   T   T   _Retrieve_input][S N
S _Duplicate_input][S S S T S S T   N
_Push_9_tab][T  S S T   _Subtract][N
T   S S N
_If_0_jump_to_Label_END][S S S T    S S S S T   N
_Push_33_!][T   N
S S _Print_as_character][T  N
S S _Print_as_character][N
S N
N
_Jump_to_Label_LOOP][N
S S S N
_Create_Label_END][S S S T  S S S S T   N
_Push_33_!][T   N
S S _Print_as_character]

Letters S (space), T (tab), and N (new-line) added as highlighting only.
[..._some_action] added as explanation only.

Since Whitespace inputs one character at a time, the input should contain a trailing tab (\t) so it knows when to stop reading characters and the input is done.

Try it online (with raw spaces, tabs and new-lines only).

Explanation in pseudo-code:

Start LOOP:
  Character c = STDIN as character
  If(c == '\t'):
    Call function END
  Print '!'
  Print c
  Go to next iteration of loop

function END:
  print '!'
Improve this answer
\$\endgroup\$
2
\$\begingroup\$

MathGolf, 6 bytes

É'!\'!

Try it online!

Explanation

Nothing fancy here, just a loop

É        for each character do the next 3 operations
 '!      push single character "!"
   \     swap top elements
    '!   push single character "!"
Improve this answer
\$\endgroup\$
2
\$\begingroup\$

Scala, 17 bytes

_.replace("","!")

Try it online!

-3b thanks to Jo King!
Thanks to Dr Y Wit for linking me to the fact that not enforcing typing is allowed, and for the working TIO link.

Improve this answer
\$\endgroup\$
8
  • \$\begingroup\$ ah, you're right; fixing this. \$\endgroup\$
    – V. Courtois
    Commented Aug 19, 2019 at 8:18
  • \$\begingroup\$ Something like this perhaps? I don't know Scala \$\endgroup\$
    – Jo King ♦
    Commented Aug 19, 2019 at 8:21
  • \$\begingroup\$ oh? it looks like it compiles like this. Now I'm really sad we can't do _.replace("","!"). Nice one anyway :) \$\endgroup\$
    – V. Courtois
    Commented Aug 19, 2019 at 8:23
  • \$\begingroup\$ Actually, your answer does not fully comply with the rules because it's neither a program nor a function but rather just code snippet. However if you post a function literal s=>s.replace("","!") that would be shorter and more correct. Try it online! \$\endgroup\$
    – Dr Y Wit
    Commented Aug 19, 2019 at 10:14
  • 1
    \$\begingroup\$ Well, if you declare function val with the type then you can bind a function literal _.replace("","!") to it. Check my TIO link. \$\endgroup\$
    – Dr Y Wit
    Commented Aug 19, 2019 at 12:19
2
\$\begingroup\$

Emacs Lisp, 41 bytes

(while(or(insert"!")(not(forward-char))))

Assuming input is received as the contents of the current buffer

Improve this answer
\$\endgroup\$
2
\$\begingroup\$

Python 3, 26 bytes

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

Try it online!

Improve this answer
\$\endgroup\$
1
  • \$\begingroup\$ This exact answer has already been posted by Waterbyte \$\endgroup\$
    – squid
    Commented Aug 20, 2019 at 10:06
2
\$\begingroup\$

PHP, 75 bytes

Full program.

foreach(file('php://stdin')as$e)echo'!'.implode("!",str_split($e));echo"!";

Try it online!

PHP, 100 bytes

foreach(explode("\n",file_get_contents('php://stdin'))as$e)echo'!'.implode("!",str_split($e))."!\n";

Try it online!

PHP, 117 bytes

foreach(explode("\n",file_get_contents('php://stdin'))as$e){echo'!';foreach(str_split($e)as$c)echo $c."!";echo "\n";}

Try it online!

Improve this answer
\$\endgroup\$
5
  • \$\begingroup\$ Instead of echo'!'.implode("!",str_split($e));echo"!";, you can do echo'!',join("!",str_split($e)),"!";, which should save 7 bytes (read about join() on php.net/manual/en/function.join.php). According to php.net/manual/en/features.commandline.io-streams.php you can just use the constant STDIN (I don't know how if will work). \$\endgroup\$
    – Ismael Miguel
    Commented Aug 20, 2019 at 10:00
  • \$\begingroup\$ I did that intentionally , for saving bytes i removed brackets and i want to echo "!" after the foreach loop. \$\endgroup\$
    – ShiSHcat
    Commented Aug 20, 2019 at 10:07
  • \$\begingroup\$ Oh, yeah, you're right. I missed that. But if you are reading line by line, you should output the newlines as well, except for the last one. echo doesn't output newlines, so, everything should be in the same line. You can use echo'!',join('!',str_split(file_get_contents('php://stdin'))),'!';, which is only 66 bytes long (or less, if the constant STDIN works) and fixes that. \$\endgroup\$
    – Ismael Miguel
    Commented Aug 20, 2019 at 10:11
  • \$\begingroup\$ I mean, echo doesn't automatically outputs newlines at the end, so, if you read line by line, you have to output the newline, if it isn't in the input. \$\endgroup\$
    – Ismael Miguel
    Commented Aug 20, 2019 at 10:22
  • \$\begingroup\$ file() returns an array of strings , each string has a newline as last character . @IsmaelMiguel \$\endgroup\$
    – ShiSHcat
    Commented Aug 20, 2019 at 10:31
2
\$\begingroup\$

PowerShell, 21 bytes

"$args"-replace"","!"

Try it online!

Boring regex replacement is boring. ;-)

Improve this answer
\$\endgroup\$
2
\$\begingroup\$

Brachylog, 10 bytes

"!"w.∋w?w⊥

Try it online!

Takes input through the output variable, and unifies the input variable with "!", printing the output.

"!"w          Print "!", which is the input variable.
    .∋w       Print an element of the output variable.
       ?w     Print the input variable again.
         ⊥    Fail.
Improve this answer
\$\endgroup\$
2
\$\begingroup\$

Elvish, 32 bytes

use re;re:replace "" "!" (slurp)

Copy and paste into the Live Environment to try it out!

Improve this answer
\$\endgroup\$
2
  • 2
    \$\begingroup\$ Welcome to the site! Would it be possible to edit in a link to an online interpreter, such as Try it online! so that other users can verify your program? \$\endgroup\$
    – caird coinheringaahin g ♦
    Commented Aug 22, 2019 at 12:04
  • \$\begingroup\$ @cairdcoinheringaahing I added a link to the provided live environment. \$\endgroup\$
    – kon
    Commented Aug 22, 2019 at 13:36
2
\$\begingroup\$

Brain-Flak, 54 bytes

(()){({}<>)((((()()()()){}){}){}())<>}<>{({}<>)<>}<>{}

Try it online!

Code:

(())                            push 1, so the loop runs at least one time
{                               while stack 1 isn't empty
    ({}<>)                      move letter to stack 2
    ((((()()()()){}){}){}())    push 33 (Exclamation Mark) on stack 2
    <>                          return to stack 1 for checking if the end is reached
}
<>{({}<>)<>}                    move everything from stack 2 back to stack 1 (otherwise the text would be reversed)
<>{}                            switch to stack 1 and delete leading 1
Improve this answer
\$\endgroup\$
2
\$\begingroup\$

Forth (gforth), 40 39 bytes

: f ." !"bounds do i 1 type ." !"loop ;

Try it online!

Code Explanation

: f           \ start a new word definition
  ." !"bounds \ print ! and place the ending address on the stack
  do          \ start a counted loop from start-addr to end-addr      
    i         \ get address of current char
    1 type    \ print the char at the given address
    ." !"     \ print !
  loop        \ end the loop
;             \ end the word definition
Improve this answer
\$\endgroup\$
2
\$\begingroup\$

PHP (7.4), 31 bytes

Based on Petah's comment.

fn($s)=>preg_replace(__,'!',$s)

Try it online!

PHP, 52 bytes

function($s){return'!'.join('!',str_split($s)).'!';}

Try it online!

Improve this answer
\$\endgroup\$
1
  • 1
    \$\begingroup\$ PHP 7.4 fn($s)=>preg_replace('//', '!', $s); \$\endgroup\$
    – Petah
    Commented Aug 20, 2019 at 0:06
2
\$\begingroup\$

Keg, 9 8 bytes

?⑷\!⑸\!^

Using a mapping approach really does help

Try it online!

Answer History

9 bytes

?^(\!')\!

Pretty much a port of the MathGolf submission.

Try it online!

Improve this answer
\$\endgroup\$
2
  • \$\begingroup\$ I think the explicit ? is not needed. \$\endgroup\$
    – manatwork
    Commented Aug 20, 2019 at 11:06
  • \$\begingroup\$ No. It isn't. Updated my answer \$\endgroup\$
    – lyxal
    Commented Aug 20, 2019 at 11:07
2
\$\begingroup\$

Pushy, 9 bytes

L:33{;33"

Try it online!

L:   ;        \ len(input) times do:
  33          \    Append character 33 (exclamation mark)
    {         \    Cyclically shift the string left once
      33      \ Append character 33 again
        "     \ Print the result
Improve this answer
\$\endgroup\$
1
2
3 4

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.