Skip to main content
added 5 characters in body
Source Link
Xcali
  • 17k
  • 2
  • 17
  • 42

Perl 5 -F, 104104 97 bytes

map{@;=((($b=$"x(length($r[0]$;[0].=" \\".'/'x!$_)-3+$_);@r=()."/\\","$b\\".' \\'x!$_,@r);@r=("$b/\\"[$_..1],@r@;)if!$_}@F;sayfor@F;say for@rfor@ 

Try it online!Try it online!

Perl 5 -F, 104 bytes

map{$b=$"x(length($r[0].=" \\".'/'x!$_)-3+$_);@r=("$b\\".' \\'x!$_,@r);@r=("$b/\\",@r)if!$_}@F;say for@r 

Try it online!

Perl 5 -F, 104 97 bytes

@;=((($b=$"x(length($;[0].=" \\".'/'x!$_)-3+$_))."/\\","$b\\".' \\'x!$_)[$_..1],@;)for@F;say for@ 

Try it online!

Source Link
Xcali
  • 17k
  • 2
  • 17
  • 42

Perl 5 -F, 104 bytes

map{$b=$"x(length($r[0].=" \\".'/'x!$_)-3+$_);@r=("$b\\".' \\'x!$_,@r);@r=("$b/\\",@r)if!$_}@F;say for@r 

Try it online!