2010-01-05から1日間の記事一覧
文字の出現頻度を調べる それっぽい手続きはなさそうなので,自力で数えることにする. (use gauche.collection) (define (match-count re str) (define (grp-to-assoc grp) (if (null? grp) '() (cons (cons (caar grp) (length (car grp))) (grp-to-assoc …
文字の出現頻度を調べる それっぽい手続きはなさそうなので,自力で数えることにする. (use gauche.collection) (define (match-count re str) (define (grp-to-assoc grp) (if (null? grp) '() (cons (cons (caar grp) (length (car grp))) (grp-to-assoc …