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
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257

#[macro_export]
/// Creates a tensor dot product function
///
/// # Example
///
/// ```rust

/// #![feature(try_from)]
///
/// #[macro_use]
/// use tensor_macros::*;
/// use tensor_macros::tensor::*;
///
/// tensor!(T243: 2 x 4 x 3);
/// tensor!(M43: 4 x 3 x 1);
/// tensor!(V2: 2 x 1);
///
/// dot!(T243: 2 x 4 x 3 * M43: 4 x 3 x 1 -> V2: 2 x 1);
///
/// let l = T243([
///     0, 1, 2, 3,
///     4, 5, 6, 7,
///     
///     8, 9, 10, 11,
///     12, 13, 14, 15,
///
///     16, 17, 18, 19,
///     20, 21, 22, 23,
/// ]);
/// let r = M43([
///     0, 1, 2,
///     3, 4, 5,
///     6, 7, 8,
///     9, 10, 11
/// ]);
/// assert_eq!(l * r, V2([506, 1298]));
/// ```
macro_rules! dot {
    ($lhs:ident: $($l_dim:literal)x+ * $rhs:ident: $($r_dim:literal)x+ -> $out:ident: $($o_dim:literal)x+) => {
        impl<T, U, V> std::ops::Mul<$rhs<U>> for $lhs<T>
        where
            T: tensor_macros::traits::TensorTrait + std::ops::Mul<U, Output=V>,
            U: tensor_macros::traits::TensorTrait,
            V: tensor_macros::traits::TensorTrait,
        {
            type Output = $out<V>;

            fn mul(self, rhs: M43<U>) -> Self::Output {
                let mut out = $out::<V>::new();

                // TODO:
                // Generate Left, Shared and Right from dims

                // split!(self, rhs, out; 2, 4, 3; 1; ; 3, 4; ; 1; 2;);
                split!(self, rhs, out; $($l_dim),*; $($r_dim),*; $($o_dim),*;;;;;);
                // make_dot!(self, rhs, out; 2; 4, 3;; ; ; );

                out
            }
        }
    };
}

#[macro_export]
macro_rules! split {
    // left; right; output; right rev; count; out right; out left; out right rev
    // l    ; r    ; o      ; rr   ; c  ; or     ; ol; orr
    // 2 4 3; 3 2 1; 2 4 2 1;
    // 2 4 3;   2 1;     2 1; 3    ; 2  ; 2 4    ;
    // 2 4 3;     1;        ; 2 3  ; 2 2; 2 4 2 1;
    // 2 4 3;      ;        ; 1 2 3;   2;   4 2 1; 2
    // 2 4 3;      ;        ; 1 2 3;    ;     2 1; 2 4
    // 2 4 3;      ;        ; 1 2 3;    ;       1; 2 4; 2
    // 2 4 3;      ;        ; 1 2 3;    ;        ; 2 4; 1 2

    // 2 4 3; 4 3 1; 2 1;
    // 2 4 3;   3 1;    ;     4; 2; 2 1;  ;
    // 2 4 3;     1;    ;   3 4;  ;   1; 2;
    // 2 4 3;      ;    ; 1 3 4;  ;    ; 2; 1
    ($($i:ident),*;
        $($ls:literal),*; $r:literal $(,$rs:literal)*; $o1:literal, $o2:literal $(,$os:literal)*;
        $($rr:literal),*;
        $($c:literal),*; $($or:literal),*;;) => {
        split!($($i),*;
            $($ls),*; $($rs),*; $($os),*;
            $r $(,$rr)*;
            $($c,)* $o1; $($or,)* $o1, $o2;;
        );
    };

    ($($i:ident),*;
        $($ls:literal),*;; $o1:literal, $o2:literal $(,$os:literal)*;
        $($rr:literal),*;
        $($c:literal),*; $($or:literal),*;;) => {
        split!($($i),*;
            $($ls),*;; $($os),*;
            $($rr),*;
            $($c,)* $o1; $($or,)* $o1, $o2;;
        );
    };

    ($($i:ident),*;
        $($ls:literal),*; $r:literal $(,$rs:literal)*;;
        $($rr:literal),*;
        $c1:literal $(,$c:literal)*; $or1:literal $(,$or:literal)*; $($ol:literal),*;) => {
        split!($($i),*;
            $($ls),*; $($rs),*;;
            $r $(,$rr)*;
            $($c),*; $($or),*; $($ol,)* $or1;
        );
    };

    ($($i:ident),*;
        $($ls:literal),*;;;
        $($rr:literal),*;
        $c1:literal $(,$c:literal)*; $or1:literal $(,$or:literal)*; $($ol:literal),*;) => {
        split!($($i),*;
            $($ls),*;;;
            $($rr),*;
            $($c),*; $($or),*; $($ol,)* $or1;
        );
    };

    ($($i:ident),*;
        $($ls:literal),*; $r:literal $(,$rs:literal)*;;
        $($rr:literal),*;
        ; $or1:literal $(,$or:literal)*; $($ol:literal),*; $($orr:literal),*) => {
        split!($($i),*;
            $($ls),*; $($rs),*;;
            $r $(,$rr)*;
            ; $($or),*; $($ol),*; $or1 $(,$orr)*
        );
    };

    ($($i:ident),*;
        $($ls:literal),*;;;
        $($rr:literal),*;
        ; $or1:literal $(,$or:literal)*; $($ol:literal),*; $($orr:literal),*) => {
        split!($($i),*;
            $($ls),*;;;
            $($rr),*;
            ; $($or),*; $($ol),*; $or1 $(,$orr)*
        );
    };

    ($($i:ident),*;
        $($ls:literal),*; $r:literal $(,$rs:literal)*;;
        $($rr:literal),*;
        ;; $($ol:literal),*; $($orr:literal),*) => {
        split!($($i),*;
            $($ls),*; $($rs),*;;
            $r $(,$rr)*;
            ;; $($ol),*; $($orr),*
        );
    };

    ($($i:ident),*;
        $($ls:literal),*;;;
        $($rr:literal),*;
        ;; $($ol:literal),*; $($orr:literal),*) => {
        split!(~ $($i),*;
            $($ls),*;
            $($rr),*;
            $($ol),*; $($orr),*;;;
        );
    };

    // Actually performing the split
    // 2, 4, 3 * 3, 2, 1 -> 2, 4, 2, 1
    // 2, 4, 3 | 1, 2, 3 | 2, 4 | 1, 2 |      |      |
    //    4, 3 |    2, 3 |    4 |    2 | 2    |    1 |
    //       3 |       3 |      |      | 2, 4 | 2, 1 |   |
    //         |         |      |      | 2, 4 | 2, 1 | 3 |
    (~ $($i:ident),*;
        $l1:literal $(,$l:literal)*;
        $r1:literal $(,$r:literal)*;
        $ol1:literal $(,$ol:literal)*;
        $or1:literal $(,$or:literal)*;
        $($ld:literal),*; $($rd:literal),*;) => {
        split!(~ $($i),*;
            $($l),*;
            $($r),*;
            $($ol),*; $($or),*;
            $($ld,)* $l1;
            $r1 $(,$rd)*;
        );
    };
    (~ $($i:ident),*;
        $l1:literal $(,$l:literal)*;
        $r1:literal $(,$r:literal),*;
        ;;
        $($ld:literal),*; $($rd:literal),*;
        $($sd:literal),*) => {
        split!(~ $($i),*;
            $($l),*;
            $($r),*;
            ;;
            $($ld),*; $($rd),*;
            $($sd,)* $l1
        );
    };
    (~ $($i:ident),*;
        ;;
        ;;
        $($ld:literal),*; $($rd:literal),*;
        $($sd:literal),*) => {
        make_dot!($($i),*; $($ld),*; $($sd),*; $($rd),*;;;);
    }
}

#[macro_export]
macro_rules! make_dot {
    ($l:ident, $r:ident, $o:ident; $d:literal $(,$ld:literal)*; $($sd:literal),*; $($rd:literal),*; $($lv:ident),*; $($sv:ident),*; $($rv:ident),*) => {
        for i in 0..$d {
            make_dot!($l, $r, $o; $($ld),*; $($sd),*; $($rd),*; $($lv,)* i; $($sv),*; $($rv),*);
        }
    };
    ($l:ident, $r:ident, $o:ident; ; $d:literal $(,$sd:literal)*; $($rd:literal),*; $($lv:ident),*; $($sv:ident),*; $($rv:ident),*) => {
        for j in 0..$d {
            make_dot!($l, $r, $o; ; $($sd),*; $($rd),*; $($lv),*; $($sv,)* j; $($rv),*);
        }
    };
    ($l:ident, $r:ident, $o:ident; ;; $d:literal $(,$rd:literal)*; $($lv:ident),*; $($sv:ident),*; $($rv:ident),*) => {
        for k in 0..$d {
            make_dot!($l, $r, $o; ;; $($rd),*; $($lv),*; $($sv),*; $($rv,)* k);
        }
    };
    ($l:ident, $r:ident, $o:ident; ;;; $($lv:ident),+; $($sv:ident),+; $($rv:ident),*) => {
        $o[($($lv),* $(,$rv),*)] += $l[($($lv),* $(,$sv)*)] * $r[($($sv,)* $($rv),*)]
    };
    ($l:ident, $r:ident, $o:ident; ;;;; $($sv:ident),+; $($rv:ident),+) => {
        $o[($($rv),*)] += $l[($($lv,)* $($sv)*)] * $r[($($sv),* $(,$rv)*)]
    };
    ($l:ident, $r:ident, $o:ident; ;;;; $($sv:ident),+;) => {
        $o += $l[($($lv),* $(,$sv)*)] * $r[($($sv,)* $($rv),*)]
    };
}

#[cfg(test)]
mod tests {
    use crate as tensor_macros;

    tensor!(T243: 2 x 4 x 3);
    tensor!(M43: 4 x 3 x 1);
    tensor!(V2: 2 x 1);

    dot!(T243: 2 x 4 x 3 * M43: 4 x 3 x 1 -> V2: 2 x 1);

    #[test]
    fn dot() {
        let l = T243([
            0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23,
        ]);
        let r = M43([0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11]);
        assert_eq!(l * r, V2([506, 1298]));
    }
}