News flash: I'm going to Australia in February, so this Web site may be switched off at any time.

Doing simple arithmetic in Icon

Here is a simple Icon program that finds the sum of the numbers from one to five:

    procedure main()
      local n, sum             # Declare two local variables

      sum  :=  0;              # Set the sum to zero

      every  n := 1 to 5  do   # For n equal to 1, 2, 3, 4, 5 ...
        sum  :=  sum + n;      # ...add n to the sum

      write ( "The sum of all numbers from 1 to 5 is ", sum );
    end

• The ``local'' declaration is used to define all variables. The type of a variable is determined by its usage, not by its declaration.
• The construct ``every e1 do e2'' is used to repeat statement e2 some number of times determined by the expression e1.
• The construct ``variable := expression'' computes the value of an expression and stores it in a variable.