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 ); endSeveral new features are introduced in this program:
local'' declaration is used to define all variables. The type of a variable is determined by its usage, not by its declaration.
every e1 do e2'' is used to repeat statement e2 some number of times determined by the expression e1.
John Shipman, email@example.com
Last updated: 1996/01/06 21:12:57 UT