diff options
Diffstat (limited to '')
-rw-r--r-- | module/text/numbers/en.scm | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/module/text/numbers/en.scm b/module/text/numbers/en.scm new file mode 100644 index 00000000..4f33f87e --- /dev/null +++ b/module/text/numbers/en.scm @@ -0,0 +1,15 @@ +(define-module (text numbers en) + :use-module (ice-9 format)) + +(define-public (number->string-cardinal n) + (format #f "~r" n)) + +(define-public (number->string-ordinal n) + (format #f "~:r" n)) + +;; Allows extra args to handle eventual local changes. +(define-public (each-string count . _) + (cond count + [(1) "each"] + [(2) "every other"] + [else (format #f "every ~:r" n)])) |