N'th: Difference between revisions
Content deleted Content added
Line 509:
(defun add-suffix (n)
"A more
(format nil "~d'~:[~[th~;st~;nd~;rd~:;th~]~;th~]" n (< (mod (- n 10) 100) 10) (mod n 10)))
| |||
Line 509:
(defun add-suffix (n)
"A more
(format nil "~d'~:[~[th~;st~;nd~;rd~:;th~]~;th~]" n (< (mod (- n 10) 100) 10) (mod n 10)))
| |||