Skip to content

Instantly share code, notes, and snippets.

@mnogu

mnogu/ja.scm

Created September 9, 2011 13:01
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save mnogu/1206139 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save mnogu/1206139 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
ja.scm
(define ja-string->string-list (lambda (str)
(with-char-codec "EUC-JP"
(lambda ()
(map
(lambda (char)
(list->string
(list char)))
(string->list str))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment