> let 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
- "
- ;;
val str : string =
"
75
95 64
17 47 82
18 35 87 10
20 04 82 47 65
19 01 23 75 03 "+[300 chars]
> let ary = str.Trim().Split('\n')
- ;;
val ary : 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"|]
> let tri = ary |> Array.map(fun str -> str.Split(' '))
- ;;
val tri : 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"|]|]
> let rev = tri |> Array.rev
- ;;
val rev : string [] [] =
[|[|"04"; "62"; "98"; "27"; "23"; "09"; "70"; "98"; "73"; "93"; "38"; "53";
"60"; "04"; "23"|];
[|"63"; "66"; "04"; "68"; "89"; "53"; "67"; "30"; "73"; "16"; "69"; "87";
"40"; "31"|];
[|"91"; "71"; "52"; "38"; "17"; "14"; "91"; "43"; "58"; "50"; "27"; "29";
"48"|];
[|"70"; "11"; "33"; "28"; "77"; "73"; "17"; "78"; "39"; "68"; "17"; "57"|];
[|"53"; "71"; "44"; "65"; "25"; "43"; "91"; "52"; "97"; "51"; "14"|];
[|"41"; "48"; "72"; "33"; "47"; "32"; "37"; "16"; "94"; "29"|];
[|"41"; "41"; "26"; "56"; "83"; "40"; "80"; "70"; "33"|];
[|"99"; "65"; "04"; "28"; "06"; "16"; "70"; "92"|];
[|"88"; "02"; "77"; "73"; "07"; "63"; "67"|];
[|"19"; "01"; "23"; "75"; "03"; "34"|]; [|"20"; "04"; "82"; "47"; "65"|];
[|"18"; "35"; "87"; "10"|]; [|"17"; "47"; "82"|]; [|"95"; "64"|]; [|"75"|]|]
> let rev = rev |> Array.map(fun ary -> ary |> Array.map(fun str -> int32 str) |> Array.toList) |> Array.toList
- ;;
val rev : int32 list list =
[[4; 62; 98; 27; 23; 9; 70; 98; 73; 93; 38; 53; 60; 4; 23];
[63; 66; 4; 68; 89; 53; 67; 30; 73; 16; 69; 87; 40; 31];
[91; 71; 52; 38; 17; 14; 91; 43; 58; 50; 27; 29; 48];
[70; 11; 33; 28; 77; 73; 17; 78; 39; 68; 17; 57];
[53; 71; 44; 65; 25; 43; 91; 52; 97; 51; 14];
[41; 48; 72; 33; 47; 32; 37; 16; 94; 29];
[41; 41; 26; 56; 83; 40; 80; 70; 33]; [99; 65; 4; 28; 6; 16; 70; 92];
[88; 2; 77; 73; 7; 63; 67]; [19; 1; 23; 75; 3; 34]; [20; 4; 82; 47; 65];
[18; 35; 87; 10]; [17; 47; 82]; [95; 64]; [75]]
> let rec large lst =
- match lst with
- | x::xs -> if xs.IsEmpty then [] else max x xs.Head :: large xs
- | [] -> []
- ;;
val large : 'a list -> 'a list when 'a : comparison
> let mutable large_ary = large rev.Head
- ;;
val mutable large_ary : int32 list =
[62; 98; 98; 27; 23; 70; 98; 98; 93; 93; 53; 60; 60; 23]
> for ary in rev do
- if ary.Length = large_ary.Length then
- let lst =
- (List.zip ary large_ary)
- |> List.map(fun (x, y) -> x + y)
-
- for x in lst do printf "%d," x
- printf "\n"
-
- 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,
val it : unit = ()