| PasteRack.org | ||
| Paste # 99049 | ||
| 2017-06-20 08:27:44 | ||
Forked from paste # 62196. | ||
Fork as a new paste. | ||
Paste viewed 101 times. | ||
Tweet | ||
Embed: | ||
#lang racket
(define (build-phonebook)
(for/hasheq ([i (in-range (read))])
(values (read) (read))))
(let ([phonebook (build-phonebook)])
(for ([query (in-port)])
(displayln
(let ([maybe-phone (hash-ref phonebook query #f)])
(if maybe-phone
(format "~a=~a" query maybe-phone)
"Not found")))))