ONLY DO WHAT ONLY YOU CAN DO

こけたら立ちなはれ 立ったら歩きなはれ

Scala で Project Euler Problem 18

scala> var str = """
     | 75
     | 95 64
     | 17 47 82
     | 18 35 87 10
     | 20 04 82 47 65
     | 19 01 23 75 03 34
     | 88 02 77 73 07 63 67
     | 99 65 04 28 06 16 70 92
     | 41 41 26 56 83 40 80 70 33
     | 41 48 72 33 47 32 37 16 94 29
     | 53 71 44 65 25 43 91 52 97 51 14
     | 70 11 33 28 77 73 17 78 39 68 17 57
     | 91 71 52 38 17 14 91 43 58 50 27 29 48
     | 63 66 04 68 89 53 67 30 73 16 69 87 40 31
     | 04 62 98 27 23 09 70 98 73 93 38 53 60 04 23
     | """
str: java.lang.String =
"
75
95 64
17 47 82
18 35 87 10
20 04 82 47 65
19 01 23 75 03 34
88 02 77 73 07 63 67
99 65 04 28 06 16 70 92
41 41 26 56 83 40 80 70 33
41 48 72 33 47 32 37 16 94 29
53 71 44 65 25 43 91 52 97 51 14
70 11 33 28 77 73 17 78 39 68 17 57
91 71 52 38 17 14 91 43 58 50 27 29 48
63 66 04 68 89 53 67 30 73 16 69 87 40 31
04 62 98 27 23 09 70 98 73 93 38 53 60 04 23
"
scala> val ary = str.trim().split("\n").toList
ary: List[java.lang.String] = List(75, 95 64, 17 47 82, 18 35 87 10, 20 04 82 47 65, 19 01 23 75 03 34, 88 02 77 73 07 63 67, 99 65 04 28 06 16 70 92, 41 41 26 56 83 40 80 70 33, 41 48 72 33 47 32 37 16 94 29, 53 71 44 65 25 43 91 52 97 51 14, 70 11 33 28 77 73 17 78 39 68 17 57, 91 71 52 38 17 14 91 43 58 50 27 29 48, 63 66 04 68 89 53 67 30 73 16 69 87 40 31, 04 62 98 27 23 09 70 98 73 93 38 53 60 04 23)
scala> val tri = ary.map(str => str.split(" ").toList)
tri: List[List[java.lang.String]] = List(List(75), List(95, 64), List(17, 47, 82), List(18, 35, 87, 10), List(20, 04, 82, 47, 65), List(19, 01, 23, 75, 03, 34), List(88, 02, 77, 73, 07, 63, 67), List(99, 65, 04, 28, 06, 16, 70, 92), List(41, 41, 26, 56, 83, 40, 80, 70, 33), List(41, 48, 72, 33, 47, 32, 37, 16, 94, 29), List(53, 71, 44, 65, 25, 43, 91, 52, 97, 51, 14), List(70, 11, 33, 28, 77, 73, 17, 78, 39, 68, 17, 57), List(91, 71, 52, 38, 17, 14, 91, 43, 58, 50, 27, 29, 48), List(63, 66, 04, 68, 89, 53, 67, 30, 73, 16, 69, 87, 40, 31), List(04, 62, 98, 27, 23, 09, 70, 98, 73, 93, 38, 53, 60, 04, 23))
scala> val rev = tri.map(lst => lst.map(str => str.toInt)).reverse
rev: List[List[Int]] = List(List(4, 62, 98, 27, 23, 9, 70, 98, 73, 93, 38, 53, 60, 4, 23), List(63, 66, 4, 68, 89, 53, 67, 30, 73, 16, 69, 87, 40, 31), List(91, 71, 52, 38, 17, 14, 91, 43, 58, 50, 27, 29, 48), List(70, 11, 33, 28, 77, 73, 17, 78, 39, 68, 17, 57), List(53, 71, 44, 65, 25, 43, 91, 52, 97, 51, 14), List(41, 48, 72, 33, 47, 32, 37, 16, 94, 29), List(41, 41, 26, 56, 83, 40, 80, 70, 33), List(99, 65, 4, 28, 6, 16, 70, 92), List(88, 2, 77, 73, 7, 63, 67), List(19, 1, 23, 75, 3, 34), List(20, 4, 82, 47, 65), List(18, 35, 87, 10), List(17, 47, 82), List(95, 64), List(75))
scala> def large(list: List[Int]):List[Int] = list match {
     |     case x :: xs => if (xs.isEmpty) List() else {math.max(x, xs.head) :: large(xs)}
     |     case Nil => List()
     | }
large: (list: List[Int])List[Int]
scala> var large_ary = large(rev.head)
large_ary: List[Int] = List(62, 98, 98, 27, 23, 70, 98, 98, 93, 93, 53, 60, 60, 23)

scala> for (ary <- rev) {
     |     if (ary.length == large_ary.length) {
     |         val lst = (ary zip large_ary).map(t => t match {case (x,y) => x + y})
     |         for (x <- lst) print(x + ",")
     |         println
     |         large_ary = large(lst)
     |     }
     | }
125,164,102,95,112,123,165,128,166,109,122,147,100,54,
255,235,154,150,140,179,256,209,224,172,174,176,148,
325,246,187,178,256,329,273,302,263,242,193,233,
378,317,231,321,354,372,393,354,360,293,247,
419,365,393,387,419,425,430,376,454,322,
460,434,419,475,508,470,510,524,487,
559,499,479,536,514,526,594,616,
647,501,613,609,533,657,683,
666,614,636,684,660,717,
686,640,766,731,782,
704,801,853,792,
818,900,935,
995,999,
1074,