PasteRack.org
Paste # 99049
2017-06-20 08:27:44

Forked from paste # 62196.

Fork as a new paste.

Paste viewed 96 times.


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")))))