Icon

Jump to bottom Edit New page

Gregory Morrison edited this page Feb 11, 2023 · 5 revisions

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 
$

Return home