Yan Cui
I help clients go faster for less using serverless technologies.
Problem
You are given the following information, but you may prefer to do some research for yourself.
- 1 Jan 1900 was a Monday.
- Thirty days has September, April, June and November. All the rest have thirty-one, saving February alone, which has twenty-eight, rain or shine. And on leap years, twenty-nine.
- A leap year occurs on any year evenly divisible by 4, but not on a century unless it is divisible by 400.
How many Sundays fell on the first of the month during the twentieth century (1 Jan 1901 to 31 Dec 2000)?
Solution
open System
let ans =
[1901..2000]
|> List.collect (fun y -> [1..12] |> List.map (fun m -> new DateTime(y, m, 1)))
|> List.filter (fun d -> d.DayOfWeek = DayOfWeek.Sunday)
|> List.length
The solution here is simple, for the int list [1901..2000] generates the Cartesian product with the int list [1..12] to get a DateTime object representing the first day in each month from 1901 to 2000, e.g.
From this point, all that’s left is to filter the list of DateTime values to find the ones which represent a Sunday and count them.
Whenever you’re ready, here are 4 ways I can help you:
- If you want a one-stop shop to help you quickly level up your serverless skills, you should check out my Production-Ready Serverless workshop. Over 20 AWS Heroes & Community Builders have passed through this workshop, plus 1000+ students from the likes of AWS, LEGO, Booking, HBO and Siemens.
- If you want to learn how to test serverless applications without all the pain and hassle, you should check out my latest course, Testing Serverless Architectures.
- If you’re a manager or founder and want to help your team move faster and build better software, then check out my consulting services.
- If you just want to hang out, talk serverless, or ask for help, then you should join my FREE Community.
open System
let p19 = [for y in 1901..2000 do
for m in 1..12 do yield new DateTime(y,m,1)]
|> List.filter (fun d -> d.DayOfWeek = DayOfWeek.Sunday)
|> List.length