blob: 82e29c87e4dd079e5c3422fdae807c78ee6c1068 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
(define-module (text numbers en)
:use-module (ice-9 format)
:use-module (srfi srfi-71)
:export (number->string-cardinal
number->string-ordinal
each-string))
(define (number->string-cardinal n . _)
(format #f "~r" n))
(define (number->string-ordinal n . _)
(format #f "~:r" n))
;; Allows extra args to handle eventual local changes.
(define (each-string count . _)
(case count
[(1) "each"]
[(2) "every other"]
[else (format #f "every ~:r" count)]))
|