Project Euler : Problem 019

Project Euler problems in Oforth . Feel free to post your own code.

Project Euler : Problem 019

Postby Franck » 02 Aug 2015 23:09

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)?

Code: Select all
import: date

: pe019
{
| y m |
   0
   1901 2000 for: y [
      Date.JANUARY Date.DECEMBER for: m [
         [ y, m, 01 ] asDate dayOfWeek Date.SUNDAY == +
         ]
      ]
}
Franck
 
Posts: 144
Joined: 29 Oct 2014 19:01

Return to Project Euler in Oforth

Who is online

Users browsing this forum: No registered users and 1 guest