use std::io::Read;

fn p(i: &mut [usize]) -> bool {
	let mut j = i.len() - 1;
	let mut k = j;
	while i[j - 1] >= i[j] {
		j -= 1;
		if j == 0 {
			return false;
		}
	}
	while i[k] <= i[j - 1] {
		k -= 1;
	}
	i.swap(j - 1, k);
	i[j..].reverse();
	true
}

fn main() {
	let mut s = String::new();
	std::io::stdin().read_to_string(&mut s).ok();
	let v: Vec<usize> = s.split_whitespace().flat_map(str::parse).collect();
	let mut i: Vec<_> = (1..=v[0]).collect();
	let (mut c, mut m) = (0, 0);
	loop {
		let mut d = 0;
		for (j, &i) in i.iter().enumerate() {
			d += v[i].saturating_sub(v[v[0] + j + 1]);
		}
		if m < d {
			m = d;
			c = 0;
		}
		if m == d {
			c += 1;
		}
		if !p(&mut i) {
			break;
		}
	}
	println!("{c}")
}