[ create a new paste ] login | about

Link: http://codepad.org/7ee5lTOq    [ raw code | output | fork ]

Perl, pasted on Aug 6:
1
2
3
4
5
6
7
#! /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' '}}}}


Output:
••••••••••••••••••••••••••••••••
•                              •
•                              •
•                              •
•                              •
•                              •
•                              •
•                              •
•                              •
•                              •
•                              •
•                              •
•                              •
•                              •
•                              •
•                              •
•                              •
•                              •
•                              •
•                              •
•                              •
•                              •
•                              •
•                              •
•                              •
•                              •
•                              •
•                              •
•                              •
•                              •
•                              •
••••••••••••••••••••••••••••••••



Create a new paste based on this one


Comments: