aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

48
Task/Soloways-recurring-rainfall/Ada/soloways-recurring-rainfall.ada
View file

@ -1,48 +0,0 @@
with Ada.Text_IO;
with Ada.Text_IO.Unbounded_IO;
with Ada.Strings.Unbounded;
with Ada.Integer_Text_IO;
with Ada.IO_Exceptions;
procedure RecurringRainfall is
Current_Average : Float := 0.0;
Current_Count : Integer := 0;
Input_Integer : Integer;
-- Recursively attempt to get a new integer
function Get_Next_Input return Integer is
Input_Integer : Integer;
Clear_String : Ada.Strings.Unbounded.Unbounded_String;
begin
Ada.Text_IO.Put("Enter rainfall int, 99999 to quit: ");
Ada.Integer_Text_IO.Get(Input_Integer);
return Input_Integer;
exception
when Ada.IO_Exceptions.Data_Error =>
Ada.Text_IO.Put_Line("Invalid input");
-- We need to call Get_Line to make sure we flush the kb buffer
-- The pragma is to ignore the fact that we are not using the result
pragma Warnings (Off, Clear_String);
Clear_String := Ada.Text_IO.Unbounded_IO.Get_Line;
-- Recursively call self -- it'll break when valid input is hit
-- We disable the infinite recursion because we're intentionally
-- doing this. It will "break" when the user inputs valid input
-- or kills the program
pragma Warnings (Off, "infinite recursion");
return Get_Next_Input;
pragma Warnings (On, "infinite recursion");
end Get_Next_Input;
begin
loop
Input_Integer := Get_Next_Input;
exit when Input_Integer = 99999;
Current_Count := Current_Count + 1;
Current_Average := Current_Average + (Float(1) / Float(Current_Count))*Float(Input_Integer) - (Float(1) / Float(Current_Count))*Current_Average;
Ada.Text_IO.Put("New Average: ");
Ada.Text_IO.Put_Line(Float'image(Current_Average));
end loop;
end RecurringRainfall;

5
Task/Soloways-recurring-rainfall/Arturo/soloways-recurring-rainfall.arturo
View file

@ -3,11 +3,12 @@ sum: 0
while ø [
n: input "Enter rainfall as integer (99999 to quit): "
try? -> n: to :integer n
else [
if throws? -> n: to :integer n [
print "Input must be an integer."
continue
]
if 99999 = n -> break
'i + 1
'sum + n

22
Task/Soloways-recurring-rainfall/COBOL/soloways-recurring-rainfall.cobol
View file

@ -1,22 +0,0 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. SOLOWAY.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 AVERAGE PIC 9(9)V9(9) VALUE ZERO.
01 AMOUNT PIC 9(9) VALUE ZERO.
01 CURRENT PIC 9(9).
01 OUTPUT-VAL PIC Z(8)9.9(9).
PROCEDURE DIVISION.
READ-VALUE.
ACCEPT CURRENT.
IF CURRENT IS EQUAL TO 99999, GO TO DONE.
ADD 1 TO AMOUNT.
COMPUTE AVERAGE =
AVERAGE * (AMOUNT - 1) / AMOUNT + CURRENT / AMOUNT.
GO TO READ-VALUE.
DONE.
MOVE AVERAGE TO OUTPUT-VAL.
DISPLAY OUTPUT-VAL.
STOP RUN.