brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Implement ISO date to month conversion.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-03 20:54:10 +02:00
parent 0586bb4cfc
commit c175dc2ae4
1 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/month.scm
View file

@ -153,6 +153,14 @@
(list (quotient mi 12) (list (quotient mi 12)
(+ (remainder mi 12) 1)))) (+ (remainder mi 12) 1))))
;; Converts ISO date to single month
(define (iso-date->month str)
(let* ((lst (string-split str "-"))
(year (car lst))
(mon (cadr lst)))
(make-month (string->number year)
(string->number mon))))
;; Performs self-tests of the month module. ;; Performs self-tests of the month module.
(define (month-tests!) (define (month-tests!)
(run-tests (run-tests
@ -177,6 +185,7 @@
(test-eq? month-diff (month-diff '(2023 1) '(2023 12)) 11) (test-eq? month-diff (month-diff '(2023 1) '(2023 12)) 11)
(test-eq? month-diff (month-diff '(2023 1) '(2022 2)) -11) (test-eq? month-diff (month-diff '(2023 1) '(2022 2)) -11)
(test-eq? month-add (month-add '(2023 1) 2) '(2023 3)) (test-eq? month-add (month-add '(2023 1) 2) '(2023 3))
(test-equal? iso-date->month (iso-date->month "2023-04-03") '(2023 4))
)) ))
) )