All pastes #931210 Raw Edit

Stuff

public text v1 · immutable
·published 2008-03-07 00:53 UTC
rendered paste body
(defun atoi (input)
  (defun atoi-helper (input base)
   ((if (empty? input) 0
        (add (* base (last input))
             (atoi (input minus the last char) (* base 10)))))
  (atoi-helper input 10))