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