fork download
copy 
  1. let n = stdin.ReadLine() |> int
  2. let players = stdin.ReadLine().Split() |> Array.map int
  3. stdout.Write (
  4.     players |> Seq.countBy id |> Seq.sumBy (fun x -> min (snd x) 2)
  5. )
Success #stdin #stdout 0.08s 28492KB
comments (?)
stdin
copy 
10
1 3 2 4 2 4 4 3 2 7
stdout
copy 
8
https://ideone.com/NJWgMD
language:
F# (mono 4.1)
created:
24 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!