andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add string->number. 

* module/mes/scm.mes (string->number): New function.
This commit is contained in:
Jan Nieuwenhuizen 2016-12-20 19:01:00 +01:00
parent 489d7c7f51
commit d08a28cfc1
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
module/mes/scm.mes
View File

@ -91,6 +91,15 @@
(if (= i n) '()
(cons (string-ref s i) (loop (+ i 1)))))))
(define (string->number s . radix)
(if (and (pair? radix) (not (= (car radix) 10))) '*STRING->NUMBER:RADIX-NOT-SUPPORTED
(let* ((lst (string->list s))
(sign (if (char=? (car lst) #\-) -1 1))
(lst (if (= sign -1) (cdr lst) lst)))
(let loop ((lst lst) (n 0))
(if (null? lst) (* sign n)
(loop (cdr lst) (+ (* n 10) (- (char->integer (car lst)) (char->integer #\0)))))))))
(define (vector . rest) (list->vector rest))
(define c:make-vector make-vector)
(define (make-vector n . x)