Problem:
Score : 300 points

Problem Statement

A company has N members, who are assigned ID numbers 1, ..., N.

Every member, except the member numbered 1, has exactly one immediate boss with a smaller ID number.

When a person X is the immediate boss of a person Y, the person Y is said to be an immediate subordinate of the person X.

You are given the information that the immediate boss of the member numbered i is the member numbered A_i. For each member, find how many immediate subordinates it has.

Constraints

2 \leq N \leq 2 \times 10^5

1 \leq A_i < i

Input

Input is given from Standard Input in the following format:

N
A_2 ... A_N

Output

For each of the members numbered 1, 2, ..., N, print the number of immediate subordinates it has, in its own line.

Sample Input 1

5
1 1 2 2

Sample Output 1

2
2
0
0
0

The member numbered 1 has two immediate subordinates: the members numbered 2 and 3.

The member numbered 2 has two immediate subordinates: the members numbered 4 and 5.

The members numbered 3, 4, and 5 do not have immediate subordinates.

Sample Input 2

10
1 1 1 1 1 1 1 1 1

Sample Output 2

9
0
0
0
0
0
0
0
0
0

Sample Input 3

7
1 2 3 4 5 6

Sample Output 3

1
1
1
1
1
1
0

Solution in Rust (1.42.0) (judge verdict: Accepted)

use std::io::BufRead;

macro_rules! readlines {
    ($cnt:expr) => {
        {
            let stdin = std::io::stdin();
            let mut handle = stdin.lock();
            let mut result = Vec::new();
            for i in 0..$cnt{
                let mut buf = String::new();
                handle.read_line(&mut buf);
                result.push(buf.trim().to_owned());
            }
            result
        }
    };
}

macro_rules! string2splittedvec {
    ($t:ty,$sep:expr,$line:expr) => {
        {
            $line.split($sep)
                .map(|s|s.parse::<$t>().unwrap())
                .collect::<Vec<_>>()
        }
    };
    ($t:ty,$line:expr) => {
        {
            string2splittedvec!($t,' ',$line)
        }
    };
    ($sep:expr,$line:expr) => {
        {
            $line.split($sep)
                .map(|s|s.to_owned())
                .collect::<Vec<_>>()
        }
    };
    ($line:expr)=>{
        {
            string2splittedvec!(' ',$line)
        }
    }
}

fn main(){
    let mut v = readlines!(2).into_iter().map(|s|{string2splittedvec!(u64,s)}).collect::<Vec<Vec<_>>>();
    let ans = 0;
    let n = v[0][0];
    v[1].resize(n as usize,0);
    let mut ans_array = vec![0;n as usize];
    for i in v[1].clone(){
        if i>0{
            ans_array[(i-1) as usize]+=1;
        }
    }
    for i in ans_array{println!("{}",i);}
}