Merge pull request #201 from rakki-18/master

add atRow: method for PMMatrix

Author: SergeStinckwich

src/Math-Matrix/PMMatrix.class.st

@@ -270,9 +270,9 @@ PMMatrix >> atAllPut: element [
 ]
 
 { #category : #'cell accessing' }
-PMMatrix >> atColumn: anInteger [
+PMMatrix >> atColumn: aColumnNumber [
 
-	^ self columnAt: anInteger
+	^ self columnAt: aColumnNumber
 ]
 
 { #category : #'cell accessing' }
@@ -311,6 +311,12 @@ PMMatrix >> atColumn: aColumnNumber put: aCollection startingAt: rowNumber [
 
 ]
 
+{ #category : #'cell accessing' }
+PMMatrix >> atRow: aRowNumber [
+	"answers the aRowNumber-th row in the receiver"
+	^ self rowAt: aRowNumber
+]
+
 { #category : #'cell accessing' }
 PMMatrix >> atRow: rowIndex put: aCollection [
 

src/Math-Tests-Matrix/PMMatrixTest.class.st

@@ -48,6 +48,16 @@ PMMatrixTest >> testAtColumnPutRepeat [
 	self assert: a equals: (PMMatrix rows: #(#(1 nil nil) #(1 nil nil) #(nil nil nil))).
 ]
 
+{ #category : #tests }
+PMMatrixTest >> testAtRow [
+
+	| a |
+	a := PMMatrix rows: #(#(1 2 3) #(2 3 4)).
+	
+	self assert: (a atRow: 2) equals: (#(2 3 4) asPMVector).
+	self assert: (a atRow: 1) equals: (#(1 2 3) asPMVector).	
+]
+
 { #category : #'linear algebra' }
 PMMatrixTest >> testAtRowPutAtColumnPut [
 	| a |