use criterion::{criterion_group, criterion_main, BenchmarkId, Criterion};
use math::ring::Ring;
use math::modulus::VecOperations;
use math::modulus::montgomery::Montgomery;
use math::modulus::ONCE;
use math::CHUNK;

fn vec_add_unary(c: &mut Criterion) {
    fn runner(r: Ring<u64>) -> Box<dyn FnMut()> {
        
        let mut p0: math::poly::Poly<u64> = r.new_poly();
        let mut p1: math::poly::Poly<u64> = r.new_poly();
        for i in 0..p0.n(){
            p0.0[i] = i as u64;
            p1.0[i] = i as u64;
        }
        Box::new(move || {
            r.modulus.vec_add_unary_assign::<CHUNK, ONCE>(&p0.0, &mut p1.0);
        })
    }

    let mut b: criterion::BenchmarkGroup<'_, criterion::measurement::WallTime> = c.benchmark_group("add_vec_unary");
    for log_n in 11..17 {

        let n: usize = 1<<log_n as usize;
        let q_base: u64 = 0x1fffffffffe00001u64;
        let q_power: usize = 1usize;
        let r: Ring<u64> = Ring::<u64>::new(n, q_base, q_power);
        let runners = [
            ("prime", {
                runner(r)
            }),
        ];
        for (name, mut runner) in runners {
            let id = BenchmarkId::new(name, n);
            b.bench_with_input(id, &(), |b, _| b.iter(&mut runner));
        }
    }
}

fn vec_mul_montgomery_external_unary_assign(c: &mut Criterion) {
    fn runner(r: Ring<u64>) -> Box<dyn FnMut()> {
        
        let mut p0: math::poly::Poly<Montgomery<u64>> = r.new_poly();
        let mut p1: math::poly::Poly<u64> = r.new_poly();
        for i in 0..p0.n(){
            p0.0[i] = r.modulus.montgomery.prepare::<ONCE>(i as u64);
            p1.0[i] = i as u64;
        }
        Box::new(move || {
            r.modulus.vec_mul_montgomery_external_unary_assign::<CHUNK, ONCE>(&p0.0, &mut p1.0);
        })
    }

    let mut b: criterion::BenchmarkGroup<'_, criterion::measurement::WallTime> = c.benchmark_group("mul_vec_montgomery_external_unary_assign");
    for log_n in 11..17 {

        let n: usize = 1<<log_n as usize;
        let q_base: u64 = 0x1fffffffffe00001u64;
        let q_power: usize = 1usize;
        let r: Ring<u64> = Ring::<u64>::new(n, q_base, q_power);
        let runners = [
            ("prime", {
                runner(r)
            }),
        ];
        for (name, mut runner) in runners {
            let id = BenchmarkId::new(name, n);
            b.bench_with_input(id, &(), |b, _| b.iter(&mut runner));
        }
    }
}

fn vec_mul_montgomery_external_binary_assign(c: &mut Criterion) {
    fn runner(r: Ring<u64>) -> Box<dyn FnMut()> {
        
        let mut p0: math::poly::Poly<Montgomery<u64>> = r.new_poly();
        let mut p1: math::poly::Poly<u64> = r.new_poly();
        let mut p2: math::poly::Poly<u64> = r.new_poly();
        for i in 0..p0.n(){
            p0.0[i] = r.modulus.montgomery.prepare::<ONCE>(i as u64);
            p1.0[i] = i as u64;
        }
        Box::new(move || {
            r.modulus.vec_mul_montgomery_external_binary_assign::<CHUNK,ONCE>(&p0.0, & p1.0, &mut p2.0);
        })
    }

    let mut b: criterion::BenchmarkGroup<'_, criterion::measurement::WallTime> = c.benchmark_group("mul_vec_montgomery_external_binary_assign");
    for log_n in 11..17 {

        let n: usize = 1<<log_n as usize;
        let q_base: u64 = 0x1fffffffffe00001u64;
        let q_power: usize = 1usize;
        let r: Ring<u64> = Ring::<u64>::new(n, q_base, q_power);
        let runners = [
            ("prime", {
                runner(r)
            }),
        ];
        for (name, mut runner) in runners {
            let id = BenchmarkId::new(name, n);
            b.bench_with_input(id, &(), |b, _| b.iter(&mut runner));
        }
    }
}

criterion_group!(benches, vec_add_unary, vec_mul_montgomery_external_unary_assign, vec_mul_montgomery_external_binary_assign);
criterion_main!(benches);