Soloway's recurring rainfall: Difference between revisions

=={{header|Quackery}}==

<syntaxhighlight lang="Quackery"> [ $ "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 ( --> )</syntaxhighlight>

{{out}}

As a dialogue in the Quackery shell.

<pre>/O> srr

...

Enter an integer (99999 to end): 99999

No data entered.

Stack empty.

/O> srr

...

Enter an integer (99999 to end): not an integer

Try again: 3.14159

Try again:

Try again: 2

Enter an integer (99999 to end): -3

Enter an integer (99999 to end): 5

Enter an integer (99999 to end): -7

Enter an integer (99999 to end): 11

Enter an integer (99999 to end): -13

Enter an integer (99999 to end): 17

Enter an integer (99999 to end): 99999

Average: 1.7142857143

Stack empty.</pre>