Added max and min.

Changes

@@ -4,6 +4,7 @@ Revision history for e
 1.28 - 2024-08-NN
 =================
 
+Added commands: max, min (from List::Util).
 Updated pod.
 
 =================

README.md

@@ -410,6 +410,22 @@ Turn string into a [Mojo::File](https://metacpan.org/pod/Mojo%3A%3AFile) object.
 
     $ perl -Me -e 'say r j f("hello.json")->slurp'
 
+## Math Help
+
+### max
+
+Get the biggest number in a list.
+
+    $ perl -Me -e 'say max 2,4,1,3'
+    4
+
+### min
+
+Get the smallest number in a list.
+
+    $ perl -Me -e 'say max 2,4,1,3'
+    1
+
 ## Output
 
 ### say

lib/e.pm

@@ -438,6 +438,24 @@ Turn string into a L<Mojo::File> object.
 
 =cut
 
+=head2 Math Help
+
+=head3 max
+
+Get the biggest number in a list.
+
+    $ perl -Me -e 'say max 2,4,1,3'
+    4
+
+=head3 min
+
+Get the smallest number in a list.
+
+    $ perl -Me -e 'say max 2,4,1,3'
+    1
+
+=cut
+
 =head2 Output
 
 =head3 say
@@ -924,6 +942,26 @@ sub import {
             Mojo::File::path( @_ );
         },
 
+        ######################################
+        #            Math Help
+        ######################################
+
+        max => sub {
+            if ( !$imported{$caller}{"List::Util"}++ ) {
+                require List::Util;
+            }
+
+            List::Util::max( @_ );
+        },
+
+        min => sub {
+            if ( !$imported{$caller}{"List::Util"}++ ) {
+                require List::Util;
+            }
+
+            List::Util::min( @_ );
+        },
+
         ######################################
         #             Output
         ######################################

t/01-simple.t

@@ -253,6 +253,20 @@ is
   "cpuinfo",
   "f - basename";
 
+######################################
+#            Math Help
+######################################
+
+is
+    max(10,20,9,15),
+    20,
+    "max - sanity check";
+
+is
+    min(10,20,9,15),
+    9,
+    "min - sanity check";
+
 ######################################
 #             Output
 ######################################