10 lines
211 B
Text
10 lines
211 B
Text
Red [ "Dot product - hinjolicious" ]
|
|
|
|
#include %mylib/pipe-map.red
|
|
#include %mylib/transpose-zip.Red
|
|
|
|
demo "Dot product" [
|
|
a: [1 3 -5]
|
|
b: [4 -2 -1]
|
|
(reduce [a b]) |> zip ==> [_m/1 * _m/2] |> sum |> probe ; 3
|
|
]
|