new file: scripts/Rosettacode/Last_Sunday_of_each_month.sf

trizen · Sep 10, 2015 · ce4fac6 · ce4fac6
1 parent 6a39c5b
commit ce4fac6
Show file tree

Hide file tree

Showing 2 changed files with 23 additions and 0 deletions.
diff --git a/MANIFEST b/MANIFEST
@@ -612,6 +612,7 @@ scripts/Rosettacode/Knapsack_problem_Continuous.sf
 scripts/Rosettacode/Knuth_shuffle.sf
 scripts/Rosettacode/Langton's_ant.sf
 scripts/Rosettacode/Largest_int_from_concatenated_ints.sf
+scripts/Rosettacode/Last_Sunday_of_each_month.sf
 scripts/Rosettacode/Leap_year.sf
 scripts/Rosettacode/Leap_year_1.sf
 scripts/Rosettacode/Letter_frequency.sf

diff --git a/scripts/Rosettacode/Last_Sunday_of_each_month.sf b/scripts/Rosettacode/Last_Sunday_of_each_month.sf
@@ -0,0 +1,22 @@
+#!/usr/bin/ruby
+
+#
+## http://rosettacode.org/wiki/Find_the_last_Sunday_of_each_month
+#
+
+require 'DateTime';
+
+var (year=2015) = ARGV»to_i»()...;
+
+range(1, 12).each { |i|
+    var date = %s'DateTime'.last_day_of_month(
+        year  => year,
+        month => i
+    );
+
+    while (date.dow != 7) {
+        [date.subtract(days => 1)] » \date;
+    };
+
+    say date.ymd;
+}