9 lines
161 B
Racket
9 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"))
|