lispmeetup9.rkt

#lang racket
(require srfi/26)

(define *test-data* (port->string (current-input-port)))

(define lis (string-split *test-data*))
(define lis-l (map string-downcase lis))

(let ((table (make-hash)))
  (for-each
    (lambda (elt)
      (hash-set! table elt (+ (hash-ref table elt 0) 1)))
    lis-l)
  (hash-for-each table
     (cut printf "~S, ~S~%" <> <>)))