Anonymous user
Last Friday of each month: Difference between revisions
Added Elixir
No edit summary |
(Added Elixir) |
||
Line 23:
* [[Five weekends]]
* [[Day of the week]]
* [[Find the last
=={{header|Ada}}==
Line 161:
</pre>
--[[User:BugFix|BugFix]] ([[User talk:BugFix|talk]]) 13:27, 15 November 2013 (UTC)
=={{header|AWK}}==
<lang AWK>
Line 308 ⟶ 309:
2012-Dec-28
</pre>
=={{header|Clojure}}==
{{libheader|clj-time}}
Line 438 ⟶ 440:
2012-Nov-30
2012-Dec-28</pre>
=={{header|Elixir}}==
<lang elixir>defmodule RC do
def lastFriday(year) do
Enum.map(1..12, fn month ->
lastday = :calendar.last_day_of_the_month(year, month)
daynum = :calendar.day_of_the_week(year, month, lastday)
friday = lastday - rem(daynum + 2, 7)
{year, month, friday}
end)
end
end
y = String.to_integer(hd(System.argv))
Enum.each(RC.lastFriday(y), fn {year, month, day} ->
:io.format "~4b-~2..0w-~2..0w~n", [year, month, day]
end)</lang>
{{out}}
<pre>
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
</pre>
=={{header|Erlang}}==
Line 494 ⟶ 529:
end program
</lang>
=={{header|FreeBASIC}}==
<lang FreeBasic>' version 23-06-2015
Line 801 ⟶ 837:
2012 Nov 30
2012 Dec 28</pre>
=={{header|jq}}==
Line 1,387 ⟶ 1,422:
2012-12-28
</pre>
=={{header|Perl 6}}==
<lang perl6>sub MAIN (Int $year = Date.today.year) {
| |||