alternatif bir çözüm dizeleri gelen tamsayılar ayrıştırmak için:
#lang typed/racket
(: numerical-char->integer (-> Char
Integer))
(define (numerical-char->integer char)
(let ([num (- (char->integer char) 48)]) ; 48 = (char->integer #\0)
(if
(or (< num 0) (> num 9))
(raise 'non-numerical-char #t)
num)))
(: string->integer (-> String
Integer))
(define (string->integer str)
(let ([char-list (string->list str)])
(if (null? char-list)
(raise 'empty-string #t)
(foldl
(λ([x : Integer] [y : Integer])
(+ (* y 10) x))
0
(map numerical-char->integer char-list)))))
'(STRING> numarası "365")' –
sayesinde @larsmans :) –
Olası yinelenen [ burada] (http://stackoverflow.com/questions/8956789/read-number-in-or-something-can-turn-string-eg-1-to-integer-1-in-racket/8956947#8956947) – Inaimathi