Icon - gregorymorrison/euler1 GitHub Wiki
Introduced in 1977
# Euler1 in Icon
procedure euler1(size)
retval := 0
every i := 1 to size do
if i % 3 = 0 then
retval := retval + i
else if i % 5 = 0 then
retval := retval + i
return retval
end
procedure main()
write(euler1(999))
end
$ icont -s euler1.icn
Translating:
euler.icn:
euler1
main
No errors
Linking:
$ ./euler1
233168
$