Merge pull request #1 from PolyMathOrg/adding-first-norm

Add first norm and test

src/Math-Vector-Tests/PMVectorTest.class.st

@@ -217,6 +217,21 @@ PMVectorTest >> testVectorCumulativeSum [
 	self assert: (w at: 3) equals: 6
 ]
 
+{ #category : #tests }
+PMVectorTest >> testVectorFirstNorm [
+
+	| v1 v2 v3 |
+	v1 := #( 1 0 ) asPMVector.
+	self assert: v1 firstNorm equals: 1.
+	v2 := #( 1 1 ) asPMVector.
+	self assert: v2 firstNorm equals: 2.
+	v3 := #( -1 1 ) asPMVector.
+	self assert: v3 firstNorm equals: 2.
+
+	self assert: (v1 + v2) firstNorm equals: 3.
+	self assert: (v2 + v3) firstNorm equals: 2
+]
+
 { #category : #tests }
 PMVectorTest >> testVectorGreater [
 

src/Math-Vector/PMVector.class.st

@@ -181,6 +181,13 @@ PMVector >> cumsum [
 
 ]
 
+{ #category : #operation }
+PMVector >> firstNorm [
+	"Answer the first norm of the receiver."
+
+	^ self inject: 0 into: [ :accu :e | accu + e abs ]
+]
+
 { #category : #operation }
 PMVector >> hadamardProduct: aVector [
 	"Answers the elementwise product of the receiver with aVector."
@@ -252,10 +259,12 @@ PMVector >> normalized [
 { #category : #operation }
 PMVector >> productWithVector: aVector [
 	"Answers the scalar product of aVector with the receiver."
+
 	| n |
 	n := 0.
-	^self inject: 0
-			into: [ :sum :each | n := n + 1. (aVector at: n) * each + sum]
+	^ self inject: 0 into: [ :sum :each |
+		n := n + 1.
+		(aVector at: n) * each + sum ]
 ]
 
 { #category : #operation }