1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

/// Create new 2d array with ones on the diagonal and zeros elsewhere
///
/// # Examples
///
/// ```
/// use arr_rs::prelude::*;
///
/// let arr: Result<Array<i32>, ArrayError> = array_eye!(2, 3, 3);
/// assert_eq!(vec![2, 3], arr.get_shape().unwrap());
/// let arr: Result<Array<i32>, ArrayError> = array_eye!(4, 5, 3);
/// assert_eq!(vec![4, 5], arr.get_shape().unwrap());
/// ```
#[macro_export]
macro_rules! array_eye {
    ($n:expr) => {
        array_eye!($n, $n, 0)
    };
    ($n:expr, $m:expr) => {
        array_eye!($n, $m, 0)
    };
    ($n:expr, $m:expr, $k:expr) => {{
        Array::eye($n, Some($m), Some($k))
    }};
}