Data update

2026-02-01 16:33:20 -08:00 · 2026-02-01 16:33:20 -08:00 · 4bb20c9b71
commit 4bb20c9b71
parent 5150844a7d
7735 changed files with 38060 additions and 199180 deletions
--- a/Task/Pseudo-random-numbers-Middle-square-method/Ada/pseudo-random-numbers-middle-square-method.ada
+++ b/Task/Pseudo-random-numbers-Middle-square-method/Ada/pseudo-random-numbers-middle-square-method.ada
@ -1,16 +0,0 @@
-with Ada.Text_IO; use Ada.Text_IO;
-
-procedure Main is
-   type long is range 0 .. 2**64;
-   Seed : long := 675_248;
-   function random return long is
-   begin
-      Seed := Seed * Seed / 1_000 rem 1_000_000;
-      return Seed;
-   end random;
-begin
-   for I in 1 .. 5 loop
-      Put (long'Image (random));
-   end loop;
-   New_Line;
-end Main;