15 lines
577 B
Scheme
15 lines
577 B
Scheme
(begin
|
|
;;; number->string ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
(assert-equal "123" (number->string 123))
|
|
;(assert-equal "-123" (number->string -123))
|
|
(assert-equal "1e240" (number->string 123456 16))
|
|
|
|
;;; string->symbol ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;(assert-equal '|| (string->symbol ""))
|
|
;(assert-equal '| | (string->symbol " "))
|
|
(assert-equal 'foo (string->symbol "foo"))
|
|
|
|
;;; symbol->string ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
(assert-equal "foo" (symbol->string 'foo))
|
|
)
|