Merge pull request #1 from gknauth/develop

Develop

Author: gknauth

LICENSE.txt

@@ -2,10 +2,11 @@ format-ymd
 Copyright (c) 2017 gknauth (Geoffrey S. Knauth)
 
 This package is distributed under the GNU Lesser General Public
-License (LGPL).  This means that you can link format-ymd into proprietary
-applications, provided you follow the rules stated in the LGPL.  You
-can also modify this package; if you distribute a modified version,
-you must distribute it under the terms of the LGPL, which in
+License (LGPL).  This means that you can link format-numbers into
+proprietary applications, provided you follow the rules stated in the
+LGPL.  You can also modify this package; if you distribute a modified
+version, you must distribute it under the terms of the LGPL, which in
 particular means that you must release the source code for the
-modified software.  See http://www.gnu.org/copyleft/lesser.html
-for more information.  For other licenses and consulting, please contact the author.
+modified software.  See https://www.gnu.org/licenses/lgpl-3.0.txt for
+more information.  For other licenses and consulting, please contact
+the author.

main.rkt

@@ -139,11 +139,24 @@
 (define (ymd8-d1-within-days-following-d0? d0 num-days d1)
   (<= (ymd8-days-since d0 d1) num-days))
 
+(define (every-ymd8-from-through start end)
+  (define (helper acc a b)
+    (cond [(= a b) (cons a acc)]
+          [else (helper (cons a acc) (ymd8-plusdays->ymd8 a 1) b)]))
+  (cond [(>= end start) (reverse (helper null start end))]
+        [else null]))
+
 (module+ test
   ;; Tests to be run with raco test
   (require rackunit)
   (check-equal? (ymd8->ymd10 20170922) "2017-09-22")
   (check-equal? (ymd8-plusdays->ymd8 20180401 60) 20180531)
+  (check-equal? (every-ymd8-from-through 20191127 20191204)
+                (list 20191127 20191128 20191129 20191130
+                      20191201 20191202 20191203 20191204))
+  (check-equal? (every-ymd8-from-through 20191127 20191127)
+                (list 20191127))
+  (check-equal? (every-ymd8-from-through 20191127 20191120) null)
   )
 
 (module+ main