- Lisp Scheme Part38
874 :デフォルトの名無しさん[sage]:2014/07/08(火) 21:17:13.05 ID:EztOR/qg - (define (string->symbols x)
(map string->symbol (map (lambda (x) (list->string (list x))) (string->list x)))) (define (char->symbol x) (string->symbol (list->string (list x))))
|
|