Moved productWithVector: and productWithMatrix:

Author: olekscode

src/Math-Core/Number.extension.st

@@ -11,3 +11,9 @@ Number >> addWithVector: aVector [
 	"Adds itself to each element of the vector"
 	^ aVector collect: [ :each | each + self ]
 ]
+
+{ #category : #'*Math-Core' }
+Number >> productWithVector: aVector [
+		"Answers a new vector product of the receiver with aVector."
+	^aVector collect: [ :each | each * self]
+]

src/Math-Matrix/Number.extension.st

@@ -0,0 +1,6 @@
+Extension { #name : #Number }
+
+{ #category : #'*Math-Matrix' }
+Number >> productWithMatrix: aMatrix [
+^aMatrix class rows: (aMatrix rowsCollect: [:r| self productWithVector: r])
+]