project-euler: Rewrap, update links, add copyrights, tests

[factor.git] / extra / project-euler / 019 / 019.factor

diff --git a/extra/project-euler/019/019.factor b/extra/project-euler/019/019.factor
index 3d95d50e625d0d178f3f862571793aabf7f7bf04..e38b14370be85bfb9941e61965d8a6bdbfe2bf58 100644 (file)
--- a/extra/project-euler/019/019.factor
+++ b/extra/project-euler/019/019.factor
@@ -4,31 +4,32 @@ USING: calendar kernel math.order project-euler.common ranges
 sequences ;
 IN: project-euler.019
 
-! https://projecteuler.net/index.php?section=problems&id=19
+! https://projecteuler.net/problem=19
 
 ! DESCRIPTION
 ! -----------
 
-! You are given the following information, but you may prefer to do some
-! research for yourself.
+! 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.
+!     * 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)?
+! How many Sundays fell on the first of the month during the
+! twentieth century (1 Jan 1901 to 31 Dec 2000)?
 
 
 ! SOLUTION
 ! --------
 
-! Use Zeller congruence, which is implemented in the "calendar" module
-! already, as "(day-of-week) ( year month day -- n )" where n is
-! the day of the week (Sunday is 0).
+! Use Zeller congruence, which is implemented in the "calendar"
+! module already, as "(day-of-week) ( year month day -- n )"
+! where n is the day of the week (Sunday is 0).
 
 : euler019 ( -- answer )
     1901 2000 [a..b] [