Problem:
Score : 500 points

Problem Statement

In Takahashi Kingdom, which once existed, there are N cities, and some pairs of cities are connected bidirectionally by roads.
The following are known about the road network:

People traveled between cities only through roads. It was possible to reach any city from any other city, via intermediate cities if necessary.

Different roads may have had different lengths, but all the lengths were positive integers.

Snuke the archeologist found a table with N rows and N columns, A, in the ruin of Takahashi Kingdom.
He thought that it represented the shortest distances between the cities along the roads in the kingdom.

Determine whether there exists a road network such that for each u and v, the integer A_{u, v} at the u-th row and v-th column of A is equal to the length of the shortest path from City u to City v.
If such a network exist, find the shortest possible total length of the roads.

Constraints

1 \leq N \leq 300

If i ≠ j, 1 \leq A_{i, j} = A_{j, i} \leq 10^9.

A_{i, i} = 0

Inputs

Input is given from Standard Input in the following format:

N
A_{1, 1} A_{1, 2} ... A_{1, N}
A_{2, 1} A_{2, 2} ... A_{2, N}
...
A_{N, 1} A_{N, 2} ... A_{N, N}

Outputs

If there exists no network that satisfies the condition, print -1.
If it exists, print the shortest possible total length of the roads.

Sample Input 1

3
0 1 3
1 0 2
3 2 0

Sample Output 1

3

The network below satisfies the condition:

City 1 and City 2 is connected by a road of length 1.

City 2 and City 3 is connected by a road of length 2.

City 3 and City 1 is not connected by a road.

Sample Input 2

3
0 1 3
1 0 1
3 1 0

Sample Output 2

-1

As there is a path of length 1 from City 1 to City 2 and City 2 to City 3, there is a path of length 2 from City 1 to City 3.
However, according to the table, the shortest distance between City 1 and City 3 must be 3.

Thus, we conclude that there exists no network that satisfies the condition.

Sample Input 3

5
0 21 18 11 28
21 0 13 10 26
18 13 0 23 13
11 10 23 0 17
28 26 13 17 0

Sample Output 3

82

Sample Input 4

3
0 1000000000 1000000000
1000000000 0 1000000000
1000000000 1000000000 0

Sample Output 4

3000000000

Solution in Haskell (GHC 7.10.3) (judge verdict: Time Limit Exceeded)

import qualified Data.Array.IO as A
import Data.Array.Unboxed as U
import Control.Monad
import Data.Maybe
import qualified Data.ByteString.Char8 as B

inf = 100000000000 :: Int

main = do
    n <- read <$> getLine :: IO Int
    as <- warshall_fluyd =<< A.newListArray ((1,1),(n,n)) . concat =<< 
            replicateM n (map (fst . fromJust . B.readInt) . B.words <$> B.getLine) 
    print $ case as of
        Just as' -> sum [as'!(i,j)|i<-[1..n], j<-[1..n], i<j, i/=j, as'!(i,j) < inf]
        Nothing  -> -1

warshall_fluyd :: A.IOArray (Int,Int) Int -> IO (Maybe (U.UArray (Int,Int) Int))
warshall_fluyd arr = do
    ((s,_),(l,_)) <- A.getBounds arr
    f <- and <$> (forM [(k,i,j)|k<-[s..l], i<-[s..l], j<-[s..l], i/=j, k/=j, i/=k] $ \(k,i,j) -> do
        ik <- A.readArray arr (i,k)
        kj <- A.readArray arr (k,j)
        ij <- A.readArray arr (i,j)
        if all (/=inf) [ik,kj,ij]
            then if ik+ kj == ij
                then do A.writeArray arr (i,j) inf
                        return True
                else return (not (ik+kj < ij))
            else return True)
    if f then Just <$> A.freeze arr else return Nothing