3 lines
115 B
Common Lisp
3 lines
115 B
Common Lisp
|
(defun add-suffix (n)
|
||
|
|
(format nil "~d'~:[~[th~;st~;nd~;rd~:;th~]~;th~]" n (< (mod (- n 10) 100) 10) (mod n 10)))
|