suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Write "twelfth" instead of "twelveth" in format

Browse Source 
original commit: 19f41527b0ee4c70415999d2cb8b8a2b845f0066
This commit is contained in:
Graham Watt 2016-12-22 16:39:00 -05:00
parent 659a557a01
commit bcb40c394b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
s/format.ss
View File

@ -1011,7 +1011,7 @@
(define v20 '#(#f #f twenty thirty forty fifty sixty seventy eighty ninety))
(define v0 '#(zero one two three four five six seven eight nine ten eleven twelve thirteen fourteen fifteen sixteen seventeen eighteen nineteen))
(define *v20 '#(#f #f twentieth thirtieth fortieth fiftieth sixtieth seventieth eightieth ninetieth))
(define *v0 '#(zeroth first second third fourth fifth sixth seventh eighth ninth tenth eleventh twelveth thirteenth fourteenth fifteenth sixteenth seventeenth eighteenth nineteenth))
(define *v0 '#(zeroth first second third fourth fifth sixth seventh eighth ninth tenth eleventh twelfth thirteenth fourteenth fifteenth sixteenth seventeenth eighteenth nineteenth))
(define (write-ordinal x op)
(if (<= -999999999 x +999999999)
(if (< x 0)