8 lines
161 B
Racket
8 lines
161 B
Racket
#lang racket
|
|
(require math)
|
|
|
|
(define (letter-frequencies ip)
|
|
(count-samples
|
|
(port->list read-char ip)))
|
|
|
|
(letter-frequencies (open-input-string "abaabdc"))
|