Add Lua code
This commit is contained in:
parent
9e38c72d03
commit
f6c080fd9f
2
run.sh
2
run.sh
|
@ -59,4 +59,4 @@ echo Lisp
|
|||
hyperfine "ecl --shell test.lisp"
|
||||
|
||||
echo Lua
|
||||
|
||||
hyperfine "lua test.lua"
|
||||
|
|
|
@ -0,0 +1,25 @@
|
|||
-- Lua
|
||||
|
||||
function gcd(a, b)
|
||||
if b > 0 then
|
||||
return gcd(b, a % b);
|
||||
else
|
||||
return a;
|
||||
end
|
||||
end
|
||||
|
||||
print("test");
|
||||
|
||||
N = 1000;
|
||||
A = {};
|
||||
for i = 1, N do
|
||||
A[i] = i - 1;
|
||||
end
|
||||
|
||||
ans = 0;
|
||||
for _, i in ipairs(A) do
|
||||
for _, j in ipairs(A) do
|
||||
ans = gcd(i, j) + ans;
|
||||
end
|
||||
end
|
||||
print(ans);
|
Loading…
Reference in New Issue