aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--challenge-138/abigail/awk/ch-1.awk2
-rw-r--r--challenge-138/abigail/bash/ch-1.sh2
-rw-r--r--challenge-138/abigail/bc/ch-1.bc12
-rw-r--r--challenge-138/abigail/blog.txt1
-rw-r--r--challenge-138/abigail/blog1.txt1
-rw-r--r--challenge-138/abigail/c/ch-1.c4
-rw-r--r--challenge-138/abigail/go/ch-1.go4
-rw-r--r--challenge-138/abigail/java/ch-1.java4
-rw-r--r--challenge-138/abigail/lua/ch-1.lua4
-rw-r--r--challenge-138/abigail/node/ch-1.js4
-rw-r--r--challenge-138/abigail/pascal/ch-1.p4
-rw-r--r--challenge-138/abigail/perl/ch-1.pl24
-rw-r--r--challenge-138/abigail/python/ch-1.py4
-rw-r--r--challenge-138/abigail/r/ch-1.r9
-rw-r--r--challenge-138/abigail/ruby/ch-1.rb4
-rw-r--r--challenge-138/abigail/scheme/ch-1.scm4
-rw-r--r--challenge-138/abigail/t/ctest.ini3
-rw-r--r--challenge-138/abigail/t/input-1-2400
-rw-r--r--challenge-138/abigail/t/output-1-2.exp400
-rw-r--r--challenge-138/abigail/tcl/ch-1.tcl4
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
generated by cgit (git 2.34.1) at 2026-05-22 19:16:01 +0000