Anonymous user
Last Friday of each month: Difference between revisions
→Tcl: Added implementation
m (See alse -> Cf. as sub-heading) |
(→Tcl: Added implementation) |
||
Line 166:
return 0;
}</lang>
=={{header|Tcl}}==
<lang tcl>package require Tcl 8.5
set year [lindex $argv 0]
foreach dm {02/1 03/1 04/1 05/1 06/1 07/1 08/1 09/1 10/1 11/1 12/1 12/32} {
# The [clock scan] code is unhealthily clever; use it for our own evil purposes
set t [clock scan "last friday" -base [clock scan $dm/$year -gmt 1] -gmt 1]
# Print the interesting part
puts [clock format $t -format "%Y-%m-%d" -gmt 1]
}</lang>
Sample execution:
<pre>
$ tclsh8.5 lastfri.tcl 2012
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>
| |||