Data commit

Task/Department-numbers/Perl/department-numbers-1.pl

@@ -0,0 +1,30 @@
+#!/usr/bin/perl
+
+my @even_numbers;
+
+for (1..7)
+{
+  if ( $_ % 2 == 0)
+  {
+    push @even_numbers, $_;
+  }
+}
+	
+print "Police\tFire\tSanitation\n";
+
+foreach my $police_number (@even_numbers)
+{
+  for my $fire_number (1..7)
+  {
+    for my $sanitation_number (1..7)
+    {
+      if ( $police_number + $fire_number + $sanitation_number == 12 &&
+           $police_number != $fire_number &&
+           $fire_number != $sanitation_number &&
+           $sanitation_number != $police_number)
+      {
+        print "$police_number\t$fire_number\t$sanitation_number\n";
+      }
+    }
+  }	
+}

Task/Department-numbers/Perl/department-numbers-2.pl

@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+
+use strict;   # Not necessary but considered good perl style
+use warnings; # this one too
+
+print "Police\t-\tFire\t-\tSanitation\n";
+for my $p ( 1..7 )  # Police Department
+{
+  for my $f ( 1..7) # Fire Department
+  {
+    for my $s ( 1..7 ) # Sanitation Department
+    {
+      if ( $p % 2 == 0 && $p + $f + $s == 12 && $p != $f && $f != $s  && $s != $p && $f != $s) # Check if the combination of numbers is valid
+      {
+        print "$p\t-\t$f\t-\t$s\n";
+      }
+    }
+  }
+}

Task/Department-numbers/Perl/department-numbers-3.pl

@@ -0,0 +1,15 @@
+Police  -       Fire    -       Sanitation
+2       -       3       -       7
+2       -       4       -       6
+2       -       6       -       4
+2       -       7       -       3
+4       -       1       -       7
+4       -       2       -       6
+4       -       3       -       5
+4       -       5       -       3
+4       -       6       -       2
+4       -       7       -       1
+6       -       1       -       5
+6       -       2       -       4
+6       -       4       -       2
+6       -       5       -       1

Task/Department-numbers/Perl/department-numbers-4.pl

@@ -0,0 +1,11 @@
+#!/usr/bin/perl
+
+use strict; # https://rosettacode.org/wiki/Department_numbers
+use warnings;
+
+print "P S F\n\n";
+
+'246 1234567 1234567' =~
+  /(.).* \s .*?(?!\1)(.).* \s .*(?!\1)(?!\2)(.)
+  (??{$1+$2+$3!=12})
+  (?{ print "@{^CAPTURE}\n" })(*FAIL)/x;

Task/Department-numbers/Perl/department-numbers-5.pl

@@ -0,0 +1,10 @@
+#!/usr/bin/perl
+
+use strict; # https://rosettacode.org/wiki/Department_numbers
+use warnings;
+
+print "P S F\n\n";
+
+print tr/+/ /r, "\n" for
+  grep  !/(\d).*\1/ && 12 == eval,
+  glob '{2,4,6}' . '+{1,2,3,4,5,6,7}' x 2;