Submission #37530178

Source Code Expand

let solve H W Ia =
  let Aq = Ia |> String.concat "" |> Seq.groupBy id |> Seq.map (snd >> Seq.length)
  let m4 = Aq |> Seq.map (fun x -> x%4)
  let x = m4 |> Seq.sumBy (fun x -> if x=1 then 1 else 0)
  let y = m4 |> Seq.sumBy (fun x -> if x=2 then 1 else 0)
  let s4 = Aq |> Seq.sumBy (fun x -> x/4)
  let s1 = Aq |> Seq.sumBy (fun x -> x%2)
  match H%2=0,W%2=0 with
    | (true, true)  -> x=0 && y=0
    | (true, false) -> x=0 && y <= H/2
    | (false, true) -> x=0 && y <= W/2
    | (false,false) -> x=1 && y <= (H+W)/2 - 1
  |> fun b -> if b then "Yes" else "No"

let H,W = stdin.ReadLine().Split() |> Array.map int |> (fun x -> x.[0],x.[1])
let Ia = Array.init H (fun _ -> stdin.ReadLine())
solve H W Ia |> stdout.WriteLine

Submission Info

Submission Time
Task C - Palindromic Matrix
User simin
Language F# (.NET Core 3.1.201)
Score 400
Code Size 743 Byte
Status AC
Exec Time 108 ms
Memory 29248 KiB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 400 / 400
Status
AC × 5
AC × 32
Set Name Test Cases
Sample 0_00.txt, 0_01.txt, 0_02.txt, 0_03.txt, 0_04.txt
All 0_00.txt, 0_01.txt, 0_02.txt, 0_03.txt, 0_04.txt, 1_00.txt, 1_01.txt, 1_02.txt, 1_03.txt, 1_04.txt, 1_05.txt, 1_06.txt, 1_07.txt, 1_08.txt, 1_09.txt, 1_10.txt, 1_11.txt, 1_12.txt, 1_13.txt, 1_14.txt, 1_15.txt, 1_16.txt, 1_17.txt, 1_18.txt, 1_19.txt, 1_20.txt, 1_21.txt, 1_22.txt, 1_23.txt, 1_24.txt, 1_25.txt, 1_26.txt
Case Name Status Exec Time Memory
0_00.txt AC 96 ms 28420 KiB
0_01.txt AC 93 ms 28524 KiB
0_02.txt AC 94 ms 28268 KiB
0_03.txt AC 94 ms 28748 KiB
0_04.txt AC 100 ms 28536 KiB
1_00.txt AC 94 ms 28396 KiB
1_01.txt AC 91 ms 28836 KiB
1_02.txt AC 95 ms 28552 KiB
1_03.txt AC 97 ms 28436 KiB
1_04.txt AC 97 ms 28360 KiB
1_05.txt AC 90 ms 28556 KiB
1_06.txt AC 98 ms 28816 KiB
1_07.txt AC 87 ms 28468 KiB
1_08.txt AC 93 ms 28400 KiB
1_09.txt AC 94 ms 28824 KiB
1_10.txt AC 97 ms 28796 KiB
1_11.txt AC 100 ms 29248 KiB
1_12.txt AC 108 ms 28856 KiB
1_13.txt AC 93 ms 28816 KiB
1_14.txt AC 95 ms 28684 KiB
1_15.txt AC 92 ms 28612 KiB
1_16.txt AC 90 ms 28632 KiB
1_17.txt AC 90 ms 29032 KiB
1_18.txt AC 95 ms 28640 KiB
1_19.txt AC 103 ms 28580 KiB
1_20.txt AC 100 ms 28728 KiB
1_21.txt AC 100 ms 28460 KiB
1_22.txt AC 90 ms 28512 KiB
1_23.txt AC 94 ms 28480 KiB
1_24.txt AC 97 ms 28580 KiB
1_25.txt AC 99 ms 28484 KiB
1_26.txt AC 94 ms 28484 KiB