let ``No.26 シャッフルゲーム``() = let n = stdin.ReadLine() |>int let ar = Array.zeroCreate 4 ar.[n] <- 1 [1..stdin.ReadLine() |>int] |> List.iter (fun i -> stdin.ReadLine().Split(' ') |> fun args -> let p1 , p2 = (args.[0] |> int , args.[1] |> int) match ar.[p1] , ar.[p2] with | 1 , _ -> ar.[p1] <- 0 ; ar.[p2] <- 1 | _ , 1 -> ar.[p1] <- 1 ; ar.[p2] <- 0 | _ , _ -> () ) [1..3] |> List.iter (fun i -> match ar.[i] with | 1 -> stdout.WriteLine i | _ -> () ) ``No.26 シャッフルゲーム``()