Return to Answer

deleted 21 characters in body

edited Feb 2, 2021 at 17:55

Perl 5, 10593 bytes

say'8Asay'IK
4909ES
290DCW
172627BHCGCH
190FBY
0F0BA[
0F0BA[
053A35AFDKDF
153835BFDIDF
16C6BGMG
290DCW
4909ES
8A'=~sIK'=~s/./('*',$")[--$|]x hex"x$&"(-65+ord$&)/ger

Try it online! Try it online!

Perl 5, 105 bytes

say'8A
4909
290D
172627
190F
0F0B
0F0B
053A35
153835
16C6
290D
4909
8A'=~s/./('*',$")[--$|]x hex"x$&"/ger

Try it online!

Perl 5, 93 bytes

say'IK
ES
CW
BHCGCH
BY
A[
A[
AFDKDF
BFDIDF
BGMG
CW
ES
IK'=~s/./('*',$")[--$|]x(-65+ord$&)/ger

Try it online!

Source Link

answered Feb 2, 2021 at 17:35

Xcali

answered Feb 2, 2021 at 17:35

Xcali

Perl 5, 105 bytes

say'8A
4909
290D
172627
190F
0F0B
0F0B
053A35
153835
16C6
290D
4909
8A'=~s/./('*',$")[--$|]x hex"x$&"/ger

Try it online!