Problem Statement

A problem posed by Paul Graham is that of creating a function that takes a single (numeric) argument and which returns another function that is an accumulator. The returned accumulator function in turn also takes a single numeric argument, and returns the sum of all the numeric values passed in so far to that accumulator (including the initial value passed when the accumulator was created).

The detailed rules are at http://paulgraham.com/accgensub.html and are reproduced here for simplicity (with additions in small italic text).

Create a function that implements the described rules.

It need not handle any special error cases not described above. The simplest way to implement the task as described is typically to use a closure, providing the language supports them. Where it is not possible to hold exactly to the constraints above, describe the deviations.

Let's start with the solution:

PROGRAM ACCUMULATOR

PROCEDURE ACCUMULATOR(SUM,N,A->SUM)
    IF NOT A THEN SUM=N ELSE SUM=SUM+N
END PROCEDURE

BEGIN
   PRINT(CHR$(12);) ! CLS
   ACCUMULATOR(X,1,FALSE->X)  ! INIT FIRST ACCUMULATOR
   ACCUMULATOR(X,-15,TRUE->X)
   ACCUMULATOR(X,2.3,TRUE->X)

   ACCUMULATOR(Z,3,FALSE->Z)  ! INIT SECOND ACCUMULATOR
   ACCUMULATOR(Z,5,TRUE->Z)
   ACCUMULATOR(Z,2.3,TRUE->Z)
   PRINT(X,Z)
END PROGRAM