Moved addWithVector: from PMVector to ArrayedCollection

Author: olekscode

src/Math-Core/ArrayedCollection.extension.st

@@ -0,0 +1,15 @@
+Extension { #name : #ArrayedCollection }
+
+{ #category : #'*Math-Core' }
+ArrayedCollection >> addWithVector: aVector [
+	"Answers the sum of the receiver with aVector."
+	| answer n |
+	answer := self class new: self size.
+	n := 0.
+	self with: aVector do:
+		[ :a :b | 
+		  n := n + 1. 
+		  answer at: n put: ( a + b).
+		].
+	^ answer
+]

src/Math-Core/PMVector.class.st

@@ -113,20 +113,6 @@ PMVector >> accumulateNegated: aVectorOrAnArray [
 	1 to: self size do: [ :n | self at: n put: ((self at: n) - (aVectorOrAnArray at: n))].
 ]
 
-{ #category : #operation }
-PMVector >> addWithVector: aVector [
-	"Answers the sum of the receiver with aVector."
-	| answer n |
-	answer := self class new: self size.
-	n := 0.
-	self with: aVector do:
-		[ :a :b | 
-		  n := n + 1. 
-		  answer at: n put: ( a + b).
-		].
-	^answer
-]
-
 { #category : #converting }
 PMVector >> asArray [
 

src/Math-Tests-DHB-Numerical/PMVectorTest.class.st

@@ -6,10 +6,32 @@ Class {
 
 { #category : #tests }
 PMVectorTest >> testAddScalar [
-	| u |
-	u := #(1 2 3) asPMVector.
-	self assert: u + 2 equals: #(3 4 5) asPMVector.
-	self assert: 2 + u equals: #(3 4 5) asPMVector.
+	"Can we add Number to PMVector?"
+	
+	| vec num actual expected |
+	
+	vec := #(1 2 3) asPMVector.
+	num := 4.
+	
+	actual := vec + num.
+	expected := #(5 6 7) asPMVector.
+	
+	self assert: actual equals: expected.
+]
+
+{ #category : #tests }
+PMVectorTest >> testAddToScalar [
+	"Can we add PMVector to Number?"
+	
+	| num vec actual expected |
+	
+	num := 4.
+	vec := #(1 2 3) asPMVector.
+	
+	actual := num + vec.
+	expected := #(5 6 7) asPMVector.
+	
+	self assert: actual equals: expected.
 ]
 
 { #category : #tests }