Problem Statement

Soloway's Recurring Rainfall is commonly used to assess general programming knowledge by requiring basic program structure, input/output, and program exit procedure. The problem: Write a program that will read in integers and output their average. Stop reading when the value 99999 is input. For languages that aren't traditionally interactive, the program can read in values as makes sense and stopping once 99999 is encountered. The classic rainfall problem comes from identifying success of Computer Science programs with their students, so the original problem statement is written above -- though it may not strictly apply to a given language in the modern era. Implementation Details: The purpose of this problem, as originally proposed in the 1980's through its continued use today, is to just show fundamentals of CS: iteration, branching, program structure, termination, management of data types, input/output (where applicable), etc with things like input validation or management of numerical limits being more "advanced". It isn't meant to literally be a rainfall calculator so implementations should strive to implement the solution clearly and simply. References:

Let's start with the solution:

  [ $ "bigrat.qky" loadfile ] now!
  
  [ 0 0
    [ $ "Enter an integer (99999 to end): "
      [ input $->n not iff
          [ drop
            $ "                      Try again: " ]
            again ]
      dup 99999 != while
      + dip 1+
      again ]
    drop
    cr
    over 0 = iff
      [ 2drop
        say "No data entered." ] done
    say "Average: "
    swap 10 point$ echo$ ]                          is srr ( --> )