use strict; use Math::BigInt; # 1/2 < floor(mod(floor(y/17) * 2^(-17*floor(x) - mod(floor(y), 17)), 2)) # do so in the region 0 < x < 107 and k < y < k + 17 where k is the following 541-digit integer: my $n = Math::BigInt->new('960939379918958884971672962127852754715004339660129306651505519271702802395266424689642842174350718121267153782770623355993237280874144307891325963941337723487857735749823926629715517173716995165232890538221612403238855866184013235585136048828693337902491454229288667081096184496091705183454067827731551705405381627380967602565625016981482083418783163849115590225610003652351370343874461848378737238198224849863465033159410054974700593138339226497249461751545728366702369745461014655997933798537483143786841806593422227898388722980000748404719')/17; for my $x (0 .. 106) { for my $d (0 .. 16) { print $n->is_odd() ? '#' : '.'; $n >>= 1; } print "\n"; }