Last Friday of each month: Difference between revisions

m
(Racket version)
Line 878:
(define lengths #(0 31 #f 31 30 31 30 31 31 30 31 30 31))
(define d (vector-ref lengths m))
(if dor d (days-in-feb y)))
 
(define (leap-year? y)
Line 929:
Fri 28 Dec 2012
</lang>
 
 
=={{header|REXX}}==
Anonymous user