Mirror and reverse text

Question

Inspired by I reverse the source code, ...

Your task, if you wish to accept it, is to reverse text and mirror select characters. Yes, yes, I know. Very surprising.

Input

A string, stdin, an array of characters, or any other source of text. All characters of the input are guaranteed to be in the printable ASCII range (32-126).

Output

The reversed text with some characters mirrored. To do this:

You replace any occurrences of the characters (, ), /, \, <, >, [, ], {, or } in the text with the corresponding "mirrored" character: ), (, \, /, >, <, ], [, }, or {.
and then reverse the text.

You may assume a maximum line length of 255.

Rules

Standard loopholes apply.
This is code-golf, which means that the shortest answer in each programming languages wins. Consequently, I will not be accepting an answer.

Testcases

(s)t/r\i<n>g[i]e{s} -> {s}e[i]g<n>i/r\t(s)
stringies -> seignirts
()/\<>[]{} -> {}[]<>/\()
{s}e[i]g<n>i/r\t(s) -> (s)t/r\i<n>g[i]e{s}
seignirts -> stringies
{}[]<>/\() -> ()/\<>[]{}
qwertyuiop database -> esabatad poiuytrewq

As seen above, the output should go back to the input if run through the program again.

Sandbox link

am I missing something, or the examples don't show the first rule in action? ie. shouldn't (s)t/r convert to r\t)s( ? — Gnudiff, Apr 3, 2020 at 20:33
@Gnudiff The point is that you replace (){}/\[] with )(}{\/][ and then reverse it, so the text looks "mirrored". The title was planned to be "mirror text" but that was too short, so I had to add some filler. — S.S. Anne, Apr 3, 2020 at 23:20

Bubbler · Accepted Answer · 2020-04-02 03:32:42Z

9

Python 3, ⁶¹ ⁶⁰ 59 bytes

lambda s,t="(/<[{}]>\)":[(c+t)[~t.find(c)]for c in s][::-1]

Try it online!

^{-1 byte thanks to @xnor.}

Changed the lookup string, so that the c in t test is eliminated.

Python 2, 63 bytes

lambda s,b='(/<[{}]>\)':map(dict(zip(b,b[::-1])).get,s,s)[::-1]

Try it online!

^{-1 byte thanks to @xnor.}

Python 3, ⁶⁵ 64 bytes

lambda s,b=b'(/<[{}]>\)':s.translate(dict(zip(b,b[::-1])))[::-1]

Try it online!

Just for fun using idiomatic Python. (More idiomatic would be using str.maketrans, but it's way too long.)

-1 byte for both because the \ in '\)' doesn't need to be escaped.

edited Apr 2, 2020 at 3:32

answered Apr 1, 2020 at 23:48

Bubbler

76k5 gold badges146 silver badges454 bronze badges

\$\begingroup\$ In TIO,all the cases pass without using the 'r' prefix, so 60 bytes? \$\endgroup\$
– dingledooper
Apr 1, 2020 at 23:59
\$\begingroup\$ @dingledooper I was already editing my answer exactly for that :) \$\endgroup\$
– Bubbler
Apr 2, 2020 at 0:02
\$\begingroup\$ I really like your test rig, especially those unicode characters. \$\endgroup\$
– xnor
Apr 2, 2020 at 2:21
\$\begingroup\$ @xnor It's from Noodle9's answer. \$\endgroup\$
– Bubbler
Apr 2, 2020 at 2:22
\$\begingroup\$ I found a byte-save with (c+t)[~t.find(c)] TIO. FWIW, Python 2 can do the second one for 63 as lambda s,b='(/<[{}]>\)':map(dict(zip(b,b[::-1])).get,s,s)[::-1] \$\endgroup\$
– xnor
Apr 2, 2020 at 2:51

| Show 1 more comment

Bubbler · Accepted Answer · 2020-04-02 00:12:52Z

6

Stax, 2 bytes

:R

Try it online!

Well, um, yeah, Stax has a two-byte built-in that exactly does the job.

answered Apr 2, 2020 at 0:12

Bubbler

76k5 gold badges146 silver badges454 bronze badges

2

\$\begingroup\$ A Stax answer that you don't even have to pack to make it shorter, haha. xD \$\endgroup\$
– Kevin Cruijssen
Apr 2, 2020 at 10:55
\$\begingroup\$ Why are you so hesitant to say that? I'm pretty sure that Canvas has a 1-byte built-in. \$\endgroup\$
– user92069
Apr 3, 2020 at 10:43

Add a comment |

Mitchell Spector · Accepted Answer · 2020-04-01 23:13:25Z

5

Bash + GNU utilities, 33 bytes

tr '(<[{/)>]}\' ')>]}\\(<[{/'|rev

Try it online!

A straightforward solution seems best here. Really the only golfing is making sure that the backslash appears last in one of the arguments to tr, because then that backslash doesn't have to be escaped, saving 1 byte.

answered Apr 1, 2020 at 23:13

Mitchell Spector

7,9031 gold badge16 silver badges35 bronze badges

Add a comment |

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

4

JavaScript (ES6), 65 59 bytes

Saved 6 bytes thanks to @Bubbler

I/O format: array of characters

a=>a.map(c=>(S='()/\\<>[]{}')[S.indexOf(c)^1]||c).reverse()

Try it online!

edited Jun 17, 2020 at 9:04

CommunityBot

1

answered Apr 1, 2020 at 20:57

Arnauld

192k20 gold badges175 silver badges635 bronze badges

Add a comment |

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

05AB1E, 4 (or 3?) bytes

ºsK

Doesn't work for single-character inputs that are not in the mirror character-set (i.e. "a").
Thanks to @Grimmy for this version.

Try it online or verify all test cases.

º2äθ

Also works for single-character inputs that aren't in the mirror character-set.

Try it online or verify all test cases.

Explanation:

º     # Mirror the (implicit) input-string
      #  i.e. "(s)t/r\i<n>g[i]e{s}" → "(s)t/r\i<n>g[i]e{s}{s}e[i]g<n>i/r\t(s)"
 sK   # And remove the input-string from it
      #  → "{s}e[i]g<n>i/r\t(s)"
      # (after which it is output implicitly)

º     # Mirror the (implicit) input-string
      #  i.e. "(s)t/r\i<n>g[i]e{s}" → "(s)t/r\i<n>g[i]e{s}{s}e[i]g<n>i/r\t(s)"
 2ä   # Split it into two equal-sized parts
      #  → ["(s)t/r\i<n>g[i]e{s}","{s}e[i]g<n>i/r\t(s)"]
   θ  # Pop and only leave the mirrored second part
      #  → "{s}e[i]g<n>i/r\t(s)"
      # (after which it is output implicitly)

3-byter ºsK passes all test cases. It fails if the input is a single letter, though. — Grimmy, Apr 6, 2020 at 8:50

Surculose Sputum · Accepted Answer · 2020-04-01 20:53:34Z

2

Python 3, 69 bytes

lambda s,t=r"()/\[]{}<>":[[c,t[t.find(c)^1]][c in t]for c in s][::-1]

Try it online!

Input: A sequence of character.
Output: The reversed string, as list of characters.

How:
For each character c:

c in t checks if c is a bracket.
t.find(c) finds the index of c in the bracket string. t.find(c)^1 finds the index of the mirrored bracket, which is 1 more or 1 less than the index of c.
[c,t[t.find(c)^1]][c in t] evaluates to the same character if c is not a bracket, otherwise evaluates to the mirrored bracket.
[::-1] reverses the result.

edited Apr 1, 2020 at 20:53

answered Apr 1, 2020 at 20:46

Surculose Sputum

8,3531 gold badge13 silver badges40 bronze badges

Add a comment |

Neil · Accepted Answer · 2020-04-01 20:56:04Z

2

Retina 0.8.2, 22 bytes

T`(/<[{}]>\\)`Ro
O^$`.

Try it online! Link includes test cases. Explanation:

T`(/<[{}]>\\)`Ro

Transliterate the string (/<[{}]>\) to its reverse.

O^$`.

Reverse the whole string.

answered Apr 1, 2020 at 20:56

Neil

170k12 gold badges72 silver badges275 bronze badges

Add a comment |

Neil · Accepted Answer · 2020-04-01 23:07:20Z

Charcoal, 13 bytes

Ｐθ‖ＴＦθ¿№βι←ι←

Try it online! Link is to verbose version of code. Explanation:

Ｐθ

Print the input string without moving the cursor.

‖Ｔ

Reflect the canvas. This mirrors the characters ()/\<>[]{}bdpq.

Ｆθ

Loop over the original string.

¿№βι

Is the current character a b, d, p, q (or any other lowercase letter that wouldn't have been transformed)?

←ι

If so then replace it with the original lowercase letter and move left.

←

Otherwise leave the current character, which might be a transformed ()/\<>[]{}.

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

2

batch, 442 408 bytes

@Echo off&Setlocal EnableDelayedExpansion
for %%A in (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z)do Set %%A=%%A
for %%B in ("(=)",")=(","<=>",">=<","[=]","]=[","{=}","}={","/=\","\=/")do Set "%%~B"
Set "_=%~1"
Call :M
Echo(!$!
Endlocal
Exit /B
:M
For /L %%C in (0,1,256)do (
If "!_:~%%C,1!"=="" Exit /B
Set ".=!_:~%%C,1!"
For %%D in ("!.!")do IF "!%%~D!"=="" (Set "$= !$!")Else (Set "$=!%%~D!!$!")
)

Output:

edited Jun 17, 2020 at 9:04

CommunityBot

1

answered Apr 3, 2020 at 4:02

T3RR0R

5362 silver badges6 bronze badges

Add a comment |

Noodle9 · Accepted Answer · 2020-04-13 04:42:24Z

2

C (gcc), ^{112 \$\cdots\$ 84} 83 bytes

Saved a whopping 27 bytes thanks to Bubbler!!!
Saved a byte thanks to dingledooper!!!
Saved a byte thanks to ceilingcat!!!

char*t,*b="()/\\<>[]{}";f(char*s){*s&&putchar((t=index(b,*s))?b[t-b^1]:*s,f(s+1));}

Try it online!

edited Apr 13, 2020 at 4:42

answered Apr 2, 2020 at 0:17

Noodle9

20.2k3 gold badges20 silver badges45 bronze badges

\$\begingroup\$ 85 bytes \$\endgroup\$
– Bubbler
Apr 2, 2020 at 0:41
\$\begingroup\$ @Bubbler Amazing recusive refactoring - thanks! :-) \$\endgroup\$
– Noodle9
Apr 2, 2020 at 0:47
\$\begingroup\$ You can save 1 byte by replacing strchr with index instead. \$\endgroup\$
– dingledooper
Apr 2, 2020 at 3:09
\$\begingroup\$ @dingledooper Nice one - thanks! :-) \$\endgroup\$
– Noodle9
Apr 2, 2020 at 6:37
\$\begingroup\$ @ceilingcat Clever - thanks! :-) \$\endgroup\$
– Noodle9
Apr 13, 2020 at 4:43

Add a comment |

Noodle9 · Accepted Answer · 2020-04-01 22:04:07Z

1

Python 3, ^{111 \$\cdots\$ 75} 69 bytes

lambda s,b=r'()/\<>[]{}':[[c,b[b.find(c)^1]][c in b]for c in s][::-1]

Try it online!

edited Apr 1, 2020 at 22:04

answered Apr 1, 2020 at 20:34

Noodle9

20.2k3 gold badges20 silver badges45 bronze badges

\$\begingroup\$ I really like your test rig, especially those Unicode characters. \$\endgroup\$
– xnor
Apr 2, 2020 at 2:22
\$\begingroup\$ @xnor Thanks, have them memorised they're so useful. :D \$\endgroup\$
– Noodle9
Apr 2, 2020 at 6:40

Add a comment |

Olivier Grégoire · Accepted Answer · 2020-04-02 11:06:32Z

1

Java (JDK), 111 bytes

s->{var a="(\\<[{}]>/)";for(int i=s.length,j;i-->0;System.out.print(j<0?s[i]:a.charAt(9-j)))j=a.indexOf(s[i]);}

Try it online!

Credits

-1 byte thanks to Kevin Cruijssen

edited Apr 2, 2020 at 11:06

answered Apr 2, 2020 at 10:11

Olivier Grégoire

14.4k3 gold badges31 silver badges56 bronze badges

1

\$\begingroup\$ Woops.. 127 bytes in that case. My bad. \$\endgroup\$
– Kevin Cruijssen
Apr 2, 2020 at 11:04

Add a comment |

user92069user92069 · Accepted Answer · 2020-04-03 10:32:21Z

1

Canvas, 1 byte

Exactly. A 1 byte built-in.

↔

Try it here!

answered Apr 3, 2020 at 10:32

user92069

Add a comment |

Galen Ivanov · Accepted Answer · 2020-04-03 11:48:46Z

1

J, 32 28 26 bytes

-4 bytes thanks to Bubbler!

-2 bytes thanks to FrownyFrog

|.rplc(;"0|.)@'([{/<>\}])'

Try it online!

edited Apr 3, 2020 at 11:48

answered Apr 2, 2020 at 12:36

Galen Ivanov

21k3 gold badges23 silver badges61 bronze badges

1

\$\begingroup\$ 28 bytes. You don't need to append anything to the replacement array. \$\endgroup\$
– Bubbler
Apr 3, 2020 at 4:37
\$\begingroup\$ @Bubbler Of course I don't! I feel stupid, like so many times before... Thanks! \$\endgroup\$
– Galen Ivanov
Apr 3, 2020 at 6:11
1

\$\begingroup\$ 26 bytes minor adjustment \$\endgroup\$
– FrownyFrog
Apr 3, 2020 at 11:41
\$\begingroup\$ @FrownyFrog Thank you! \$\endgroup\$
– Galen Ivanov
Apr 3, 2020 at 11:48

Add a comment |

Andrei Odegov · Accepted Answer · 2020-04-06 18:35:54Z

1

PowerShell, 69 58 bytes

+ to @Bubbler

-11 bytes thanks to @mazzy

$t='(/<[{}]>\)'
$args|%{$a="$_$t"[-1-($t|% i*f $_)]+$a}
$a

Expects input via splatting.

Try it online!

edited Apr 6, 2020 at 18:35

answered Apr 4, 2020 at 20:57

Andrei Odegov

1,0296 silver badges8 bronze badges

1

\$\begingroup\$ ? [--$i] instead [-++$i] \$\endgroup\$
– mazzy
Apr 4, 2020 at 23:14
1

\$\begingroup\$ ? Try it online! \$\endgroup\$
– mazzy
Apr 4, 2020 at 23:39

Add a comment |

Galen Ivanov · Accepted Answer · 2020-04-02 06:27:58Z

0

Red, 69 bytes

func[s][reverse s forall s[s/1: any[select"()([][{}{<></\/"s/1 s/1]]]

Try it online!

answered Apr 2, 2020 at 6:27

Galen Ivanov

21k3 gold badges23 silver badges61 bronze badges

Add a comment |

Kjetil S · Accepted Answer · 2020-04-02 20:51:20Z

0

Perl 5 -pl, 37 bytes

$_=reverse;y|(){}[]<>/\\|)(}{][><\\/|

Try it online!

answered Apr 2, 2020 at 20:51

Kjetil S

5,89710 silver badges21 bronze badges

Add a comment |

Kaddath · Accepted Answer · 2020-04-03 08:47:40Z

0

PHP, 52 bytes

<?=strrev(strtr($argn,$a='(/<[{}]>\\)',strrev($a)));

Try it online!

Glad that this time PHP has an elegant way of doing it ^^

answered Apr 3, 2020 at 8:47

Kaddath

2,9074 silver badges9 bronze badges

Add a comment |

Galen Ivanov · Accepted Answer · 2020-04-06 18:09:23Z

0

Icon, 76 68 bytes

procedure f(s)
r:=reverse
return map(r(s),t:="([{/<>\\}])",r(t))
end

Try it online!

edited Apr 6, 2020 at 18:09

answered Apr 2, 2020 at 11:43

Galen Ivanov

21k3 gold badges23 silver badges61 bronze badges

Add a comment |

Stack Exchange Network

Mirror and reverse text

Input

Output

Rules

Testcases

19 Answers 19

Python 3, ⁶¹ ⁶⁰ 59 bytes

Python 2, 63 bytes

Python 3, ⁶⁵ 64 bytes

Stax, 2 bytes

Bash + GNU utilities, 33 bytes

JavaScript (ES6), 65 59 bytes

05AB1E, 4 (or 3?) bytes

Python 3, 69 bytes

Retina 0.8.2, 22 bytes

Charcoal, 13 bytes

batch, 442 408 bytes

C (gcc), ^{112 \$\cdots\$ 84} 83 bytes

Python 3, ^{111 \$\cdots\$ 75} 69 bytes

Java (JDK), 111 bytes

Credits

Canvas, 1 byte

J, 32 28 26 bytes

PowerShell, 69 58 bytes

Red, 69 bytes

Perl 5 -pl, 37 bytes

PHP, 52 bytes

Icon, 76 68 bytes

Your Answer

Not the answer you're looking for? Browse other questions tagged
code-golf
string
or ask your own question.

Linked

Hot Network Questions

Mirror and reverse text

Input

Output

Rules

Testcases

19 Answers 19

Python 3, 61 60 59 bytes

Python 2, 63 bytes

Python 3, 65 64 bytes

Stax, 2 bytes

Bash + GNU utilities, 33 bytes

JavaScript (ES6), 65 59 bytes

05AB1E, 4 (or 3?) bytes

Python 3, 69 bytes

Retina 0.8.2, 22 bytes

Charcoal, 13 bytes

batch, 442 408 bytes

C (gcc), 112 \$\cdots\$ 84 83 bytes

Python 3, 111 \$\cdots\$ 75 69 bytes

Java (JDK), 111 bytes

Credits

Canvas, 1 byte

J, 32 28 26 bytes

PowerShell, 69 58 bytes

Red, 69 bytes

Perl 5 -pl, 37 bytes

PHP, 52 bytes

Icon, 76 68 bytes

Your Answer

Sign up or log in

Post as a guest

Not the answer you're looking for? Browse other questions tagged code-golfstring or ask your own question.

Linked

Related

Hot Network Questions

Python 3, ⁶¹ ⁶⁰ 59 bytes

Python 3, ⁶⁵ 64 bytes

C (gcc), ^{112 \$\cdots\$ 84} 83 bytes

Python 3, ^{111 \$\cdots\$ 75} 69 bytes

Not the answer you're looking for? Browse other questions tagged
code-golf
string
or ask your own question.