root/lang/scheme/gauche/bindings/cabocha/trunk/sentences.scm
@
124
Revision 124, 276 bytes (checked in by naoya_t, 15 years ago) |
---|
Rev | Line | |
---|---|---|
[124] | 1 | (define (split-by-maru text) |
2 | (reverse! (cdr (reverse! (string-split text #\。))))) | |
3 | ||
4 | (define sentences (append-map split-by-maru (list | |
5 | "ここに何か適当な文章を入れてください。" | |
6 | "そうすると良いことがあなたにあるかもしれません。" | |
7 | ))) |
Note: See TracBrowser
for help on using the browser.