Soloway's recurring rainfall: Difference between revisions
Added Quackery.
(Added XPL0 example.) |
(Added Quackery.) |
||
Line 714:
</syntaxhighlight>
=={{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>
=={{header|Raku}}==
| |||