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

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))))