Algorithms_test_task.lisp

#!/usr/bin/env sbcl --script

(defun atoi_itoa (input_str)
  		(write-to-string (parse-integer input_str :radix 10) :base 10)
)	


(defvar erroneous_data "-$%A123")

(print 
	(handler-case 
		(progn 
			
			(print (atoi_itoa "-123"))
			(print (atoi_itoa "123"))
			(print (atoi_itoa "0"))

			(print "Test function on erroneous input and handle exception")
			(print (atoi_itoa erroneous_data))
		) (error () 
			(format nil "Cannot process provided input: ~A" erroneous_data))
	)
)