RosettaCodeData/Task/Increment-a-numerical-string/XLISP/increment-a-numerical-strin...

3 lines
75 B
Plaintext

(DEFUN INCREMENT-STRING (X)
(NUMBER->STRING (+ (STRING->NUMBER X) 1)))