こんな風な関数を定義しておいて、 (use file.util) (use util.match) (use util.list) (use gauche.sequence) (use gauche.collection) (define (sexp-hist sexp-list) (define (hist exp ht) (cond ((null? exp) ht) ((pair? exp) (hist (car exp) ht) (hi…