Last Friday of each month: Difference between revisions
Content added Content deleted
(Added Algol W) |
(Added Wren) |
||
Line 4,122: | Line 4,122: | ||
ENDDEFINE |
ENDDEFINE |
||
</lang> |
</lang> |
||
=={{header|Wren}}== |
|||
{{libheader|Wren-date}} |
|||
<lang ecmascript>import "os" for Process |
|||
import "/date3" for Date |
|||
var args = Process.arguments |
|||
if (args.count != 1) { |
|||
Fiber.abort("Please pass just the year to be processed.") |
|||
} |
|||
var year = Num.fromString(args[0]) |
|||
System.print("The dates of the last Fridays in the month for %(year) are:") |
|||
Date.default = Date.isoDate |
|||
for (m in 1..12) { |
|||
var d = Date.monthLength(year, m) |
|||
var dt = Date.new(year, m, d) |
|||
var wd = dt.dayOfWeek |
|||
if (wd == 5) { |
|||
System.print(dt) |
|||
} else if (wd > 5) { |
|||
System.print(dt.addDays(-wd + 5)) |
|||
} else { |
|||
System.print(dt.addDays(-wd - 2)) |
|||
} |
|||
}</lang> |
|||
{{out}} |
|||
<pre> |
|||
$ wren last_friday.wren 2012 |
|||
The dates of the last Fridays in the month for 2012 are: |
|||
2012-01-27 |
|||
2012-02-24 |
|||
2012-03-30 |
|||
2012-04-27 |
|||
2012-05-25 |
|||
2012-06-29 |
|||
2012-07-27 |
|||
2012-08-31 |
|||
2012-09-28 |
|||
2012-10-26 |
|||
2012-11-30 |
|||
2012-12-28 |
|||
$ wren last_friday.wren 2020 |
|||
The dates of the last Fridays in the month for 2020 are: |
|||
2020-01-31 |
|||
2020-02-28 |
|||
2020-03-27 |
|||
2020-04-24 |
|||
2020-05-29 |
|||
2020-06-26 |
|||
2020-07-31 |
|||
2020-08-28 |
|||
2020-09-25 |
|||
2020-10-30 |
|||
2020-11-27 |
|||
2020-12-25 |
|||
</pre> |
|||
=={{header|XPL0}}== |
=={{header|XPL0}}== |