给定一个正数的平方，自然数写一个程序，找到一条水平和垂直路径，沿着它们的数字总和最大。甲水平路径从第一列到最后去，并具有通过一个在每个步骤中，以增加其列位置。甲垂直路径从第一行进行到最后的，并具有由一个在每个步骤中，以增加其行位置。此外，水平路径中的行位置可以保持相同或沿任一方向改变一个，对于垂直路径也是如此。

为了说明这一点，以下可能是有效的路径：

以下路径将无效，因为它会向后退（并在某些地方保留在同一行）：

以下路径同样无效，因为它一步一步将行位置更改了多个：

注意：解决方案应在可接受的时间内运行。

输入值

在标准输入上给出n行输入，每行输入n个以空格分隔的正整数。2≤ Ñ ≤40的每一行是由一个换行符终止。数字足够小，以至于最大和适合32位有符号整数。

输出量

水平和垂直路径的最大和（按此顺序），以单个空格分隔。

样品输入1

1 2
1 2

样品输出1

3 4

样品输入2

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
2 1 4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 4 1 3 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 4 1 2 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 5 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

样品输出2

37 35

样品输入3

683 671 420 311 800 936
815 816 123 142 19 831
715 588 622 491 95 166
885 126 262 900 393 898
701 618 956 865 199 537
226 116 313 822 661 214

样品输出3

4650 4799

为方便起见，我们在bash（感谢Ventero）和PowerShell中准备了一些测试用例，您可以通过它们运行程序。调用是：<test> <command line>，所以类似./test python paths.py或./test.ps1 paths.exe。玩得开心 ：-）

GolfScript-49个Nabb增强角色

51个字符，其中
50个是绝对必要的字符，另外3个是懒人，只完成了1个
56个主要是多余字符的工作

n%{~]}%.zip{{0@+\{\.1>\3<$-1=@+}%\;}*$-1=\}2*' '@

51解决方案：

n%{~]}%.zip{(\{0@+\{\.1>\3<$-1=@+}%\}%;$-1=\}2*' '@

53解决方案：

n/{~]}%);.zip{(\{0@+\{\.1>\3<$-1=@+}%\}%;$-1=\}2*' '@
             a8_b9___c10___11______12 13      14_

该方法一次作用于两行，一个包含每个点达到​​的最大和，而另一个包含下一行。

a / 14：重复两次，每个结果一次。
8：从输入中获取第一行，并将其切换到输入数组后面，这是第一组最大和。
b / 13：遍历数组中的每个其余行。
9：将0放在最大和的开头。
c / 12：遍历该行的每个元素。
10：在删除第一个元素的情况下，复制最大和。
11：取最大和的前3个元素，对它们进行排序，然后将最大的和添加到该行的当前元素中。

56解决方案：

n/{~]}%);.zip{1,99*\{{\.1>\3<$-1=@+}%0\+\}%;$-1=\}2*' '@
1________2___ 3____ 4______________________5_____ 6_7___

1：从输入到9个字符的数组，实际上只用1就可以完成，但是我弄破了那个键，所以必须这样做。
2：4个字符只是为了制作转置副本。
3：以5个字符组成99个0的数组，这可能以一种更聪明的方式完成，但是我抽了很多杂草来弄清楚该怎么做。
4：过于复杂的双循环，遍历输入的每个元素，并执行一些模糊逻辑或类似的操作来产生结果。Nabb可能会产生大约3½个字符的等效字符。
5：到现在为止，结果就在数组内部，那里就是这段愚蠢的代码，它可以将其取出（然后将剩下的残渣扔掉（并将结果放到适当的位置））。
6：此命令非常简单，以至于在最佳解决方案中其字符数可能为负。7：至此，程序确实完成了，但是由于前面代码中的草率性，输出的顺序错误并且缺少空格，因此这里要花很多时间。

J，91 95

a=:".;._2(1!:1)3
c=:4 :'>./x+"1|:y,.(1|.!.0 y),._1|.!.0 y'
p=:[:>./c/
(":(p|:a),p a)1!:2(4)

我拒绝做IO，大大降低了我的分数。通过测试线束中的所有测试（尽管仅在输入以测试线束结尾时才有效）。

我删除了Windows行尾的处理，因为Chris建议不要这样做。多平台版本将a=:".;._2 toJ(1!:1)3作为第一行。

说明：

• f通过正常调用p并输入转置（|:）给出解对。
• p取每行（）之间>./应用的行总数的最大值c（c/）
• c占用两行（x和y）。它将x加到y的每一个中，y向上移动1个单元格（1|.!.0 y），y向下移动1个单元格（_1|.!.0 y）。然后，它取每一行三个选择的最大值。（>./）。其余的都是[原文]-我不确定我是否做得对。

Haskell：314个必要字符

import Data.Vector(fromList,generate,(!))
import List
l=fromList
x=maximum
g=generate
p a=show$x[m!i!0|i<-[0..h-1]]where{
w=length$head a;h=length$a;n=l$map l a;
m=g h$ \i->g w$ \j->n!i!j+x[k#(j+1)|k<-[i-1..i+1]];
i#j|i<0||i>=h||j>=w=0|1>0=m!i!j;}
q a=p a++' ':(p.transpose)a
main=interact$q.map(map read.words).lines

注意：这需要模块Data.Vector。我不确定它是否包含在Haskell平台中。

非高尔夫版本：

import Data.Vector(fromList,generate,(!))
import Data.List

-- horizontal; we use transpose for the vertical case
max_path :: [[Integer]] -> Integer
max_path numbers = maximum [m ! i ! 0 | i <- [0..h-1]] where
    w = length (head numbers)
    h = length numbers
    n = fromList $ map fromList numbers
    m = generate h $ \i -> generate w $ \j ->
        n ! i ! j + maximum [f i' (j+1) | i' <- [i-1..i+1]]
    f i j | i < 0 || i >= h || j >= w = 0
    f i j = m ! i ! j

max_paths :: [[Integer]] -> String
max_paths numbers = (show . max_path) numbers ++ " " ++
                    (show . max_path . transpose) numbers

main = interact $ max_paths . map (map read . words) . lines

此解决方案结合使用懒惰和Data.Vector进行记忆。对于每个点，都会计算从它到末端的最大路径的解，然后将其存储在Vector的单元格中，m并在需要时重用。

Ruby 1.9，155个字符

f=->t{(1...l=t.size).map{|a|l.times{|b|t[a][b]+=t[a-1][(b>0?b-1:0)..b+1].max}};t[-1].max};q=[*$<].map{|a|a.split.map &:to_i};puts [f[q.transpose],f[q]]*" ""

通过所有测试用例的简单解决方案。

Haskell，154个字符

import List
z=zipWith
f=show.maximum.foldl1(\a->z(+)$z max(tail a++[0])$z max(0:a)a)
q a=f(transpose a)++' ':f a
main=interact$q.map(map read.words).lines

• 编辑：（155-> 154）内联折叠的函数

J，^{109 + 10 =} 119个字符

y=:0".(1!:1)3
N=:%:#y
y=:y$~N,N
r=:(((1&{)(+(3>./\0,0,~]))(0&{)),2&}.)^:(<:N)
(":([:>./"1([:r|:),r)y)(1!:2)4

运行tr：

cat << EOF | tr \\n ' ' | ./maxpath.ijs

和J中一样，大多数代码用于输入/输出。“实际”代码为65个字符：

r=:(((1&{)(+(3>./\0,0,~]))(0&{)),2&}.)^:(<:#y)
([:>./"1([:r|:),r)y

通过所有测试用例

蟒蛇，149

import sys
def f(g,t=[]):
 for r in g:t=[int(e)+max(t[i-1:i+2]+[0])for i,e in enumerate(r)]
 print max(t),
g=map(str.split,sys.stdin)
f(zip(*g)),f(g)

如果仅计算垂直或水平最短路径，
则可以就地完成，节省大约三分之一的字节。

Python，204个字符

import sys
I=sys.stdin.read()
n=I.count('\n')
A=map(int,I.split())
R=range(n)
X=lambda h,a:[a[i]+max(([0]+h)[i:i+3])for i in R]
h=v=[0]*n
for i in R:h=X(h,A[i*n:i*n+n]);v=X(v,A[i::n])
print max(v),max(h)