|
int LNKO(int i, j)
while i <> j
if i > j then i -=j
else j -= i
return i
stdcall void AsEntry()
BeginPerf
var Ret = 0
for var i = 1 to 25000
for var j = 1 to 25000
Ret += LNKO(i, j)
EndPerf
PrintInt Ret
|
By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.
If a file you wish to view isn't highlighted, and is a text file (not binary), please
let us know and we'll add colourisation support for it.
This member has not yet provided a Biography. Assume it's interesting and varied, and probably something to do with programming.