We use cookies to ensure you have the best browsing experience on our website. Please read our cookie policy for more information about how we use cookies.
  1. Prepare
  2. Functional Programming
  3. Introduction
  4. Functions or Not?
  5. Discussions

Functions or Not?

  • lematero
     + 1 comment

    F# solution with pipes

    open System

let readDomain n =
    [ 1..n ]
    |> List.map (fun _ -> (Console.ReadLine().Split ' ').[0])

let validate domain =
    domain
    |> List.distinct
    |> List.length
    |> (=) (List.length domain)

[<EntryPoint>]
let main argv =
    let t = Console.ReadLine() |> int

    [ 1..t ]
    |> List.iter (fun _ ->
        Console.ReadLine()
        |> int
        |> readDomain
        |> validate
        |> (fun isValid -> if isValid then "YES" else "NO")
        |> Console.WriteLine)

    0