suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed typo -- using str instead of result

Browse Source 
svn: r14545
This commit is contained in:
Eli Barzilay 2009-04-17 17:34:47 +00:00
parent 39ba607413
commit 7838fec40e
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/scribblings/guide/contracts-simple-function.scrbl
View File

@ -219,7 +219,7 @@ scheme
(define (has-decimal? str) (define (has-decimal? str)
(define L (string-length str)) (define L (string-length str))
(and (>= L 3) (and (>= L 3)
(char=? #\. (string-ref result (- L 3))))) (char=? #\. (string-ref str (- L 3)))))
(provide/contract (provide/contract
(code:comment "convert a random number to a string") (code:comment "convert a random number to a string")
@ -253,15 +253,15 @@ scheme
(define (has-decimal? str) (define (has-decimal? str)
(define L (string-length str)) (define L (string-length str))
(and (>= L 3) (and (>= L 3)
(char=? #\. (string-ref result (- L 3))))) (char=? #\. (string-ref str (- L 3)))))
(define (is-decimal-string? str) (define (is-decimal-string? str)
(define L (string-length str)) (define L (string-length str))
(and (has-decimal? str) (and (has-decimal? str)
(andmap digit-char? (andmap digit-char?
(string->list (substring result 0 (- L 3)))) (string->list (substring str 0 (- L 3))))
(andmap digit-char? (andmap digit-char?
(string->list (substring result (- L 2) L))))) (string->list (substring str (- L 2) L)))))
(provide/contract (provide/contract
... ...