aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

18
Task/Babbage-problem/Limbo/babbage-problem.limbo
View file

@ -1,21 +1,21 @@
implement Babbage;
include "sys.m";
sys: Sys;
print: import sys;
sys: Sys;
print: import sys;
include "draw.m";
draw: Draw;
draw: Draw;
Babbage : module
{
init : fn(ctxt : ref Draw->Context, args : list of string);
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);
sys = load Sys Sys->PATH;
current := 0;
while ((current * current) % 1000000 != 269696)
current++;
print("%d", current);
}