20 lines
258 B
Elixir
20 lines
258 B
Elixir
|
defmodule Test do
|
||
|
def gcd(a, b) do
|
||
|
if b > 0 do
|
||
|
gcd(b, rem(a, b))
|
||
|
else
|
||
|
a
|
||
|
end
|
||
|
end
|
||
|
end
|
||
|
|
||
|
IO.puts("test")
|
||
|
|
||
|
n = 1000
|
||
|
a = Enum.to_list(0..n-1)
|
||
|
IO.puts(Enum.reduce(a, 0, fn (i, s) ->
|
||
|
s + Enum.reduce(a, 0, fn (j, s) ->
|
||
|
s + Test.gcd(i, j)
|
||
|
end)
|
||
|
end))
|