Problem:
ゴールドバッハの予想

4 以上の偶数は 2 つの素数の和で表すことができるということが知られています。これはゴールドバッハ予想といい、コンピュータの計算によりかなり大きな数まで正しいことが確かめられています。例えば、10 は、7 + 3、5 + 5 の 2 通りの素数の和で表すことができます。

整数 n を入力し、n を 2 つの素数の和で表す組み合わせ数が何通りあるかを出力するプログラムを作成してください。ただし、n は 4 以上、50,000 以下とします。また、入力される n は偶数であるとはかぎりません。

Input

複数のデータセットが与えられます。各データセットに n が１行に与えられます。n が 0 のとき入力の最後とします。データセットの数は 10,000 を超えません。

Output

各データセットに対して、n を 2 つの素数の和で表す組み合わせ数を１行に出力して下さい。

Sample Input

10
11
0

Output for the Sample Input

2
0

Solution in Haskell (judge verdict: Wrong Answer)

main = interact $ unlines . map (show . goldbach . read) . takeWhile (/= "0") . lines

goldbach :: Int -> Int
goldbach x = if odd x then 0 else goldbach' (takeWhile (<= div x 2) p) (takeWhile (>= div x 2) (reverse p))
 where
  p = takeWhile (<= x) primes
  goldbach' (p1:ps1) (p2:ps2)
   | p1 == p2   = if p1+p2==x then 1 else 0
   | p1+p2 < x  = goldbach' ps1 (p2:ps2)
   | p1+p2 > x  = goldbach' (p1:ps1) ps2
   | p1+p2 == x = 1 + goldbach' ps1 ps2
  goldbach' _ _ = 0
 
primes = 2:3:[x | i<-[1..], j<-[-1,1], let x = 6*i+j, isPrime x]
 where isPrime n = null [i | i<-takeWhile (\x -> x*x <= n) primes, rem n i == 0]