open System open System.Collections.Generic #nowarn "37" [] module Cin = let read f = stdin.ReadLine() |> f let reada f = stdin.ReadLine().Split() |> Array.map f let readChars() = read string |> Seq.toArray let readInts() = readChars() |> Array.map (fun x -> Convert.ToInt32(x.ToString())) [] module Cout = let writer = new IO.StreamWriter(new IO.BufferedStream(Console.OpenStandardOutput())) let print (s: string) = writer.Write s let println (s: string) = writer.WriteLine s let inline puts (s: ^a) = string s |> println //        /             ` 、       感謝するぜ  お前と出会えた //        /          ノノ  ヽ //       ,     ニニ彡'⌒    /`ヽ        これまでの  全てに //       '   ニミ ニニ彡      〈rう├--ミ //        { { ニミ } j j jノx'ィイく  }し{\   `丶、___/ニニニ //       j_ニニミV ハレノ x<⌒ヽ  V ヘ  \    \ニニニニニニニ //       {xミミー'ヾ(、ル( 厶tァァく⌒ヾ}  )ハ::::::.    \ニニニニニニ //      彡ィ'">tァ} \(`ニ彡 ノ` /ト=く   ::::::i     \ニニニニニニ //      (   V^`こ7  _, \``ヾヽ` ノ|`ヽ ヽ l:::::|       \ニニニニニ //          ∧  { '  ` ノ^ヽ    { ノ     !:::::|   ___ノ^ヽニニニニニニ //       /.::::\ゝヽ. _ノヽ``ヽ, -――- 、 /:::::/ /      ̄`ヽニニニニニ //      /.::::::::::::::::>'"ノルハヽ`/ -―- 、⌒V::::::/.// j___ノ、  ヽニニニニニ //   /ニニ、`ヽ`ヾヘ{ {、ムイ 、_(   >  \/ (__ ノニニニ     \ニニニニ //  ,仁ニニニ\ヽヽヽ ∨   /ニニ>彡>--')__ ノ    `ヽニ     \ニニニ二 //  ニニニニニニヽ   /     {ニニ> ´ `¨¨´         ニ}      \>''"´ //  ニニニニニニニニ/     ∨ /               }八 //  ニニニニニニニ./        }ニ{                ノニヽ     ノ //  ニニニニニニニ/       }ニハ               /⌒ヽヽヽ ___彡 //  ニニニニニニニ!        ノニニヽ、            /     ` ー=彡'ニニニニニ //  ニニニニニニニ}          ⌒`丶、     /⌒ヽ  ノ     ノ_____ //   / ̄ ̄ ̄`ヽ/ヽ、 _彡ヘ{ {        > 、 /     /  ̄ ̄ ̄ //      ) 、    /   ヾ、    ヽ ヽ      (    `{    / //  // ⌒ヽ  /    〃 トミ  ___ >--‐=、   ヽ _ノ //   {       /    //     /         \__ノ // ----------------------------------------------------------------------------------------------------- let main() = let n = read int let table = Array2D.init n n (fun _ _ -> '.') for i in 0 .. n - 1 do let s = read string for j in 0 .. Seq.length s - 1 do table.[i, j] <- s.[j] for i in 0 .. n - 1 do if table.[0, i] = '-' then table.[0, i] <- 'o' table.[i, 0] <- 'x' let wins = Array.zeroCreate n for i in 0 .. n - 1 do let s = table.[i, *] |> fun c -> String(c) let w = s.Length - s.Replace("o", "").Length wins.[i] <- w let wins = wins |> Array.indexed |> Array.sortBy (fun (i, x) -> -x) // for i, v in wins do // sprintf "i:%d, v:%d" i v |> puts for i in 0 .. n - 1 do let a, b = wins.[i] if a = 0 then puts (i + 1) // ----------------------------------------------------------------------------------------------------- main() writer.Dispose()