1#lang racket/base
2
3;; Simple string->number conversion, since the geenral one is
4;; implemented at the expander level
5
6(provide string->integer)
7
8(define (string->integer s)
9 (for/fold ([v 0]) ([c (in-string s)])
10 (+ (* v 10) (- (char->integer c) (char->integer #\0)))))
11