10 ms·

To obtain a laugh from the following perl code: 1)run 2)obtain output 3)run output 4)repeat 2-4

• davidbnewquist 17y ago
  #!/usr/bin/perl $x = <<'LOL'; #Meaningless chart/data is meaningless $x =~ s/\x67less/\x67ful/g; $x =~ s/((7less)|(7ful))(.+?)((7ful)|(7less))/$5$4$1/g; print "#!/usr/bin/perl\n\n\$x = <<'LOL';\n${x}LOL\n"; print $x; LOL #Meaningless chart/data is meaningless $x =~ s/\x67less/\x67ful/g; $x =~ s/((7less)|(7ful))(.+?)((7ful)|(7less))/$5$4$1/g; print "#!/usr/bin/perl\n\n\$x = <<'LOL';\n${x}LOL\n"; print $x;
  • pookleblinky 17y ago
    Quines are fun and all, but I'd love to see a polyglot quine in Cobol, C, Haskell, Prolog, and Brainfuck.
    • davidbnewquist 17y ago
      Sighs that my quine is so 1999...
    • biohacker42 17y ago
      Well C is reasonably easy to decompile. If you simplified the syntax a bit, wrote a really simple decompiler with it, perhaps so simple it really only works on one binary, that binary being its own executable... it could work.