LOOP is a simple register language designed to precisely capture 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 operate on the registers: inc x (increment), dec x (decrement: ), x = 0 (clear), and x = y (copy). The only control flow instruction is LOOP x: .... It causes the instructions within its scope to be repeated times.
In contrast to GOTO programs and WHILE programs, LOOP programs always terminate. The running time is known in advance. Therefore, the set of functions computable by LOOP-programs is a proper subset of computable functions (and thus a proper subset of the functions computable by WHILE and GOTO programs).
The LOOP language admits several variants, distinguished by their set of basic instructions. Four such variants, L0 – L3, are distinguished in this article. Despite differences in syntactic convenience and loop-nesting depth, all variants compute exactly the primitive recursive functions.
At shallow nesting depths, the choice of basic instructions affects which functions are reachable. The simple functions are exactly the functions computable at depth 1 in L1; the Presburger-definable functions are exactly the functions computable at depth 1 in L3; the Kalmár elementary functions are exactly the functions computable at depth 2 in L1, L2, and a fortiori L3. From depth 3 onward all variants agree.
An example of a total computable function that is not LOOP-computable is the Ackermann function.
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, proving that each primitive recursive function is LOOP-computable and vice versa.
The language also was the topic of the unpublished PhD thesis of Ritchie.
It was presented by Uwe Schöning, along with GOTO and WHILE.
Several variants of the LOOP programming language have been defined, based on different sets of basic instructions. Despite these variations, they agree on the class of functions they compute: exactly the primitive recursive functions. However, when considering loop nesting depth —that is, the number of nested LOOP constructs allowed— the choice of basic instructions affects the expressive power at shallow depths.
Four variants of the LOOP language are distinguished here:
In this presentation, the term "LOOP program" refers collectively to any of L0 – L3.
A LOOP program consists of a sequence of instructions, which modify a finite number of registers, any of which may contain a non-negative integer.
If x and y are registers, define the following sets Bi of basic instructions:
x = 0, inc x}x = y}dec x }For we define the loop language Li as the smallest set of programs generated by the following rules:
1. Every instruction s ∈ Bi is a program in Li.
2. If P and Q are in Li, then the sequential composition
P
Q
3. If P ∈ Li, then
LOOP x:
P
Indentation determines block structure in a Python-like notation. For brevity, a short body may be written on the same line as its LOOP header, and consecutive instructions on one line are separated by semicolons.
A LOOP program may be associated with a signature specifying input and output registers:
signature ::= 'def' program_name '(' input ')' '->' '(' output ')' ':'
input ::= [ register (',' register)* ]
output ::= register (',' register)*
input and output can be any lists of registers, in general P can compute several functions, depending on the chosen mapping. So, multiple signatures can be associated to one single LOOP program.Registers range over . Execution proceeds sequentially. A loop of the form LOOP x: ... executes its body exactly times, where is the value of the register at loop entry.
A LOOP program P is said to compute a function when:
A function is primitive recursive iff it can be computed by a LOOP program.
This definition agrees with the following:
As all four systems compute the primitive recursive functions,
x = y is definable in L0 and in L2,dec x is definable in L0 and in L1.x = yIn L0 or L2 x = y can be implemented by the program
def copy(y) -> (x):
LOOP y:
inc x
We will write x = y in all languages, understanding that this instruction denotes x = copy(y) in L0 and in L2.
Wherever x = y appears in L0 or in L2 code, one has to add to the local loop depth.
The overall nesting depths are
""" Loop nesting: 1 (L0), 0 (L1) """
dec xThe predecessor function
can be implemented by the programs
|
in L0 def dec_L0(x) -> (x):
LOOP x:
x = 0
LOOP a:
inc x
inc a
|
in L1 def dec_L1(x) -> (x):
LOOP x:
x = a
inc a
|
We will write dec x in all languages, understanding that this instruction denotes dec_L0(x) in L0 and dec_L1(x) in L1.
Wherever dec x appears in L0 or in L1 code, one has to add respectively to the local loop depth.
The overall nesting depths are
""" Loop nesting: 2 (L0), 1 (L1), 0 (L2) """
The central significance of the LOOP language lies in its stratification by maximum loop nesting depth. Writing Loopk(L) for the class of functions computable by programs in variant L with at most k-nested LOOP constructs, the four variants are related by the following inclusion diagram:
where an upward edge denotes that the upper variant has strictly more primitive instructions than the lower. L1 and L2 are incomparable: L1 has x = y but not dec x; L2 has dec x but not x = y; L3 has both; L0 has neither.
For nesting depth k < 2 this induces strict inclusions along the edges:
with Loopk(L1) and Loopk(L2) incomparable. The strict inclusions reflect the cost of simulating missing base instructions by extra loop nesting.
At depth 2 the variants L1, L2 and L3 collapse; from depth 3 onward the choice of basic instructions ceases to matter and all four variants agree. In particular:
The example programs below track loop nesting depth explicitly for each variant.
Let P and Q be LOOP programs.
Assume that Q is a program with input registers and output registers, computing a primitive recursive function
.
Suppose input registers of P supply the inputs , and we wish to use Q as a subroutine inside P.
Then the code of Q can be embedded ("macro-expanded") into P as follows:
This construction allows Q to be used as a subprogram of P, simulating an activation record in the sense required here.
Integer division by a constant is a Presburger function that requires loop depth 1 in L1 and loop depth 2 in L2.
By convention, . can be computed by the LOOP program
def divk(x) -> (c1):
""" Loop nesting: 2 (L0), 1 (L1), 2 (L2) """
LOOP x:
c0 = c1 # add to loop depth: 1 (L0), - (L1), 1 (L2)
c1 = c2 # add to loop depth: 1 (L0), - (L1), 1 (L2)
... # ... ...
ck = c0 # add to loop depth: 1 (L0), - (L1), 1 (L2)
inc ck
Example: |
|---|
def div4(x) -> (c1):
""" Loop nesting: 2 (L0), 1 (L1), 2 (L2) """
LOOP x:
c0 = c1 # add to loop depth: 1 (L0), - (L1), 1 (L2)
c1 = c2 # add to loop depth: 1 (L0), - (L1), 1 (L2)
c2 = c3 # add to loop depth: 1 (L0), - (L1), 1 (L2)
c3 = c4 # add to loop depth: 1 (L0), - (L1), 1 (L2)
c4 = c0 # add to loop depth: 1 (L0), - (L1), 1 (L2)
inc c4
|
c0, c1, ..., ck form a cyclic shift chain, rotated one link to the left each iteration; ck is then incremented. Every iterations, the incremented value returns to c1, so c1 counts complete groups of iterations.This is the (integer) remainder after division by a constant.
By convention, . For :
def modk(x) -> (r):
""" Loop nesting: 2 (L0), 1 (L1) """
# Step 1: Initialize the state ring
inc c0
# Step 2: Cycle the states x times
LOOP x:
# Shift the ring forward:
# (c0, c1, c2, ..., c{k-1}) = (c{k-1}, c0, c1, ..., c{k-2})
t0 = c0
t1 = c1 # add to loop depth: 1 (L0), - (L1), 1 (L2)
t2 = c2
...
t{k-1} = c{k-1}
c0 = t{k-1}
c1 = t0 # add to loop depth: 1 (L0), - (L1), 1 (L2)
c2 = t1
...
c{k-1} = t{k-2}
# Step 3: Extract the final answer.
LOOP c1: r = 1
LOOP c2: r = 2
...
LOOP c{k-1}: r = {k-1}
Example: |
|---|
def mod5(x) -> (r):
""" Loop nesting: 2 (L0), 1 (L1) """
# Step 1: Initialize the state ring for k=5
inc c0
# Step 2: Cycle the states x times
LOOP x:
# Shift the ring forward:
# (c0, c1, c2, c3, c4) = (c4, c0, c1, c2, c3)
t0 = c0
t1 = c1 # add to loop depth: 1 (L0), - (L1), 1 (L2)
t2 = c2
t3 = c3
t4 = c4
c0 = t4
c1 = t0 # add to loop depth: 1 (L0), - (L1), 1 (L2)
c2 = t1
c3 = t2
c4 = t3
# Step 3: Extract the final answer.
LOOP c1: r = 1
LOOP c2: r = 2
LOOP c3: r = 3
LOOP c4: r = 4
|
This is the monus function (cutoff-subtraction).
def monus(x, y) -> (x):
""" Loop nesting: 3 (L0), 2 (L1), 1 (L2) """
LOOP y:
dec x # add to loop depth: 2 (L0), 1 (L1)
The expanded L1 code is listed by Meyer & Ritchie and by Matos:
def monus(x, y) -> (x):
LOOP y:
a = 0
LOOP x:
x = a
inc a
def w(x, y) -> (x):
""" Loop nesting: 1 (L0) """
LOOP y:
x = 0
The equality of two variables and is tested with the Kronecker delta
def eq(x, y) -> (result):
""" Loop nesting: 3 (L0), 2 (L1), 1 (L2) """
inc result # assume equal
test = monus(x, y) # loop depth: 3 (L0), 2 (L1), 1 (L2)
LOOP test:
result = 0 # x > y
test = monus(y, x) # loop depth: 3 (L0), 2 (L1), 1 (L2)
LOOP test:
result = 0 # y > x
IF x = y THEN execute P1 ELSE execute P2
can be translated to
test = eq(x, y) # add to loop depth: 3 (L0), 2 (L1), 1 (L2)
LOOP test:
P1
test = monus(1, test) # add to loop depth: 3 (L0), 2 (L1), 1 (L2)
LOOP test:
P2
test must not appear in P1 or P2. This is guaranteed in macro-expanded code by renaming registers to avoid collisions.This is the (integer) remainder.
By convention, . For :
def mod(x, y) -> (r):
"""
Loop nesting: 3 (L0), 2 (L1), 2 (L2)
Invariant: c = (y-1) - r
"""
LOOP y: inc ym1 # registers not listed as input hold 0
dec ym1 # ADD TO LOOP DEPTH: 2 (L0), 1 (L1)
LOOP ym1: inc c # c = y-1 = initial countdown
z0 = 1
LOOP y: z0 = 0 # z0 = 1 iff y = 0
LOOP x:
nz = 0
p = 0
LOOP c: nz = 1; inc p # nz = sg(c), p = c
dec p # p = c-1; ADD TO LOOP DEPTH: 2 (L0), 1 (L1)
z = 1
LOOP nz: z = 0 # z = 1 iff c = 0 (wrap)
t = 0
LOOP ym1: inc t
LOOP nz: t = 0 # t = y-1 on wrap, else 0
c = 0
LOOP t: inc c # c ⇐ y-1 on wrap,
LOOP p: inc c # c-1 otherwise
LOOP z: r = 0 # wrap: reset r
LOOP nz: inc r # step: increment r
LOOP z0: # y = 0: r = x
r = 0
LOOP x: inc r
The function
def exp2(x) -> (y):
""" Loop nesting: 2 (L0) """
inc y
LOOP x:
LOOP y:
inc y
Addition is the hyperoperation .
can be implemented by the LOOP1 program
def add(x, y) -> (x):
""" Loop nesting: 1 (L0) """
LOOP y:
inc x
Multiplication is the hyperoperation :
can be computed by the LOOP2 program
def mult(x, y) -> (z):
""" Loop nesting: 2 (L0) """
LOOP y:
z = add(z, x)
Given a LOOPi program for a hyperoperation ,
one can construct a LOOPi+1 program for the next level.
is exponentiation:
can be computed by the LOOP3 program
def power(x, y) -> (z):
""" Loop nesting: 3 (L0) """
inc z
LOOP y:
z = mult(z, x)
This program expands to
def power(x, y) -> (z):
inc z
LOOP y:
temp = 0
LOOP x:
LOOP z:
inc temp
z = temp
Since the initial functions are all dominated by the successor function, iterations of it dominate all functions defined by iterations from the initial functions. Let be the (finite-level) fast-growing hierarchy of functions
where is the n-th iterate of .
For fixed , can be computed by the LOOPk program
def F_k(n) -> (n):
""" Loop nesting: k (L0) """
LOOP n: # loop depth: 1
LOOP n: # loop depth: 2
... # ...
LOOP n: # loop depth: k
inc n #
Several known classes of functions are characterised by finite superposition bases: closure under composition alone, with no looping or recursion. We write for the closure of a set of functions under superposition.
Tsichritzis (1970) defined simple functions as those obtainable by superposition from the basis
where ranges over positive integer constants, and
is the conditional selection function defined above.
All five basis operations are computable in Loop1(L1):
dec_L1;Since all basis functions are Loop1(L1) computable, and superposition does not increase nesting depth, the simple functions are exactly the Loop1(L1) computable functions.
Consider programs with loop nesting depth at most 1. The class of functions computable by L3 programs is the class of Presburger functions.
The Presburger basis is obtained from the simple functions basis by replacing predecessor () by monus ():
Note that is redundant in the basis and is included only to make the parallel with the simple functions basis explicit.
The class of simple functions is a proper subclass of the Presburger functions:
Note that
Prunescu, Sauras-Altuzarra and Shunia (2026) provided a minimal superposition basis for Kalmár elementary functions:
Since these functions are Loop2 computable in L1 as well as in L2 —check the examples above— Kalmár elementary functions can be computed by (loop-free) concatenation of Loop2 programs in L1 or L2. Furthermore:
The identity
allows to be computed by superposition from the substitution basis ,
yielding a Loop2 program in L1 or L2:
def power_by_superposition(x, y) -> (result):
""" Loop nesting: 3 (L0), 2 (L1), 2 (L2) """
base = mult(x, y) # will become xy+x+1
base = add(base, x)
base = add(base, 1) # base = xy+x+1
e = mult(base, y) # e = (xy+x+1)y
dividend = exp2(e)
divisor = exp2(base)
divisor = monus(divisor, x) # loop depth: 3 (L0), 2 (L1), 1 (L2)
result = mod(dividend, divisor) # loop depth: 3 (L0), 2 (L1), 2 (L2)
The superposition basis approach introduced above extends to every level of the Grzegorczyk hierarchy.
Let denote the -th hyperoperation ( = addition, = multiplication, = exponentiation, = tetration, …).
Prunescu, Sauras-Altuzarra and Shunia (2026) proved that the Kalmár elementary functions are generated by three functions:
simplifying the base of Mazzanti (2002) by showing multiplication to be redundant.
Mazzanti's base theorem extends this to every level of the hierarchy: for ,
and in the limit a base for all primitive recursive functions:
Multiplication appears at no level of the Mazzanti hierarchy. In particular, exponentiation is reachable at depth 2 directly from the basis — not via repeated multiplication — through the identity .
The bases translate directly into LOOP nesting depths via the example programs above, since superposition corresponds to loop-free concatenation of programs. At the elementary level, (see above). From depth 3 onward the choice of variant is irrelevant, and for :
one new loop per level. In particular tetration requires nesting depth exactly 3.
if x = y then ... else ... fi.x = 0 if x == 0 else x - 1
k) are shorthand for unused registers pre-initialised by repeated inc: the constant k denotes a fresh register set to . An assignment x = k of a literal constant abbreviates x = 0 followed by occurrences of inc x; both instructions lie in B0, so such an assignment adds nothing to the loop depth in any variant.def exp2(x) -> (y):
inc y
LOOP x:
z = 0
LOOP y:
inc z
inc z
y = z