fork download
copy 
  1. sub cc{ $z=shift; chr $z }; $n=$ARGV[0]; $o=$ARGV[1]; $q=$ARGV[2];
  2. @c=($q,$n+$q,5+$q,$q*$n,$n, 4*$q,$o-5,0/$o,$o,$o/$o); $b=cc 29*$n;
  3. @c=reverse @c;$s=cc 4*4*$q;$p=cc 23*$q;$d=$c[0];$l=$c[8];$i=$c[5];
  4. $f=$c[2]; $g=$c[3];$h=$c[4];$e=$c[1];$j=$c[6];$k=$c[7];$a=cc 13*6;
  5. $m = $c[9]; $x="$a$s$g$f$s$d$e$p$h$d$f$s$b$s$f$k$l$s$d$h$p$l$m$l";
  6. sub dd { $z=shift; print $z }; dd " \n$s$s$s$x$s$s$s\t\t\t\t \n ";
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
3 9 2
compilation info 
===SORRY!===
Symbol '$z' not predeclared in cc (prog.p6:1)
stdout
copy 
Standard output is empty
https://ideone.com/8awMX
language:
Perl (perl 2018.12)
created:
14 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!