fork download
copy 
  1. #!perl -p
  2. / /;$i=$'%12-($`<21);
  3. $_="cc_
  4. \\ct_s \\c/'ga\\thlh\\/ __ijkee
  5. keej'-.ck'n q:q:qnk'c'-gA k.hkg(_a\\ /a_sm|
  6. m|j .mg oi
  7.  ih'g:chl:chl oij.d__grr _|_|_
  8. 'm'jhk-gth_'g (_) ( s'.c/
  9. a'q'jak-g (cs(_)t
  10. c(_.f_b )b/
  11. cc(Jjm__
  12. diao
  13. ddddfbbpm'q-':jcpailci
  14. '.i
  15. i'g";
  16. 1while s![a-t]!(split z,"  z
  17. a |a|a|zaaz___z\"-._.-z
  18. A _
  19. ' ':--.--.bz.
  20. za z.'z
  21. Az.-z:
  22. zc z
  23. h:alz'.dza..gcz--za| |
  24. z)
  25. za/")[(ord$&)%97]!e;$_=(split A)[$i]
Success #stdin #stdout 0s 6044KB
comments (?)
stdin
copy 
6 6
stdout
copy 
._____.
  | |
  | |
 _|_|_
'     '
https://ideone.com/s7lxk0
language:
Perl (perl 5.28.1)
created:
8 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!