Skip to main content
Code Golf

Return to Answer

deleted 41 characters in body
Source Link
Xcali
Xcali
  • 16.2k
  • 2
  • 15
  • 39

Perl 5 -lF , 261297 288 261 231 bytes

$,=$";$_=' .||.||. ';chomp@F;for$r([(';chomp@F;map{@r=/.../g;say map{/[a-z]/i?$r[-65+ord uc]:$"x3}@F}(y/./ /r.y/.| /-+-/r x2)x2 .'    \\  /  ^ 'x2)=~/.../g],[(y/./ /r x3 .$_ x3 .'\\ /  ><  / \\\\./ .><. /.\\')=~/.../g],[((y/.| /-+-/r x2 .y/./ /r)x2 .' V  /  \\    'x2)=~/.../g]){say map{/[a-z]/i?$$r[-65+ord uc]:$"x3}@F}say'''x2;say''

Try it online!Try it online!

There's probably still a bit here that could be golfed further.

Perl 5 -lF , 261 bytes

$,=$";$_=' .||.||. ';chomp@F;for$r([((y/./ /r.y/.| /-+-/r x2)x2 .'    \\  /  ^ 'x2)=~/.../g],[(y/./ /r x3 .$_ x3 .'\\ /  ><  / \\\\./ .><. /.\\')=~/.../g],[((y/.| /-+-/r x2 .y/./ /r)x2 .' V  /  \\    'x2)=~/.../g]){say map{/[a-z]/i?$$r[-65+ord uc]:$"x3}@F}say''

Try it online!

There's probably still a bit here that could be golfed further.

Perl 5 -lF , 297 288 261 231 bytes

$,=$";$_=' .||.||. ';chomp@F;map{@r=/.../g;say map{/[a-z]/i?$r[-65+ord uc]:$"x3}@F}(y/./ /r.y/.| /-+-/r x2)x2 .'    \\  /  ^ 'x2,y/./ /r x3 .$_ x3 .'\\ /  ><  / \\\\./ .><. /.\\',(y/.| /-+-/r x2 .y/./ /r)x2 .' V  /  \\    'x2;say''

Try it online!

There's probably still a bit here that could be golfed further.

deleted 58 characters in body
Source Link
Xcali
Xcali
  • 16.2k
  • 2
  • 15
  • 39

Perl 5 -lF , 288261 bytes

$,=$";$_=' .||.||. ';map{y/./ /}';chomp@F;for$r(@a=[((y/./ /r.y/.| /-+-/r x2)x2 .'    \\  /  ^ 'x2)=~/.../g)[0..8];@c=(g],[(y/.| /-+- /r x2x3 .y/./$_ /r)x2x3 .' V '\\ /  \\><  / \\\\./ 'x2.><. /.\\')=~/.../g;@b=g],[((y/./| /-+-/r x3x2 .$_ x3 y/.'\\/ /r)x2 .' ><V  / \\\\./ .><.\\ /.\\'   'x2)=~/.../g;chomp@F;for$r(a..cg]){say map{/[a-z]/i?$$r[-65+ord uc]:$"x3}@F}say''

Try it online!Try it online!

There's probably still a bit here that could be golfed further.

Perl 5 -lF , 288 bytes

$,=$";$_=' .||.||. ';map{y/./ /}(@a=((y/./ /r.y/.| /-+-/r x2)x2 .'    \\  /  ^ 'x2)=~/.../g)[0..8];@c=((y/.| /-+-/r x2 .y/./ /r)x2 .' V  /  \\    'x2)=~/.../g;@b=(y/./ /r x3 .$_ x3 .'\\ /  ><  / \\\\./ .><. /.\\')=~/.../g;chomp@F;for$r(a..c){say map{/[a-z]/i?$$r[-65+ord uc]:$"x3}@F}say''

Try it online!

There's probably still a bit here that could be golfed further.

Perl 5 -lF , 261 bytes

$,=$";$_=' .||.||. ';chomp@F;for$r([((y/./ /r.y/.| /-+-/r x2)x2 .'    \\  /  ^ 'x2)=~/.../g],[(y/./ /r x3 .$_ x3 .'\\ /  ><  / \\\\./ .><. /.\\')=~/.../g],[((y/.| /-+-/r x2 .y/./ /r)x2 .' V  /  \\    'x2)=~/.../g]){say map{/[a-z]/i?$$r[-65+ord uc]:$"x3}@F}say''

Try it online!

There's probably still a bit here that could be golfed further.

deleted 13 characters in body
Source Link
Xcali
Xcali
  • 16.2k
  • 2
  • 15
  • 39

Perl 5 -lF , 297288 bytes

$,=$";$_=' .||.||. ';map{y/./ /}(@a=((y/./ /r.y/.| /-+-/r x2)x2 .'    \\  /  ^ 'x2)=~/.../g)[0..8];@c=((y/.| /-+-/r x2 .y/./ /r)x2 .' V  /  \\    'x2)=~/.../g;@b=((y/./ /r x3 .$_ x3)=~/.. ./g,'\\ /  ><  / \\\\./ .><. /.\\'=~\\')=~/.../g);chomp@F;for$rg;chomp@F;for$r(a..c){say map{/[a-z]/i?$$r[-65+ord uc]:$"x3}@F}say''

Try it online!Try it online!

There's probably still a bit here that could be golfed further.

Perl 5 -lF , 297 bytes

$,=$";$_=' .||.||. ';map{y/./ /}(@a=((y/./ /r.y/.| /-+-/r x2)x2 .'    \\  /  ^ 'x2)=~/.../g)[0..8];@c=((y/.| /-+-/r x2 .y/./ /r)x2 .' V  /  \\    'x2)=~/.../g;@b=((y/./ /r x3 .$_ x3)=~/.../g,'\\ /  ><  / \\\\./ .><. /.\\'=~/.../g);chomp@F;for$r(a..c){say map{/[a-z]/i?$$r[-65+ord uc]:$"x3}@F}say''

Try it online!

There's probably still a bit here that could be golfed further.

Perl 5 -lF , 288 bytes

$,=$";$_=' .||.||. ';map{y/./ /}(@a=((y/./ /r.y/.| /-+-/r x2)x2 .'    \\  /  ^ 'x2)=~/.../g)[0..8];@c=((y/.| /-+-/r x2 .y/./ /r)x2 .' V  /  \\    'x2)=~/.../g;@b=(y/./ /r x3 .$_ x3 .'\\ /  ><  / \\\\./ .><. /.\\')=~/.../g;chomp@F;for$r(a..c){say map{/[a-z]/i?$$r[-65+ord uc]:$"x3}@F}say''

Try it online!

There's probably still a bit here that could be golfed further.

Source Link
Xcali
Xcali
  • 16.2k
  • 2
  • 15
  • 39