Download or view Tupper.frink in plain text format
// This is an implementation of Tupper's "self-referential" formula in Frink.
// See:
// http://en.wikipedia.org/wiki/Tupper%27s_self-referential_formula
n = 960939379918958884971672962127852754715004339660129306651505519271702802395266424689642842174350718121267153782770623355993237280874144307891325963941337723487857735749823926629715517173716995165232890538221612403238855866184013235585136048828693337902491454229288667081096184496091705183454067827731551705405381627380967602565625016981482083418783163849115590225610003652351370343874461848378737238198224849863465033159410054974700593138339226497249461751545728366702369745461014655997933798537483143786841806593422227898388722980000748404719
g = new graphics
for x=0 to 106
for y = n to n+16
{
v = floor[(floor[y/17] 2^(-17 floor[x] - floor[y] mod 17)) mod 2]
if v > 1/2
g.fillRectCenter[-x,y,1,1]
}
g.show[]
println[n/17 -> base2]
Download or view Tupper.frink in plain text format
This is a program written in the programming language Frink.
For more information, view the Frink
Documentation or see More Sample Frink Programs.
Alan Eliasen was born 19767 days, 14 hours, 50 minutes ago.