zillionプロジェクト開発ブログ [Gauche]文字をカウントするプログラム 忍者ブログ

×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。

mainの部分はGaucheクックブックから拝借.
かなり適当.
#!/usr/bin/env gosh
 
(use util.list)
 
(define (count-char ht file)
  (with-input-from-file file
    (lambda ()
      (port-for-each
       (lambda (c)
         (hash-table-update! ht c (cut + 1 <>) 0))
       read-char)
      ))
  ht)
 
(define (main args)
  (for-each
   print   
   (sort (hash-table->alist
          (count-char (make-hash-table) (cadr args)))
         (lambda (x y)
           (> (cdr x) (cdr y)))))
  )
 

拍手[0回]

PR

◎ Post your Comment
Name
Title
E-mail
URL
Comment
Pass   Vodafone絵文字 i-mode絵文字 Ezweb絵文字
◎ カウンター
◎ カレンダー
06 2017/07 08
S M T W T F S
1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 29
30 31
◎ 最新CM
[10/24 名無しの権兵衛]
[08/30 名無しの権兵衛]
[08/14 no name no future]
[08/05 ゲームサークルEaSt]
[07/28 リオウ]
◎ プロフィール
HN:
kyasbal
年齢:
22
性別:
男性
誕生日:
1994/09/22
職業:
人間
趣味:
趣味ねぇ~~う~ん・・・
◎ ブログ内検索
◎ バーコード
◎ アクセス解析
◎ フリーエリア
◎ フリーエリア
Script: Ninja Blog 
Design by: タイムカプセル
忍者ブログ 
[PR]