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

mirror of https://github.com/acmeism/RosettaCodeData.git
(DEFUN INCREMENT-STRING (X)
    (NUMBER->STRING (+ (STRING->NUMBER X) 1)))
	`(DEFUN INCREMENT-STRING (X)`
	`(NUMBER->STRING (+ (STRING->NUMBER X) 1)))`