» About » Archive » Submit » Authors » Search » Random » Specials » Statistics » Forum » RSS Feed Updates Daily
First | Previous | 2010-10-23 | Next | Latest
First | Previous | 2010-10-23 | Next | Latest
Permanent URL: https://mezzacotta.net/garfield/?comic=522
Strip by: Bill Gilliland
#! /usr/bin/perl
for(split q,,,q,44444444x445C=@44x447B;?44x447C7@<4x467BCB84x4A6<BB64x47,.
q,5;<964x4CA<C=54x456548=4x468646=6x4C<847=8x554<465;x6>54464@x665447=Cx,.
q,7864469@x686446>:x98844866x998448>5x>9944<87x>89456<;x>7@4664Cx>664@84,.
q,;xA67C4847x@?@44@46x88<47<4Bx;4:4C<7@x7<5CC<7@x5>47C47<x554?B774x5C4;@,.
q,;@4x55<45C84x64444464xx,){if($i=4,/x/x){print"\n"}else{$x=-52+ord;while(
$i--){if(1<<$i<=$x){print'#';$x-=2**$i}else{print' '}}}}
The author writes:
The easiest way to see the output of this script is to use codepad.org.
Or you can also paste it into a text file and run it from a Unix terminal. I also attached a little screen capture of the output (zoomed out so the effect shows up better).
I could give you a detailed spoiler of why it works, but then it wouldn't be obfuscated, would it? ;)