root/lang/scheme/gauche/bindings/cabocha/trunk/sentences.scm
@
130
| Revision 124, 276 bytes (checked in by naoya_t, 15 years ago) |
|---|
| Line | |
|---|---|
| 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.
