Day of the week: Difference between revisions

Day of the week (view source)

396 bytes added , 10 years ago

m

→‎{{header|GAP}}: xmas function is better replaced with "Filtered" + WeekDay implementation

Anonymous user

Revision as of 05:46, 6 May 2013 (view source) rosettacode>Bengt (→‎{{header\|Erlang}}) ← Older edit		Revision as of 21:13, 17 June 2013 (view source) rosettacode>Arbautjc m (→‎{{header\|GAP}}: xmas function is better replaced with "Filtered" + WeekDay implementation) Newer edit →
Line 727: =={{header\|GAP}}== <lang gap>~~xmas~~Filtered([2008 :=.. ~~function~~2121], y -> WeekDay(a[25, b12, y]) = "Sun"); # [ 2011, 2016, 2022, 2033, 2039, 2044, 2050, 2061, 2067, 2072, 2078, 2089, 2095, 2101, 2107, 2112, 2118 ] ~~local y, v;~~ v := [ ];▼ # A possible implementation of WeekDayAlt ~~for y in [a .. b] do~~ ~~if WeekDay([25, 12, y]) = "Sun" then~~ WeekDayAlt := function(args) Add(v, y);▼ local fid, m, y, k; ▲ v d := args[ 1]; od;▼ m := args[2]; return v;▼ y := args[3]; if m < 3 then m := m + 12; ▲ ~~Add(v,~~y := y) - 1; ▲ od fi; k := 1 + RemInt(d + QuoInt((m + 1)26, 10) + y + QuoInt(y, 4) + 6QuoInt(y, 100) + QuoInt(y, 400) + 5, 7); ▲ return vdays[k]; end; ~~xmas~~Filtered([2008, .. 2121);], y -> WeekDayAlt([25, 12, y]) = "Sun"); # [ 2011, 2016, 2022, 2033, 2039, 2044, 2050, 2061, 2067, 2072, 2078, 2089, 2095, 2101, 2107, 2112, 2118 ]</lang>