use std::io::{BufRead, Write}; struct Lines { b: B, buf: Vec } impl Lines { fn next(&mut self) -> &str { self.buf.clear(); self.b.read_until(b'\n', &mut self.buf).ok(); if self.buf.ends_with(&[b'\n']) { self.buf.pop(); if self.buf.ends_with(&[b'\r']) { self.buf.pop(); } } std::str::from_utf8(&self.buf).unwrap() } } macro_rules! parse { ($s:expr, Usize1) => (parse!($s, usize) - 1); ($s:expr, Bytes) => ($s.as_bytes().to_vec()); ($s:expr, Chars) => ($s.chars().collect::>()); ($s:expr, $t:ty) => ($s.parse::<$t>().unwrap()); } macro_rules! scan { ($iter:expr, ($($t:ident),*)) => ( ($(scan!($iter, $t)),*) ); ($iter:expr, [$t:ident]) => ( $iter.map(|s| parse!(s, $t)).collect::>() ); ($iter:expr, $t:ident) => ( parse!($iter.next().unwrap(), $t) ); } macro_rules! read { ($lines:expr, [$t:tt; $n:expr]) => ( (0..$n).map(|_| read!($lines, $t)).collect::>() ); ($lines:expr, $t:tt) => ({ let iter = &mut $lines.next().split(' '); scan!(iter, $t) }); } fn pow_mod(mut a: usize, mut n: usize, m: usize) -> usize { let mut res = 1; while n > 0 { if n & 1 > 0 { res = res * a % m; } a = a * a % m; n >>= 1; } res } fn run(mut lines: Lines, mut writer: W) { let (n, k, m) = read!(lines, (usize, usize, usize)); let mut a = read!(lines, [[usize]; 4]); for a in a.iter_mut() { a.sort(); } let mut ans = 0; for i in 0..n { let max = a.iter().map(|a| a[i]).max().unwrap(); let min = a.iter().map(|a| a[i]).min().unwrap(); ans = (ans + pow_mod(max - min, k, m)) % m; } writeln!(writer, "{}", ans).ok(); } fn main() { let (stdin, stdout) = (std::io::stdin(), std::io::stdout()); let lines = Lines { b: stdin.lock(), buf: Vec::new() }; run(lines, std::io::BufWriter::new(stdout.lock())); }