fork download
copy 
  1. $hell = sub { $o=""; foreach(@{$_[0]}) { $o .= chr($_); } return $o; };
  2. $z = 0b100;
  3. $x = [0123];
  4. $x->[1] = 0x6d;
  5. $x->[2] = $$x[1] & ~$z;
  6. push @$x, @$x[1,2];
  7. $y = \$$x[$z];
  8. $x->[0b11]--;
  9. $$y -= $z;
  10. $x->[05] = (666>>$z)-($z<<1);
  11. while(--$z) { for(1..$z) { print $hell->($x); } print $/; }
Success #stdin #stdout 0s 6044KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Smile!Smile!Smile!
Smile!Smile!
Smile!
https://ideone.com/21Ju8H
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!