public
Created

Tupper's self-referential formula

  • Download Gist
tupper.pl
Perl
1 2 3 4 5 6 7 8 9 10 11 12
# See http://en.wikipedia.org/wiki/Tupper%27s_self-referential_formula
 
my $k = 4858450636189713423582095962494202044581400587983244549483093085061934704708809928450644769865524364849997247024915119110411605739177407856919754326571855442057210445735883681829823754139634338225199452191651284348332905131193199953502413758765239264874613394906870130562295813219481113685339535565290850023875092856892694555974281546386510730049106723058933586052544096664351265349363643957125565695936815184334857605266940161251266951421550539554519153785457525756590740540157929001765967965480064427829131488548259914721248506352686630476300;
 
for reverse $k .. $k + 17 -> $y {
for 0 .. 106 -> $x {
my $p = " ";
$p = "#" if 1/2 < floor(floor($y/17) * 2 ** (-17 * floor($x) - floor($y) % 17) % 2);
print $p;
}
say "";
}

Please sign in to comment on this gist.

Something went wrong with that request. Please try again.