12 lines
554 B
Scheme
12 lines
554 B
Scheme
;;; 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))
|