Problem:
何色？

ウェブデザイナーを目指す太郎君はただいま修行中。事務所の先輩から「このページの背景色は#ffe085で」と、ウェブデザイン特有の色番号で指示されるのですが、それがどんな色かパッと思い浮かべることができません。

この色番号は光の三原色である赤、緑、青それぞれの強さを表わしています。具体的には2 桁の 16 進数を3 つ組み合わせたもので、色番号を“#RGB”とするとき、R は赤の強さ、G は緑の強さ、は青の強さを表します。それぞれ 00 から ff までの値になります。

色番号にまだ不慣れな太郎君のために、色番号を入力とし、色の表の中からもっとも近い色の名前
を出力するプログラムを作成してください。使用する色の表は以下の通りです。

 

色の名前

赤の強さ

緑の強さ

青の強さ

black

00

00

00

blue

00

00

ff

lime

00

ff

00

aqua

00

ff

ff

red

ff

00

00

fuchsia

ff

00

ff

yellow

ff

ff

00

white

ff

ff

ff

「もっとも近い色」とは、以下のように定義します。与えられた色番号での赤、緑、青の強さをそれぞれ R、G、B とし、表の k 番目の色の赤、緑、青の強さをそれぞれ Rk、Gk、Bk とするとき、次の式で計算する dk の値が最も小さい色がもっとも近い色とします。

なお、dk の値が同じになる色が複数存在する場合は表の中でより上にある色がもっとも近い色になり
ます。

Input

複数のデータセットの並びが入力として与えられます。入力の終わりはゼロひとつの行で示されます。各データセットとして、色番号を表す文字列が、#RGB 形式で１行に与えられます。

データセットの数は 1000 を超えません。

Output

データセット毎に最も近い色の名前を１行に出力します。

Sample Input

#ffe085
#787878
#decade
#ff55ff
0

Output for the Sample Input

white
black
white
fuchsia

Solution in Haskell (judge verdict: Accepted)

import Data.List

tab = [("black",    0,  0,  0),
       ("blue",     0,  0,255),
       ("lime",     0,255,  0),
       ("aqua",     0,255,255),
       ("red",    255,  0,  0),
       ("fuchsia",255,  0,255),
       ("yellow", 255,255,  0),
       ("white",  255,255,255)]

h2d x = read ("0x"++x) :: Int

ans x =
  let r = h2d $ take 2 $ drop 1 x
      g = h2d $ take 2 $ drop 3 x
      b = h2d $ take 2 $ drop 5 x
      d = map (\ (c,r1,g1,b1) -> (c, (r1-r)^2+(g1-g)^2+(b1-b)^2 ) ) tab
      s = sortBy (\ (c0,d0) (c1,d1) -> compare d0 d1 ) d
  in
    fst $ head s
      
main = do
  c <- getContents
  let i = takeWhile (/= "0") $ lines c
      o = map ans i
  mapM_ putStrLn o