!I!n!s!e!r!t! !i!n!b!e!t!w!e!e!n!

Question

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 code-golf 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:

Outputs

!a!

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

!!
!!
!!
!!
!!

Outputs:

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

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). — Jonathan Allan, Aug 18, 2019 at 13:45
if a language can't tell the difference between a\n and a, can we require that there are no trailing newlines? — Giuseppe, Aug 18, 2019 at 14:29
Downvotes are inserted between every upvote, just like what the challege describes. — user85052, Aug 18, 2019 at 14:34
Is the case of a single space input " ", is the output supposed to be "!" or "! !" — Kai, Aug 19, 2019 at 3:52

ngn · Accepted Answer · 2022-10-03 17:01:47Z

2

K (ngn/k), 13 12 bytes

-1 byte from @ngn's savings

{x,/y,'x}"!"

Try it online!

Creates a function projection, with x fixed to "!".

y,'x pair-wise append an exclamation mark to each character in the input
x,/ flatten the list, using "!" as the seed (to prepend the leading "!")

edited Oct 3, 2022 at 17:01

ngn

15.2k2 gold badges42 silver badges87 bronze badges

answered Feb 12, 2021 at 16:20

coltim

5,7735 silver badges13 bronze badges

1

\$\begingroup\$ save a byte by turning "!" into a curried argument: f:{x,/y,'x}"!" \$\endgroup\$
– ngn
Feb 12, 2021 at 19:05

Add a comment |

att · Accepted Answer · 2022-10-03 21:46:14Z

2

C (gcc), 48 45 39 bytes

f(char*s){printf("!%.1s",s++)>1&&f(s);}

Try it online!

-3 thanks to ceilingcat

edited Oct 3, 2022 at 21:46

answered Aug 19, 2019 at 23:34

att

19.8k2 gold badges14 silver badges56 bronze badges

Add a comment |

Jo King · Accepted Answer · 2023-05-30 13:20:08Z

2

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!
!!!!!
!!!!!
!!!!!
!!!!!
!!!!!

edited May 30 at 13:20

Jo King♦

47.1k5 gold badges124 silver badges184 bronze badges

answered May 29 at 6:15

RARE Kpop Manifesto

3391 silver badge5 bronze badges

\$\begingroup\$ It doesn’t work \$\endgroup\$
– The Empty String Photographer
May 29 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 ♦
May 30 at 13:22
\$\begingroup\$ @Hippopotomonstrosesquipedalian This seems to work fine, why do you think it doesn't? \$\endgroup\$
– mousetail
May 30 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
May 30 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
May 30 at 15:40

| Show 2 more comments

The Empty String Photographer · Accepted Answer · 2023-05-30 13:36:14Z

2

Python, 30 Bytes

lambda x:'!%s!'%'!'.join([*x])

It feels like these methods were designed for the challenge!

-1 from Jacob (now noodle man) by using the cursed `%` (Dun dun dun!)

-3 from Glorfindel for using a starred method for conversion!

!T!r!y! !r!u!n!n!i!n!g! !i!t! !o!n!l!i!n!e!

edited May 30 at 13:36

answered May 29 at 9:00

The Empty String Photographer

1,7691 gold badge4 silver badges24 bronze badges

\$\begingroup\$ Here's 33, I don't know much python so it can likely be golfed further \$\endgroup\$
– noodle man
May 29 at 14:07
\$\begingroup\$ list(...) can always be [*...] instead \$\endgroup\$
– Jo King ♦
May 30 at 13:24
1

\$\begingroup\$ 27 bytes - you don't even need to convert it to a list, since any iterable will work. \$\endgroup\$
– The Thonnu
May 30 at 14:53

Add a comment |

Shaggy · Accepted Answer · 2023-05-30 16:50:39Z

2

Rockstar, 67 bytes

listen to S
while S
cut S
join S with "!"
say "!"+S+"!"
listen to S

Try it here (Code will need to be pasted in)

edited May 30 at 16:50

answered May 30 at 16:02

Shaggy

41.6k4 gold badges34 silver badges92 bronze badges

Add a comment |

Dadsdy · Accepted Answer · 2023-05-31 05:47:41Z

2

Python 3, 29 Bytes

print('',*input(),'',sep="!")

Try It Online

answered May 31 at 5:47

Dadsdy

2,0353 silver badges24 bronze badges

Add a comment |

Neil · Accepted Answer · 2019-08-18 11:11:29Z

1

Charcoal, 6 bytes

⭆Ｓ⁺!ι!

Try it online! Link is to verbose version of code. Works on empty strings too. Input format is somewhat cumbersome due to Charcoal's lack of EOF. Works by preceding each character with a ! and then suffixing a final ! on the end. Alternative version, also 6 bytes:

⪫!!⪫Ｓ!

Try it online! Link is to verbose version of code. Works by joining the characters on ! and then wrapping them in !!.

answered Aug 18, 2019 at 11:11

Neil

166k12 gold badges69 silver badges273 bronze badges

Add a comment |

Giuseppe · Accepted Answer · 2019-08-18 14:38:13Z

1

SNOBOL4 (CSNOBOL4), 94 bytes

I	I =INPUT	:F(END)
S	I LEN(1) . X REM . I	:F(O)
	O ='!' O X	:(S)
O	OUTPUT =O '!'
	O =	:(I)
END

Try it online!

Prints with an additional trailing newline (as SNOBOL always prints a line break). The way input is consumed, there is no way of distinguishing between a final line ending in \n or not.

answered Aug 18, 2019 at 14:38

Giuseppe

28.1k3 gold badges30 silver badges101 bronze badges

Add a comment |

Community · Accepted Answer · 2020-06-17 09:04:33Z

Stax, 6 5 bytes

_z'!R

Run and debug it

Replace "" with "!" using regex replacement. I don't exactly understand why this works.

Edit: Found it in the Ecma spec: 15.5.4.10

If there is a match with an emptystring (in other words, if the value of regexp.lastIndex is left unchanged), increment regexp.lastIndex by 1.

Old Stuff:

I ~~would~~ have been able to get to 5 bytes ~~in either of two scenarios.~~

If input was provided in an escaped literal e.g. "line1\nline2". But I opted against that for the sake of "usability".
If there was not a ~~bug~~ feature in stax's zip implementation when encountering empty strings/arrays.

Kai · Accepted Answer · 2019-08-20 19:50:04Z

1

Wolfram Language (Mathematica), 49 48 42 bytes

#~StringSplit~""~StringRiffle~{a="!",a,a}&

Try it online!

-6 bytes thanks to @attinat

edited Aug 20, 2019 at 19:50

answered Aug 19, 2019 at 4:42

Kai

2111 silver badge4 bronze badges

\$\begingroup\$ The code in the Header, Code, and Footer sections is run. You can use infix notation and drop the { } in StringSplit for 42 bytes \$\endgroup\$
– att
Aug 19, 2019 at 23:24
\$\begingroup\$ @attinat Thanks that helps a lot! \$\endgroup\$
– Kai
Aug 20, 2019 at 19:50

Add a comment |

kon · Accepted Answer · 2019-08-22 13:34:27Z

1

Elvish, 32 bytes

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

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

edited Aug 22, 2019 at 13:34

answered Aug 22, 2019 at 11:52

kon

112 bronze badges

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 ♦
Aug 22, 2019 at 12:04
\$\begingroup\$ @cairdcoinheringaahing I added a link to the provided live environment. \$\endgroup\$
– kon
Aug 22, 2019 at 13:36

Add a comment |

snail_ · Accepted Answer · 2019-08-24 05:38:20Z

1

Ahead, 12 bytes

~irj!'~
@Wu<

Try it online!

answered Aug 24, 2019 at 5:38

snail_

2,63211 silver badges16 bronze badges

Add a comment |

lqdev · Accepted Answer · 2019-08-26 20:18:28Z

1

Lua, 31 bytes

print((io.read():gsub("","!")))

answered Aug 26, 2019 at 20:18

lqdev

1112 bronze badges

Add a comment |

jdt · Accepted Answer · 2019-09-13 06:40:36Z

1

C (gcc), 32 bytes

f(s){printf("!%s",s)-1&&f(s+4);}

Try it online!

edited Sep 13, 2019 at 6:40

answered Aug 22, 2019 at 12:16

jdt

3,4321 gold badge11 silver badges17 bronze badges

Add a comment |

Galen Ivanov · Accepted Answer · 2019-09-13 07:52:14Z

1

Red, 47 bytes

func[s][parse s[insert"!"any[skip insert"!"]]s]

Try it online!

answered Sep 13, 2019 at 7:52

Galen Ivanov

21k3 gold badges23 silver badges61 bronze badges

Add a comment |

Community · Accepted Answer · 2020-06-17 09:04:33Z

1

C#, 142 bytes

public class P{public static void Main(string[]a){System.Console.Write("!");foreach(char c in a[0]){System.Console.Write(c.ToString()+"!");}}}

edited Jun 17, 2020 at 9:04

CommunityBot

1

answered Aug 19, 2019 at 18:25

canttalkjustcode

1914 bronze badges

Add a comment |

Razetime · Accepted Answer · 2021-02-12 13:09:32Z

1

Pip, 5 bytes

aJW'!

Try it online!

The JW builtin was made for challenges like this.

answered Feb 12, 2021 at 13:09

Razetime

26.9k3 gold badges26 silver badges71 bronze badges

Add a comment |

pxeger · Accepted Answer · 2021-02-14 15:58:42Z

1

Zsh, 12 bytes

<<<${1///!}!

Try it online!

answered Feb 14, 2021 at 15:58

pxeger

23.3k4 gold badges52 silver badges135 bronze badges

Add a comment |

hyper-neutrino · Accepted Answer · 2021-04-18 04:12:39Z

1

Branch, 11 bytes

33.,[.33.,]

Try it on the online Branch interpreter!

Put 33 on the tree and output (!). Then, grab input. Finally, while that value is not EOF, output it, output 33 (!), and grab input again.

answered Apr 18, 2021 at 4:12

hyper-neutrino♦

41.3k5 gold badges65 silver badges221 bronze badges

Add a comment |

Aaroneous Miller · Accepted Answer · 2021-04-19 14:19:18Z

1

Vim, 13 bytes

:%s/\_./!&/g

Works by putting a ! before every character, including newline characters. The TIO version doesn't work properly for the 4 newline testcase, but it does work in Vim.

Try it online!

answered Apr 19, 2021 at 14:19

Aaroneous Miller

9,1301 gold badge20 silver badges37 bronze badges

Add a comment |

SjoerdPennings · Accepted Answer · 2021-05-12 11:23:33Z

1

BRASCA, 14 13 bytes

-1 byte thanks to RezNesX

,![$'!oo{]'!o

Try it online!

Explanation

,               - Reverse stack
 ![$    {]      - Loop stack length:
    '!oo        -     Print "!" followed by the next letter
          '!o   - Print the last "!"

edited May 12, 2021 at 11:23

answered May 11, 2021 at 12:20

SjoerdPennings

2,43015 silver badges30 bronze badges

1

\$\begingroup\$ 13 bytes: ,![$'!oo{]'!o \$\endgroup\$
– RezNesX
May 12, 2021 at 11:20

Add a comment |

Axuary · Accepted Answer · 2021-05-19 19:06:57Z

1

Subleq (8-bit), 1211 bytes

-1 byte for removing last 0

Subleq emulator

Explanation

0:  2 -1 33 ' Output 2: (char(33)); 3rd argument is not used for output so use it for memory
3: -1  8 -1 ' Read input to 8:, exit if null
6:  8 -1  0 ' Output 8:
9:  8  8    ' 8: = 0 goto 0

edited May 19, 2021 at 19:06

answered May 11, 2021 at 12:08

Axuary

3,4065 silver badges11 bronze badges

Add a comment |

bigyihsuan · Accepted Answer · 2022-10-03 20:12:47Z

1

Go, 105 bytes

import."regexp"
func f(s[]byte)[]byte{return append(MustCompile(`(?s).`).ReplaceAll(s,[]byte(`!$0`)),33)}

Attempt This Online!

answered Oct 3, 2022 at 20:12

bigyihsuan

8,5481 gold badge18 silver badges55 bronze badges

Add a comment |

Engineer Toast · Accepted Answer · 2022-10-03 20:22:31Z

Excel, 44 bytes

="!"&CONCAT(MID(A1,SEQUENCE(LEN(A1)),1)&"!")

"!" is just the first !.
CONCAT(MID(A1,SEQUENCE(LEN(A1)),1)&"!")
- SEQUENCE(LEN(A1)) creates an array 1, 2, ... X where X is the length of the input.
- MID(A1,SEQUENCE(~),1) pulls the n^th character from the input.
- MID(~)&"!" adds ! after every one of those characters.
- CONCAT(MID(~)&"!") combines all those n^th character + ! into one string.

^{Note: The line breaks are there with or without Word Wrap turned on but it won't look right until you turn it on. The screenshot has Word Wrap turned on.}

chunes · Accepted Answer · 2022-10-03 23:06:32Z

1

Factor, ³¹ 28 bytes

[ 33 interleaved [I !${}!I]]

Attempt This Online!

33 interleaved Insert an exclamation point between each character of the input.
[I !${}!I] Interpolate the above string into the ${}, adding exclamation points to the beginning and end, and print.

edited Oct 3, 2022 at 23:06

answered Oct 3, 2022 at 22:50

chunes

22.7k3 gold badges21 silver badges51 bronze badges

Add a comment |

DLosc · Accepted Answer · 2022-10-24 22:16:40Z

BQN, 11 bytes

'!'⊸(⊣∾´∾¨)

Anonymous tacit function that takes and returns a string. Try it at BQN online!

Explanation

'!'⊸(⊣∾´∾¨)
    (      )  Call the following function with the original argument on the right
'!'⊸          and '!' on the left:
         ∾¨     Concatenate each (prepends '!' to each character, resulting
                in a list of two-character strings)
       ∾´       Right-fold that list on concatenation
     ⊣          with a starting value of the left argument (i.e. '!')

A port of Sʨɠɠan's APL solution is also 11 bytes:

(∾⊢∾∾¨)⟜'!'

Try it!

Zoey · Accepted Answer · 2023-06-09 11:34:50Z

1

C, 42 bytes

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

Essentially to not have to have two printf statments I have the printf run on the null byte of the string which prints the '!' but the null byte is ignored.

Easier to read

f(char *s){
  // Prints ! and char of string
  printf("!%c", *s);
 
  // If more string than recurse for next char
  if(*s != 0) f(s+1);
}

edited Jun 9 at 11:34

answered Jun 9 at 3:29

Zoey

1114 bronze badges

\$\begingroup\$ I don't know much C, would removing that space be valid? \$\endgroup\$
– Rydwolf Programs
Jun 9 at 5:27

Add a comment |

Dadsdy · Accepted Answer · 2023-06-17 02:41:37Z

1

(,) 111 91 Chars or \$91\log_{256}(3)\approx18.03\$ Bytes

((),()()()()()()()())((),(())(())(())(())())(,,,(()()),(,(()(),((()()())),,(())))(()()),())

TIO

edited Jun 17 at 2:41

answered May 31 at 5:29

Dadsdy

2,0353 silver badges24 bronze badges

Add a comment |

LegionMammal978 · Accepted Answer · 2020-11-01 02:57:32Z

0

Husk, 10 8 bytes

^{-2 bytes thanks to Razetime!}

`:'!ṁe'!

Try it online!

edited Nov 1, 2020 at 2:57

answered Oct 31, 2020 at 23:02

LegionMammal978

17.9k4 gold badges23 silver badges56 bronze badges

Add a comment |

640KB · Accepted Answer · 2021-02-12 21:14:08Z

x86-16 machine code, 8 bytes

00000000: b021 aaa4 aae2 fcc3                      .!......

Listing:

B0 21       MOV  AL, '!'        ; character to insert
AA          STOSB               ; write first ! to output string  
        CLOOP: 
A4          MOVSB               ; copy input char to output string 
AA          STOSB               ; write ! to output string 
E2 FC       LOOP CLOOP          ; loop until end of input 
C3          RET                 ; return to caller

Callable function, input at SI, length in CX. Output to string at DI.

Test runs:

Rules

Examples

97 Answers 97

K (ngn/k), 13 12 bytes

C (gcc), 48 45 39 bytes

AWK, 11 bytes

Python, 30 Bytes

-1 from Jacob (now noodle man) by using the cursed % (Dun dun dun!)

-3 from Glorfindel for using a starred method for conversion!

Rockstar, 67 bytes

Python 3, 29 Bytes

Charcoal, 6 bytes

SNOBOL4 (CSNOBOL4), 94 bytes

Stax, 6 5 bytes

Wolfram Language (Mathematica), 49 48 42 bytes

Elvish, 32 bytes

Ahead, 12 bytes

Lua, 31 bytes

C (gcc), 32 bytes

Red, 47 bytes

C#, 142 bytes

Pip, 5 bytes

Zsh, 12 bytes

Branch, 11 bytes

Vim, 13 bytes

BRASCA, 14 13 bytes

Explanation

Subleq (8-bit), 1211 bytes

Explanation

Go, 105 bytes

Excel, 44 bytes

Factor, 31 28 bytes

BQN, 11 bytes

Explanation

C, 42 bytes

(,) 111 91 Chars or \$91\log_{256}(3)\approx18.03\$ Bytes

Husk, 10 8 bytes

x86-16 machine code, 8 bytes

Your Answer

Sign up or log in

Post as a guest

Linked

Related

-1 from Jacob (now noodle man) by using the cursed `%` (Dun dun dun!)

Factor, ³¹ 28 bytes