1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86

// Copyright 2018-2024 argmin developers
//
// Licensed under the Apache License, Version 2.0 <LICENSE-APACHE or
// http://apache.org/licenses/LICENSE-2.0> or the MIT license <LICENSE-MIT or
// http://opensource.org/licenses/MIT>, at your option. This file may not be
// copied, modified, or distributed except according to those terms.

use crate::ArgminL2Norm;
use ndarray::Array1;
use num_complex::Complex;
use num_integer::Roots;

macro_rules! make_norm_float {
    ($t:ty) => {
        impl ArgminL2Norm<$t> for Array1<$t> {
            #[inline]
            fn l2_norm(&self) -> $t {
                self.iter().map(|a| a.powi(2)).sum::<$t>().sqrt()
            }
        }
    };
}

macro_rules! make_norm_integer {
    ($t:ty) => {
        impl ArgminL2Norm<$t> for Array1<$t> {
            #[inline]
            fn l2_norm(&self) -> $t {
                self.iter().map(|a| a.pow(2)).sum::<$t>().sqrt()
            }
        }
    };
}

macro_rules! make_norm_complex {
    ($i: ty, $t:ty) => {
        impl ArgminL2Norm<$t> for Array1<$i> {
            #[inline]
            fn l2_norm(&self) -> $t {
                self.iter().map(|a| a.norm_sqr()).sum::<$t>().sqrt()
            }
        }
    };
}

macro_rules! make_norm_unsigned {
    ($t:ty) => {
        impl ArgminL2Norm<$t> for Array1<$t> {
            #[inline]
            fn l2_norm(&self) -> $t {
                self.iter().map(|a| a.pow(2)).sum::<$t>().sqrt()
            }
        }
    };
}

make_norm_unsigned!(u8);
make_norm_unsigned!(u16);
make_norm_unsigned!(u32);
make_norm_unsigned!(u64);
make_norm_integer!(i8);
make_norm_integer!(i16);
make_norm_integer!(i32);
make_norm_integer!(i64);
make_norm_float!(f32);
make_norm_float!(f64);
make_norm_complex!(Complex<i8>, i8);
make_norm_complex!(Complex<i16>, i16);
make_norm_complex!(Complex<i32>, i32);
make_norm_complex!(Complex<i64>, i64);
make_norm_complex!(Complex<u8>, u8);
make_norm_complex!(Complex<u16>, u16);
make_norm_complex!(Complex<u32>, u32);
make_norm_complex!(Complex<u64>, u64);
make_norm_complex!(Complex<f32>, f32);
make_norm_complex!(Complex<f64>, f64);

// All code that does not depend on a linked ndarray-linalg backend can still be tested as normal.
// To avoid dublicating tests and to allow convenient testing of functionality that does not need ndarray-linalg the tests are still included here.
// The tests expect the name for the crate containing the tested functions to be argmin_math
#[cfg(test)]
use crate as argmin_math;
include!(concat!(
    env!("CARGO_MANIFEST_DIR"),
    "/ndarray-tests-src/l2norm.rs"
));