bricoles (perl)

dummy/max.pl

@@ -0,0 +1,46 @@
+#!/usr/local/bin/perl
+use strict;
+use warnings;
+use List::Util qw(min), qw(max);
+use Crypt::Random qw( makerandom );
+use feature 'say';
+
+my @r  = ();
+
+for (1..256) {
+	push(@r, makerandom ( Size => 8, Strength => 1 ));
+}
+
+sub compare
+{
+   if($a < $b)
+   {
+      return 1;
+   }
+
+   if($a == $b)
+   {
+      return 0;
+   }
+   return -1;
+}
+
+my @s =sort compare (@r);
+my $i = 0;
+
+
+print "000: ";
+for(@s){
+	printf "%03d ", "$_ ";	
+	$i = $i +1;
+	if (! ($i % 8)) {
+		printf "\n%03d: ", $i;
+	}
+}
+
+
+print "\n";
+say "Min :".min(@r);
+say "Max :".max(@r);
+
+