22 lines
368 B
Plaintext
22 lines
368 B
Plaintext
implement Babbage;
|
|
|
|
include "sys.m";
|
|
sys: Sys;
|
|
print: import sys;
|
|
include "draw.m";
|
|
draw: Draw;
|
|
|
|
Babbage : module
|
|
{
|
|
init : fn(ctxt : ref Draw->Context, args : list of string);
|
|
};
|
|
|
|
init (ctxt: ref Draw->Context, args: list of string)
|
|
{
|
|
sys = load Sys Sys->PATH;
|
|
current := 0;
|
|
while ((current * current) % 1000000 != 269696)
|
|
current++;
|
|
print("%d", current);
|
|
}
|