PasteRack.org | ||
Paste # 99049 | ||
2017-06-20 08:27:44 | ||
Forked from paste # 62196. | ||
Fork as a new paste. | ||
Paste viewed 96 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")))))