» About » Archive » Submit » Authors » Search » Random » Specials » Statistics » Forum » RSS Feed Updates Daily
First | Previous | 2010-11-01 | Next | Latest
First | Previous | 2010-11-01 | Next | Latest
Permanent URL: https://mezzacotta.net/garfield/?comic=531
Strip by: Bill Gilliland
#! /usr/bin/perl
for(split q,,,q,CCCCCCCCx<4444445x<4444445x<4444445x<4444445x<4444445x<4,.
q,444445x<4444445x<4444445x<4444445x<4444445x<4444445x<4444445x<4444445x,.
q,<4444445x<4444445x<4444445x<4444445x<4444445x<4444445x<4444445x<444444,.
q,5x<4444445x<4444445x<4444445x<4444445x<4444445x<4444445x<4444445x<4444,.
q,445x<4444445xCCCCCCCCxx,){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:
And here is the obligatory follow-up submission.
And here's the codepad link to the output.