6 ms·
#!/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; pr
by 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 agoQuines are fun and all, but I'd love to see a polyglot quine in Cobol, C, Haskell, Prolog, and Brainfuck.
- davidbnewquist 17y agoSighs that my quine is so 1999...
- biohacker42 17y agoWell 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.