LOOP (programming language). LOOP is a simple register language that precisely captures the primitive recursive functions.
The language is derived from the counter-machine model. Like the counter machines the LOOP language comprises a set of one or more unbounded registers, each of which can hold a single non-negative integer. A few arithmetic instructions (like 'CleaR', 'INCrement', 'DECrement', 'CoPY', ...) operate on the registers. The only control flow instruction is 'LOOP x DO ... END'. It causes the instructions within its scope to be repeated x times. (Changes of the content of register x during the execution of the loop do not affect the number of passes.)

History 
The LOOP language was formulated in a 1967 paper by Albert R. Meyer and Dennis M. Ritchie.
They showed the correspondence between the LOOP language and primitive recursive functions.

The language also was the topic of the unpublished PhD thesis of Ritchie.

It was also presented by Uwe Schöning, along with GOTO and WHILE.

Design philosophy and features 
In contrast to GOTO programs and WHILE programs, LOOP programs always terminate. Therefore, the set of functions computable by LOOP-programs is a proper subset of computable functions (and thus a subset of the computable by WHILE and GOTO program functions).

Meyer & Ritchie proved that each primitive recursive function is LOOP-computable and vice versa.

An example of a total computable function that is not LOOP computable is the Ackermann function.

Formal definition

Syntax 
LOOP-programs consist of the symbols LOOP, DO, END, :=, + and ; as well as any number of variables and constants. LOOP-programs have the following syntax in modified Backus–Naur form:

Here,  are variable names and  are constants.

Semantics 
If P is a LOOP program, P is equivalent to a function . The variables  through  in a LOOP program correspond to the arguments of the function , and are initialized before program execution with the appropriate values. All other variables are given the initial value zero. The variable  corresponds to the value that  takes when given the argument values from  through .

A statement of the form
 xi := 0
means the value of the variable  is set to 0.

A statement of the form
 xi := xi + 1
means the value of the variable  is incremented by 1.

A statement of the form
 P1; P2
represents the sequential execution of sub-programs  and , in that order.

A statement of the form
 LOOP x DO P END
means the repeated execution of the partial program  a total of  times, where the value that  has at the beginning of the execution of the statement is used. Even if  changes the value of , it won't affect how many times  is executed in the loop. If  has the value zero, then  is not executed inside the LOOP statement. This allows for branches in LOOP programs, where the conditional execution of a partial program depends on whether a variable has value zero or one.

Creating "convenience instructions" 
From the base syntax one create "convenience instructions". These will not be subroutines in the conventional sense but rather LOOP programs created from the base syntax and given a mnemonic. In a formal sense, to use these programs one needs to either (i) "expand" them into the code they will require the use of temporary or "auxiliary" variables so this must be taken into account, or (ii) design the syntax with the instructions 'built in'.

 Example

The k-ary projection function  extracts the i-th coordinate from an ordered k-tuple.

In their seminal paper  Meyer & Ritchie made the assignment  a basic statement.
As the example shows the assignment can be derived from the list of basic statements.

To create the  instruction use the block of code below.
 =equiv

 xj := 0;
 LOOP xi DO
   xj := xj + 1
 END

Again, all of this is for convenience only; none of this increases the model's intrinsic power.

Example Programs

Addition 
Addition is recursively defined as:

 

Here, S should be read as "successor".

In the hyperoperater sequence it is the function 

 can be implemented by the LOOP program ADD( x1, x2)

 LOOP x1 DO
   x0 := x0 + 1
 END;
 LOOP x2 DO
   x0 := x0 + 1
 END

Multiplication 
Multiplication is the hyperoperation function 

 can be implemented by the LOOP program MULT( x1, x2 )

 x0 := 0;
 LOOP x2 DO
   x0 := ADD( x1, x0)
 END
The program uses the ADD() program as a "convenience instruction". Expanded, the MULT program is a LOOP-program with two nested LOOP instructions. ADD counts for one.

More hyperoperators 
Given a LOOP program for a hyperoperation function , one can construct a LOOP program for the next level

 for instance (which stands for exponentiation) can be implemented by the LOOP program POWER( x1, x2 )

 x0 := 1;
 LOOP x2 DO
   x0 := MULT( x1, x0 )
 END

The exponentiation program, expanded, has three nested LOOP instructions.

Predecessor 
The predecessor function is defined as
.
This function can be computed by the following LOOP program, which sets the variable  to .

 /* precondition: x2 = 0 */
 LOOP x1 DO
   x0 := x2;
   x2 := x2 + 1
 END

Expanded, this is the program

 /* precondition: x2 = 0 */
 LOOP x1 DO
   x0 := 0;
   LOOP x2 DO
     x0 := x0 + 1
   END;
   x2 := x2 + 1
 END
This program can be used as a subroutine in other LOOP programs. The LOOP syntax can be extended with the following statement, equivalent to calling the above as a subroutine:
 x0 := x1 ∸ 1
Remark: Again one has to mind the side effects. The predecessor program changes the variable x2, which might be in use elsewhere. To expand the statement x0 := x1 ∸ 1, one could initialize the variables xn, xn+1 and xn+2 (for a big enough n) to 0, x1 and 0 respectively, run the code on these variables and copy the result (xn) to x0. A compiler can do this.

Cut-off subtraction 
If in the 'addition' program above the second loop decrements x0 instead of incrementing, the program computes the difference (cut off at 0) of the variables  and .
 x0 := x1
 LOOP x2 DO
   x0 := x0 ∸ 1
 END

Like before we can extend the LOOP syntax with the statement:
 x0 := x1 ∸ x2

If then else 
An if-then-else statement with if x1 > x2 then P1 else P2:

 xn1 := x1 ∸ x2;
 xn2 := 0;
 xn3 := 1;
 LOOP xn1 DO
   xn2 := 1;
   xn3 := 0
 END;
 LOOP xn2 DO
   P1
 END;
 LOOP xn3 DO
   P2
 END;

See also 
 μ-recursive function
 Primitive recursive function
 BlooP and FlooP

Notes and references

Bibliography

External links 
 Loop, Goto & While
 Mastering the Art of Loops in Programming: A Step-by-Step Tutorial

Mastering the Art of Loops in Programming: A Step-by-Step Tutorial 
Computability theory