Rosetta Code

Doomsday rule: Difference between revisions

Page Discussion

Doomsday rule (view source)

Revision as of 13:23, 5 October 2021

49 bytes removed ,  2 years ago
m
→‎{{header|Haskell}}: HLint, Ormolu
(Added 11l)
m (→‎{{header|Haskell}}: HLint, Ormolu)
Line 556:
 
instance Show Date where
show (Date {year = y, month = m, day = d}) = printf "%2d/%2d/%4d" m d y
printf "%2d/%d/%4d" m d y
 
leap :: Int -> Bool
leap year =
leap year = year`mod`4==0 && (year`mod`100/=0 || year`mod`400==0)▼
year `mod` 4 == 0
▲leap year = year`mod`4==0 && (year `mod` 100 /= 0 || year `mod` 400 == 0)
 
weekday :: Date -> Int
weekday (Date {year = y, month = m, day = d}) = (doom + d - anchor + 7) `mod` 7
wherelet doom = (s + t + (t `div` 4) + c_anchor) `mod` 7
anchor = dooms !! pred m
c_anchor = (5 * mod c 4 + 2) `mod` 7
dooms =
dooms = (if leap y then [4,1] else [3,7]) ++ [7,4,2,6,4,1,5,3,7,5]
(c,if r)leap y then =[4, y1] `divMod`else 100[3, 7])
(s<> [7, t)4, 2, 6, =4, r1, `divMod`5, 3, 7, 125]
(c, r) = y `divMod` 100
(s, t) = r `divMod` 12
in (doom + d - anchor + 7) `mod` 7
 
days :: [String]
days = words "Sunday Monday Tuesday Wednesday Thursday Friday Saturday"
 
dates :: [Date]
dates =
dates = [ Date { year = 1800, month = 1, day = 6},▼
[ Date { year = 18751800, month = 31, day = 296},
Date { year = 19151875, month = 123, day = 729},
Date { year = 19701915, month = 12, day = 237},
Date { year = 20431970, month = 512, day = 1423},
Date { year = 20772043, month = 25, day = 1214},
Date { year = 21012077, month = 42, day = 212} ],
▲dates = [ Date { year = 18002101, month = 14, day = 62},
]
 
dateAndDay :: Date -> String
Line 586 ⟶ 594:
 
main :: IO ()
main = putStr $ unlines $ map dateAndDay dates </lang>
{{out}}
<pre> 1/ 6/1800: Monday
3/29/1875: Monday
12/ 7/1915: Tuesday
12/23/1970: Wednesday
5/14/2043: Thursday
2/12/2077: Friday
4/ 2/2101: Saturday</pre>
 
=={{header|Java}}==
Hout
9,655

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/312623"