Problem:
Problem A: Era Name

As many of you know, we have two major calendar systems used in Japan today. One of them
is Gregorian calendar which is widely used across the world. It is also known as “Western
calendar” in Japan.

The other calendar system is era-based calendar, or so-called “Japanese calendar.” This system
comes from ancient Chinese systems. Recently in Japan it has been a common way to associate
dates with the Emperors. In the era-based system, we represent a year with an era name given
at the time a new Emperor assumes the throne. If the era name is “A”, the first regnal year
will be “A 1”, the second year will be “A 2”, and so forth.

Since we have two different calendar systems, it is often needed to convert the date in one
calendar system to the other. In this problem, you are asked to write a program that converts
western year to era-based year, given a database that contains association between several
western years and era-based years.

For the simplicity, you can assume the following:

A new era always begins on January 1st of the corresponding Gregorian year.

The first year of an era is described as 1.

There is no year in which more than one era switch takes place.

Please note that, however, the database you will see may be incomplete. In other words, some
era that existed in the history may be missing from your data. So you will also have to detect
the cases where you cannot determine exactly which era the given year belongs to.

Input

The input contains multiple test cases. Each test case has the following format:

N Q

EraName1 EraBasedYear1 WesternYear1

.

.

.

EraNameN EraBasedYearN WesternYearN

Query1
.

.

.

QueryQ

The first line of the input contains two positive integers N and Q (1 ≤ N ≤ 1000, 1 ≤ Q ≤ 1000).
N is the number of database entries, and Q is the number of queries.

Each of the following N lines has three components: era name, era-based year number and the
corresponding western year (1 ≤ EraBasedYeari ≤ WesternYeari ≤ 109 ). Each of era names
consist of at most 16 Roman alphabet characters. Then the last Q lines of the input specifies
queries (1 ≤ Queryi ≤ 109 ), each of which is a western year to compute era-based representation.

The end of input is indicated by a line containing two zeros. This line is not part of any dataset
and hence should not be processed.

You can assume that all the western year in the input is positive integers, and that there is no
two entries that share the same era name.

Output

For each query, output in a line the era name and the era-based year number corresponding to
the western year given, separated with a single whitespace. In case you cannot determine the
era, output “Unknown” without quotes.

Sample Input

4 3
meiji 10 1877
taisho 6 1917
showa 62 1987
heisei 22 2010
1868
1917
1988
1 1
universalcentury 123 2168
2010
0 0

Output for the Sample Input

meiji 1
taisho 6
Unknown
Unknown

Solution in Haskell (judge verdict: Time Limit Exceeded)

import Control.Arrow
import Data.List

main :: IO ()
main = interact $ unlines . map (show' . uncurry era_name) . read' . lines
 where
  read' ("0 0":_) = []
  read' (nq:xs) = (db, map read qs') : read' xs'
   where
    [n,q] = map read (words nq)
    ((db',qs'),xs') = first (splitAt n) (splitAt (n+q) xs)
    db = map ((\[e,ey,wy] -> ((e, read ey), read wy)) . words) db'
  show' = init . unlines . map (maybe "Unknown" (\(e,ey) -> e ++ " " ++ show ey))

era_name :: [((String,Int),Int)] -> [Int] -> [Maybe (String,Int)]
era_name db qs = map (query (map period db)) qs

period :: ((String,Int),Int) -> (String, (Int,Int))
period ((e,ey),wy) = (e, (wy-ey+1,wy))

query :: [(String, (Int,Int))] -> Int -> Maybe (String,Int)
query db q = do
 (e,(wy1,wy2)) <- find (\(_,(wy1,wy2)) -> elem q [wy1..wy2]) db
 return (e, q-wy1+1)