Merge pull request #5219 from Abigail/abigail/week-138

Abigail/week 138

20 files changed, 851 insertions, 43 deletions

diff --git a/challenge-138/abigail/awk/ch-1.awk b/challenge-138/abigail/awk/ch-1.awk
index b60e858f5e..b201f1f4df 100644
--- a/challenge-138/abigail/awk/ch-1.awk
+++ b/challenge-138/abigail/awk/ch-1.awk
@@ -9,7 +9,7 @@
 #
 
 BEGIN {
-    split ("261 261 260 260 261 261 261 262 262 261 260 261 262 262", \
+    split ("261 260 260 261 261 261 261 262 261 260 261 262 262 262", \
             lookup, " ")
     SUNDAY    = 0
     MONDAY    = 1
diff --git a/challenge-138/abigail/bash/ch-1.sh b/challenge-138/abigail/bash/ch-1.sh
index 982392620d..a9141ac750 100644
--- a/challenge-138/abigail/bash/ch-1.sh
+++ b/challenge-138/abigail/bash/ch-1.sh
@@ -18,7 +18,7 @@ THURSDAY=4
 FRIDAY=5
 SATURDAY=6
 
-LOOKUP=(261 261 260 260 261 261 261 262 262 261 260 261 262 262)
+LOOKUP=(261 260 260 261 261 261 261 262 261 260 261 262 262 262)
 DDVALS=($TUESDAY $SUNDAY $FRIDAY $WEDNESDAY)
 
 function doomsday () {
diff --git a/challenge-138/abigail/bc/ch-1.bc b/challenge-138/abigail/bc/ch-1.bc
index 454cb60728..0f90b4339d 100644
--- a/challenge-138/abigail/bc/ch-1.bc
+++ b/challenge-138/abigail/bc/ch-1.bc
@@ -15,17 +15,17 @@ friday      =   5
 saturday    =   6
 
 lookup [ 0] = 261
-lookup [ 1] = 261
+lookup [ 1] = 260
 lookup [ 2] = 260
-lookup [ 3] = 260
+lookup [ 3] = 261
 lookup [ 4] = 261
 lookup [ 5] = 261
 lookup [ 6] = 261
 lookup [ 7] = 262
-lookup [ 8] = 262
-lookup [ 9] = 261
-lookup [10] = 260
-lookup [11] = 261
+lookup [ 8] = 261
+lookup [ 9] = 260
+lookup [10] = 261
+lookup [11] = 262
 lookup [12] = 262
 lookup [13] = 262
 
diff --git a/challenge-138/abigail/blog.txt b/challenge-138/abigail/blog.txt
new file mode 100644
index 0000000000..6abe9161e3
--- /dev/null
+++ b/challenge-138/abigail/blog.txt
@@ -0,0 +1 @@
+https://abigail.github.io/HTML/Perl-Weekly-Challenge/week-138-1.html
diff --git a/challenge-138/abigail/blog1.txt b/challenge-138/abigail/blog1.txt
new file mode 100644
index 0000000000..10f2a3c38b
--- /dev/null
+++ b/challenge-138/abigail/blog1.txt
@@ -0,0 +1 @@
+https://abigail.github.io/HTML/Perl-Weekly-Challenge/week-138-2.html
diff --git a/challenge-138/abigail/c/ch-1.c b/challenge-138/abigail/c/ch-1.c
index 7883dc9a0f..3250115c5f 100644
--- a/challenge-138/abigail/c/ch-1.c
+++ b/challenge-138/abigail/c/ch-1.c
@@ -18,8 +18,8 @@
 # define FRIDAY    5
 # define SATURDAY  6
 
-int lookup  [] = {261, 261, 260, 260, 261, 261, 261,
-                  262, 262, 261, 260, 261, 262, 262};
+int lookup  [] = {261, 260, 260, 261, 261, 261, 261,
+                  262, 261, 260, 261, 262, 262, 262};
 int anchors [] = {TUESDAY, SUNDAY, FRIDAY, WEDNESDAY};
 
 int doomsday (int year) {
diff --git a/challenge-138/abigail/go/ch-1.go b/challenge-138/abigail/go/ch-1.go
index e86ea3fbb7..3fd74bc38f 100644
--- a/challenge-138/abigail/go/ch-1.go
+++ b/challenge-138/abigail/go/ch-1.go
@@ -21,8 +21,8 @@ const FRIDAY    = 5
 const SATURDAY  = 6
 
 var lookup = [2] [7] int {
-    {261, 261, 260, 260, 261, 261, 261},
-    {262, 262, 261, 260, 261, 262, 262},
+    {261, 260, 260, 261, 261, 261, 261},
+    {262, 261, 260, 261, 262, 262, 262},
 }
 
 var anchors = [4] int {TUESDAY, SUNDAY, FRIDAY, WEDNESDAY}
diff --git a/challenge-138/abigail/java/ch-1.java b/challenge-138/abigail/java/ch-1.java
index b4aff34076..41378a448c 100644
--- a/challenge-138/abigail/java/ch-1.java
+++ b/challenge-138/abigail/java/ch-1.java
@@ -10,8 +10,8 @@ import java.util.*;
 
 public class ch1 {
     static int [] [] lookup = {
-        {261, 261, 260, 260, 261, 261, 261},
-        {262, 262, 261, 260, 261, 262, 262},
+        {261, 260, 260, 261, 261, 261, 261},
+        {262, 261, 260, 261, 262, 262, 262},
     };
 
     public static final int SUNDAY    = 0;
diff --git a/challenge-138/abigail/lua/ch-1.lua b/challenge-138/abigail/lua/ch-1.lua
index 5f61cb3ec6..deae0602cf 100644
--- a/challenge-138/abigail/lua/ch-1.lua
+++ b/challenge-138/abigail/lua/ch-1.lua
@@ -17,8 +17,8 @@ local FRIDAY    = 5
 local SATURDAY  = 6
 
 local lookup    = {
-    {261, 261, 260, 260, 261, 261, 261},
-    {262, 262, 261, 260, 261, 262, 262},
+    {261, 260, 260, 261, 261, 261, 261},
+    {262, 261, 260, 261, 262, 262, 262},
 }
 
 local anchors   = {TUESDAY, SUNDAY, FRIDAY, WEDNESDAY}
diff --git a/challenge-138/abigail/node/ch-1.js b/challenge-138/abigail/node/ch-1.js
index b969a761ef..6de9bd9641 100644
--- a/challenge-138/abigail/node/ch-1.js
+++ b/challenge-138/abigail/node/ch-1.js
@@ -17,8 +17,8 @@ let FRIDAY    = 5
 let SATURDAY  = 6
 
 let lookup    = [
-    [261, 261, 260, 260, 261, 261, 261],
-    [262, 262, 261, 260, 261, 262, 262],
+    [261, 260, 260, 261, 261, 261, 261],
+    [262, 261, 260, 261, 262, 262, 262],
 ]
 
 function doomsday (year) {
diff --git a/challenge-138/abigail/pascal/ch-1.p b/challenge-138/abigail/pascal/ch-1.p
index 594c76f307..d44b7c6124 100644
--- a/challenge-138/abigail/pascal/ch-1.p
+++ b/challenge-138/abigail/pascal/ch-1.p
@@ -22,8 +22,8 @@ var
         TUESDAY, SUNDAY, FRIDAY, WEDNESDAY
     );
     lookup: Array [0 .. 1, 0 .. 6] of Integer = (
-        (261, 261, 260, 260, 261, 261, 261),
-        (262, 262, 261, 260, 261, 262, 262)
+        (261, 260, 260, 261, 261, 261, 261),
+        (262, 261, 260, 261, 262, 262, 262)
     );
     year: Integer;
 
diff --git a/challenge-138/abigail/perl/ch-1.pl b/challenge-138/abigail/perl/ch-1.pl
index eae1bea355..9f67cdf720 100644
--- a/challenge-138/abigail/perl/ch-1.pl
+++ b/challenge-138/abigail/perl/ch-1.pl
@@ -45,18 +45,18 @@ use experimental 'lexical_subs';
 #  +----------------+-------+----------+-------+----------+
 #  | Doomsday value | Jan 1 | Workdays | Jan 1 | Workdays |
 #  +----------------+-------+----------+-------+----------+
-#  |              0 |  Thu  |      261 |   Wed |      262 |
-#  |              1 |  Fri  |      261 |   Thu |      262 |
-#  |              2 |  Sat  |      260 |   Fri |      261 |
-#  |              3 |  Sun  |      260 |   Sat |      260 |
-#  |              4 |  Mon  |      261 |   Sun |      261 |
-#  |              5 |  Tue  |      261 |   Mon |      262 |
-#  |              6 |  Wed  |      261 |   Tue |      262 |
+#  |              0 |  Fri  |      261 |   Thu |      262 |
+#  |              1 |  Sat  |      260 |   Fri |      261 |
+#  |              2 |  Sun  |      260 |   Sat |      260 |
+#  |              3 |  Mon  |      261 |   Sun |      261 |
+#  |              4 |  Tue  |      261 |   Mon |      262 |
+#  |              5 |  Wed  |      261 |   Tue |      262 |
+#  |              6 |  Thu  |      261 |   Wed |      262 |
 #  +----------------+-------+----------+-------+----------+
 
 my @lookup = (
-    [261, 261, 260, 260, 261, 261, 261],   # Regular years
-    [262, 262, 261, 260, 261, 262, 262],   # Leap years
+    [261, 260, 260, 261, 261, 261, 261],   # Regular years
+    [262, 261, 260, 261, 262, 262, 262],   # Leap years
 );
 
 my $SUNDAY    = 0;
@@ -71,7 +71,7 @@ my $SATURDAY  = 6;
 # Given a year, return its "Doomsday" value. 
 # 0 -> Sunday, 6 -> Saturday
 #
-sub doomsday ($year) {
+sub doomsday ($year = $_) {
     use integer;
     my $anchor   = ($TUESDAY, $SUNDAY, $FRIDAY, $WEDNESDAY) [($year / 100) % 4];
     my $y        = $year % 100;
@@ -79,11 +79,11 @@ sub doomsday ($year) {
     $doomsday;
 }
 
-sub is_leap ($year) {
+sub is_leap ($year = $_) {
     ($year % 400 == 0) || ($year % 4 == 0) && ($year % 100 != 0) ? 1 : 0
 }
 
 
 while (<>) {
-    say $lookup [is_leap $_] [doomsday $_]
+    say $lookup [is_leap] [doomsday]
 }
diff --git a/challenge-138/abigail/python/ch-1.py b/challenge-138/abigail/python/ch-1.py
index e2cb189de3..c503455f63 100644
--- a/challenge-138/abigail/python/ch-1.py
+++ b/challenge-138/abigail/python/ch-1.py
@@ -19,8 +19,8 @@ FRIDAY    = 5
 SATURDAY  = 6
 
 lookup    = [
-    [261, 261, 260, 260, 261, 261, 261],   # Regular years
-    [262, 262, 261, 260, 261, 262, 262],   # Leap years
+    [261, 260, 260, 261, 261, 261, 261],   # Regular years
+    [262, 261, 260, 261, 262, 262, 262],   # Leap years
 ]
 
 
diff --git a/challenge-138/abigail/r/ch-1.r b/challenge-138/abigail/r/ch-1.r
index 8d20a7a641..a745844003 100644
--- a/challenge-138/abigail/r/ch-1.r
+++ b/challenge-138/abigail/r/ch-1.r
@@ -14,8 +14,13 @@ THURSDAY  <- 4
 FRIDAY    <- 5
 SATURDAY  <- 6
 
-lookup  <- array (c (261, 261, 260, 260, 261, 261, 261,
-                     262, 262, 261, 260, 261, 262, 262), dim = c (2, 7))
+lookup <- array (c (261, 262,
+                    260, 261,
+                    260, 260,
+                    261, 261,
+                    261, 262,
+                    261, 262,
+                    261, 262), dim = c (2, 7))
 
 anchors <- c (TUESDAY, SUNDAY, FRIDAY, WEDNESDAY)
 
diff --git a/challenge-138/abigail/ruby/ch-1.rb b/challenge-138/abigail/ruby/ch-1.rb
index 2489b2c18b..07066ed0b9 100644
--- a/challenge-138/abigail/ruby/ch-1.rb
+++ b/challenge-138/abigail/ruby/ch-1.rb
@@ -9,8 +9,8 @@
 #
 
 lookup = [
-    [261, 261, 260, 260, 261, 261, 261],
-    [262, 262, 261, 260, 261, 262, 262],
+    [261, 260, 260, 261, 261, 261, 261],
+    [262, 261, 260, 261, 262, 262, 262],
 ]
 
 $sunday    = 0
diff --git a/challenge-138/abigail/scheme/ch-1.scm b/challenge-138/abigail/scheme/ch-1.scm
index 682a842a4f..ce31c6699f 100644
--- a/challenge-138/abigail/scheme/ch-1.scm
+++ b/challenge-138/abigail/scheme/ch-1.scm
@@ -6,8 +6,8 @@
 ;;; Run as: guile --no-auto-compile ch-1.scm
 ;;;
 
-(define lookup (list (list 261 261 260 260 261 261 261) 
-                     (list 262 262 261 260 261 262 262)))
+(define lookup (list (list 261 260 260 261 261 261 261) 
+                     (list 262 261 260 261 262 262 262)))
 
 (define SUNDAY    0)
 (define MONDAY    1)
diff --git a/challenge-138/abigail/t/ctest.ini b/challenge-138/abigail/t/ctest.ini
index 9897fb684c..286194d102 100644
--- a/challenge-138/abigail/t/ctest.ini
+++ b/challenge-138/abigail/t/ctest.ini
@@ -5,8 +5,9 @@
 

 [names]

 1-1 = Given Examples

+1-2 = Full Gregorian Cycle

 2-1 = Given Examples

 

 

-[1-1/bc]

+[1-1,1-2,2-1/bc]

 add_to_input = 0

diff --git a/challenge-138/abigail/t/input-1-2 b/challenge-138/abigail/t/input-1-2
new file mode 100644
index 0000000000..74cd19e671
--- /dev/null
+++ b/challenge-138/abigail/t/input-1-2
@@ -0,0 +1,400 @@
+1600
+1601
+1602
+1603
+1604
+1605
+1606
+1607
+1608
+1609
+1610
+1611
+1612
+1613
+1614
+1615
+1616
+1617
+1618
+1619
+1620
+1621
+1622
+1623
+1624
+1625
+1626
+1627
+1628
+1629
+1630
+1631
+1632
+1633
+1634
+1635
+1636
+1637
+1638
+1639
+1640
+1641
+1642
+1643
+1644
+1645
+1646
+1647
+1648
+1649
+1650
+1651
+1652
+1653
+1654
+1655
+1656
+1657
+1658
+1659
+1660
+1661
+1662
+1663
+1664
+1665
+1666
+1667
+1668
+1669
+1670
+1671
+1672
+1673
+1674
+1675
+1676
+1677
+1678
+1679
+1680
+1681
+1682
+1683
+1684
+1685
+1686
+1687
+1688
+1689
+1690
+1691
+1692
+1693
+1694
+1695
+1696
+1697
+1698
+1699
+1700
+1701
+1702
+1703
+1704
+1705
+1706
+1707
+1708
+1709
+1710
+1711
+1712
+1713
+1714
+1715
+1716
+1717
+1718
+1719
+1720
+1721
+1722
+1723
+1724
+1725
+1726
+1727
+1728
+1729
+1730
+1731
+1732
+1733
+1734
+1735
+1736
+1737
+1738
+1739
+1740
+1741
+1742
+1743
+1744
+1745
+1746
+1747
+1748
+1749
+1750
+1751
+1752
+1753
+1754
+1755
+1756
+1757
+1758
+1759
+1760
+1761
+1762
+1763
+1764
+1765
+1766
+1767
+1768
+1769
+1770
+1771
+1772
+1773
+1774
+1775
+1776
+1777
+1778
+1779
+1780
+1781
+1782
+1783
+1784
+1785
+1786
+1787
+1788
+1789
+1790
+1791
+1792
+1793
+1794
+1795
+1796
+1797
+1798
+1799
+1800
+1801
+1802
+1803
+1804
+1805
+1806
+1807
+1808
+1809
+1810
+1811
+1812
+1813
+1814
+1815
+1816
+1817
+1818
+1819
+1820
+1821
+1822
+1823
+1824
+1825
+1826
+1827
+1828
+1829
+1830
+1831
+1832
+1833
+1834
+1835
+1836
+1837
+1838
+1839
+1840
+1841
+1842
+1843
+1844
+1845
+1846
+1847
+1848
+1849
+1850
+1851
+1852
+1853
+1854
+1855
+1856
+1857
+1858
+1859
+1860
+1861
+1862
+1863
+1864
+1865
+1866
+1867
+1868
+1869
+1870
+1871
+1872
+1873
+1874
+1875
+1876
+1877
+1878
+1879
+1880
+1881
+1882
+1883
+1884
+1885
+1886
+1887
+1888
+1889
+1890
+1891
+1892
+1893
+1894
+1895
+1896
+1897
+1898
+1899
+1900
+1901
+1902
+1903
+1904
+1905
+1906
+1907
+1908
+1909
+1910
+1911
+1912
+1913
+1914
+1915
+1916
+1917
+1918
+1919
+1920
+1921
+1922
+1923
+1924
+1925
+1926
+1927
+1928
+1929
+1930
+1931
+1932
+1933
+1934
+1935
+1936
+1937
+1938
+1939
+1940
+1941
+1942
+1943
+1944
+1945
+1946
+1947
+1948
+1949
+1950
+1951
+1952
+1953
+1954
+1955
+1956
+1957
+1958
+1959
+1960
+1961
+1962
+1963
+1964
+1965
+1966
+1967
+1968
+1969
+1970
+1971
+1972
+1973
+1974
+1975
+1976
+1977
+1978
+1979
+1980
+1981
+1982
+1983
+1984
+1985
+1986
+1987
+1988
+1989
+1990
+1991
+1992
+1993
+1994
+1995
+1996
+1997
+1998
+1999
diff --git a/challenge-138/abigail/t/output-1-2.exp b/challenge-138/abigail/t/output-1-2.exp
new file mode 100644
index 0000000000..b0726e7b49
--- /dev/null
+++ b/challenge-138/abigail/t/output-1-2.exp
@@ -0,0 +1,400 @@
+260
+261
+261
+261
+262
+260
+260
+261
+262
+261
+261
+260
+261
+261
+261
+261
+261
+260
+261
+261
+262
+261
+260
+260
+262
+261
+261
+261
+260
+261
+261
+261
+262
+260
+260
+261
+262
+261
+261
+260
+261
+261
+261
+261
+261
+260
+261
+261
+262
+261
+260
+260
+262
+261
+261
+261
+260
+261
+261
+261
+262
+260
+260
+261
+262
+261
+261
+260
+261
+261
+261
+261
+261
+260
+261
+261
+262
+261
+260
+260
+262
+261
+261
+261
+260
+261
+261
+261
+262
+260
+260
+261
+262
+261
+261
+260
+261
+261
+261
+261
+261
+260
+260
+261
+262
+261
+261
+260
+261
+261
+261
+261
+261
+260
+261
+261
+262
+261
+260
+260
+262
+261
+261
+261
+260
+261
+261
+261
+262
+260
+260
+261
+262
+261
+261
+260
+261
+261
+261
+261
+261
+260
+261
+261
+262
+261
+260
+260
+262
+261
+261
+261
+260
+261
+261
+261
+262
+260
+260
+261
+262
+261
+261
+260
+261
+261
+261
+261
+261
+260
+261
+261
+262
+261
+260
+260
+262
+261
+261
+261
+260
+261
+261
+261
+262
+260
+260
+261
+262
+261
+261
+260
+261
+261
+261
+261
+261
+260
+261
+261
+261
+261
+261
+260
+261
+261
+261
+261
+261
+260
+261
+261
+262
+261
+260
+260
+262
+261
+261
+261
+260
+261
+261
+261
+262
+260
+260
+261
+262
+261
+261
+260
+261
+261
+261
+261
+261
+260
+261
+261
+262
+261
+260
+260
+262
+261
+261
+261
+260
+261
+261
+261
+262
+260
+260
+261
+262
+261
+261
+260
+261
+261
+261
+261
+261
+260
+261
+261
+262
+261
+260
+260
+262
+261
+261
+261
+260
+261
+261
+261
+262
+260
+260
+261
+262
+261
+261
+260
+261
+261
+261
+261
+261
+260
+261
+261
+262
+261
+260
+260
+261
+261
+261
+261
+261
+260
+261
+261
+262
+261
+260
+260
+262
+261
+261
+261
+260
+261
+261
+261
+262
+260
+260
+261
+262
+261
+261
+260
+261
+261
+261
+261
+261
+260
+261
+261
+262
+261
+260
+260
+262
+261
+261
+261
+260
+261
+261
+261
+262
+260
+260
+261
+262
+261
+261
+260
+261
+261
+261
+261
+261
+260
+261
+261
+262
+261
+260
+260
+262
+261
+261
+261
+260
+261
+261
+261
+262
+260
+260
+261
+262
+261
+261
+260
+261
+261
+261
+261
+261
+260
+261
+261
+262
+261
+260
+260
+262
+261
+261
+261
diff --git a/challenge-138/abigail/tcl/ch-1.tcl b/challenge-138/abigail/tcl/ch-1.tcl
index 7e613636bd..67e7e73872 100644
--- a/challenge-138/abigail/tcl/ch-1.tcl
+++ b/challenge-138/abigail/tcl/ch-1.tcl
@@ -6,8 +6,8 @@
 # Run as: tclsh ch-1.tcl < input-file
 #
 
-set lookup [list [list 261 261 260 260 261 261 261]   \
-                 [list 262 262 261 260 261 262 262]]
+set lookup [list [list 261 260 260 261 261 261 261]   \
+                 [list 262 261 260 261 262 262 262]]
 
 set SUNDAY    0
 set MONDAY    1