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 20143 days, 9 hours, 55 minutes ago.