Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
17 lines (14 sloc) 512 Bytes
(import (rnrs)
(mosh)
(binding mecab-ffi))
(let ([m (mecab-new2 "")] [src (string->utf8z "ぼく、ひげぽん。")])
(let loop ((n (mecab-sparse-tonode m src)))
(unless (mecab-node-eos? n)
(when (mecab-node-normal? n)
(format #t "~d ~a pos:~d chartype:~d\n"
(mecab-node-surface n)
(mecab-node-feature n)
(mecab-node-posid n)
(mecab-node-char-type n)))
(loop (mecab-node-next n))))
(mecab-destroy m))
Jump to Line
Something went wrong with that request. Please try again.