A-M baby

Task/Integer-comparison/Perl/integer-comparison-1.pl

@@ -0,0 +1,13 @@
+sub test_num {
+    my $f = shift;
+    my $s = shift;
+    if ($f < $s){
+        return -1; # returns -1 if $f is less than $s
+    } elsif ($f > $s) {
+        return 1; # returns 1 if $f is greater than $s
+    } elsif ($f == $s) {
+# = operator is an assignment
+# == operator is a numeric comparison
+       return 0; # returns 0 $f is equal to $s
+    };
+};