Five weekends: Difference between revisions

Content added Content deleted

Inline

@@ Line 5,322: / Line 5,322: @@
       else drop ]
   temp take swap
+  say "There are "
+  dup size echo
+  say " months with five weekends."
+  cr cr
 split swap
   say "Five weekends: "
@@ Line 5,347: / Line 5,351: @@
 {{out}}
+<pre>There are 201 months with five weekends.
-<pre>Five weekends: March 1901, August 1902, May 1903, January 1904, July 1904
+Five weekends: March 1901, August 1902, May 1903, January 1904, July 1904
                ...
                March 2097, August 2098, May 2099, January 2100, October 2100