Data commit

Task/Pseudo-random-numbers-Middle-square-method/Perl/pseudo-random-numbers-middle-square-method.pl

@@ -0,0 +1,13 @@
+#!/usr/bin/perl
+
+use strict; # https://rosettacode.org/wiki/Pseudo-random_numbers/Middle-square_method
+use warnings;
+
+sub msq
+  {
+  use feature qw( state );
+  state $seed = 675248;
+  $seed = sprintf "%06d", $seed ** 2 / 1000 % 1e6;
+  }
+
+print msq, "\n" for 1 .. 5;