Problem:
最短経路

図１に例示するように整数（0 以上 99 以下）をひしがたに並べます。このような、ひしがたを表すデータを読み込んで、一番上からスタートして一番下まで次のルールに従って進むとき、通過する整数の和の最大値を出力するプログラムを作成してください。

各ステップで、対角線上の左下か対角線上の右下に進むことができます。

例えば図1の例では、図2に示すように、7,3,8,7,5,7,8,3,7を選んで通ったとき、その和は最大の 55 （7+3+8+7+5+7+8+3+7=55） となります。

Input

入力例に示すように、カンマで区切られた整数の並びが、ひし形状に与えられます。各行に空白文字は含まれません。入力例は図１に対応しています。
データの行数は 100 行未満です。

Output

ルールに従って通過する整数の和の最大値を１行に出力します。

Sample Input

7
3,8
8,1,0
2,7,4,4
4,5,2,6,5
2,7,4,4
8,1,0
3,8
7

Sample Output

55

Solution in Haskell (judge verdict: Memory Limit Exceeded)

import Data.List

split :: Char->String->[String]
split c str
    | not $ elem c str = [str]
    | otherwise        = word:(split c str')
    where word = takeWhile (/=c) str
          str' = drop ((length word)+1) str

solve :: [[Int]]->Int->[Int]->[Int]
solve (x:xs) i costs 
    | null xs   = costs'
    | l<l'      = (solve xs i costs')++(solve xs (i+1) costs')
    | i==0      = (solve xs i costs')
    | i==(l-1)  = (solve xs (i-1) costs')
    | otherwise = (solve xs (i-1) costs')++(solve xs i costs')
        where costs' = map (+(x!!i)) costs
              (l,l') = (length x, length $ head xs)

main = do
    ss <- getContents
    let lst = map (\x->map (\y->read y::Int) x) $ map (split ',') $ lines ss
    print $ last $ sort $ solve lst 0 [0]