gistfile1.scm

#!/usr/bin/env gosh

(use gauche.generator)
(use rfc.md5)

(define (main argv)
  (let ([lis (make-hash-table 'string=?)])
    (dolist [file (filter file-is-regular? (glob "md5/*.md5"))]
      (do-generator [line (file->line-generator file)]
        (rxmatch-case line
          [#/^([^ ]+) (.*)$/ (#f md5)
           (hash-table-push! lis md5 file)])))
    (dolist [file (filter file-is-regular? (glob "files/**/*"))]
      (let* ([md5 (digest-hexify (with-input-from-file file md5-digest))]
             [lis (ref lis md5 '("                                  "))])
        (print #`",(last (sort lis)) ,file (,(length lis))")))))