fork download 
  1. $/=$\;
  2. while(<>){
  3.  
  4. /
  5. /;$:="m"x"@-";s/^/mmmmlmll/;s/
  6. /rmr$:rr/g;y/.o/md/;s/$/mml/
  7.  
  8. ;print
  9. }
  10.  
  11. # .ooo.
  12. # o...o
  13. # ooooo
  14. # o...o
  15. # o...o
Success #stdin #stdout 0s 6000KB
comments (?)
stdin 
.ooo.
o...o
ooooo
o...o
o...o
stdout 
mmmmlmllmdddmrmrmmmmmrrdmmmdrmrmmmmmrrdddddrmrmmmmmrrdmmmdrmrmmmmmrrdmmmdmml
https://ideone.com/WgIoKm
language:
Perl (perl 5.28.1)
created:
9 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!