Hatena::ブログ(Diary)

みずぴー日記

2009-03-09(月)

文字数カウント用のスクリプト

| 文字数カウント用のスクリプト - みずぴー日記 を含むブックマーク

id:GemmaさんがTwitterにこんな発言をしてた。

エントリシートの文字数チェックにもGauche使ってる。(string-length (file->string "./hoge"))8:30 PM

http://twitter.com/Gemmat/status/1295313793

ためしに使ってみたら予想以上に便利だったので、さくっとスクリプト化してみた。日本語に対応しているのがすばらしい。

;; Usage:
;;  $ gosh count.scm answer.txt
;;  42

(use file.util)
(define (main args)
  (for-each print
	    (map
	     (lambda (x)
	       (string-length (file->string x)))
	     (cdr args))))