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

// 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::ArgminL1Norm;
use ndarray::Array1;
use num_complex::Complex;

macro_rules! make_l1norm {
    ($t:ty) => {
        impl ArgminL1Norm<$t> for Array1<$t> {
            #[inline]
            fn l1_norm(&self) -> $t {
                self.iter().map(|a| a.abs()).sum()
            }
        }
    };
}

macro_rules! make_l1norm_complex {
    ($i: ty, $t:ty) => {
        impl ArgminL1Norm<$t> for Array1<$i> {
            #[inline]
            fn l1_norm(&self) -> $t {
                self.iter().map(|a| a.l1_norm()).sum::<$t>().into()
            }
        }
    };
}

macro_rules! make_l1norm_unsigned {
    ($t:ty) => {
        impl ArgminL1Norm<$t> for Array1<$t> {
            #[inline]
            fn l1_norm(&self) -> $t {
                self.iter().sum()
            }
        }
    };
}

make_l1norm_unsigned!(u8);
make_l1norm_unsigned!(u16);
make_l1norm_unsigned!(u32);
make_l1norm_unsigned!(u64);
make_l1norm!(i8);
make_l1norm!(i16);
make_l1norm!(i32);
make_l1norm!(i64);
make_l1norm!(f32);
make_l1norm!(f64);
make_l1norm_complex!(Complex<i8>, i8);
make_l1norm_complex!(Complex<i16>, i16);
make_l1norm_complex!(Complex<i32>, i32);
make_l1norm_complex!(Complex<i64>, i64);
make_l1norm_complex!(Complex<u8>, u8);
make_l1norm_complex!(Complex<u16>, u16);
make_l1norm_complex!(Complex<u32>, u32);
make_l1norm_complex!(Complex<u64>, u64);
make_l1norm_complex!(Complex<f32>, f32);
make_l1norm_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/l1norm.rs"
));