Add Array>>#fillFrom:with:

ba-st · Aug 8, 2023 · 0106ed8 · 0106ed8
1 parent 870b43a
commit 0106ed8
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/source/Buoy-Collections-GS64-Extensions/Array.extension.st b/source/Buoy-Collections-GS64-Extensions/Array.extension.st
@@ -0,0 +1,10 @@
+Extension { #name : #Array }
+
+{ #category : #'*Buoy-Collections-GS64-Extensions' }
+Array >> fillFrom: aCollection with: aBlock [
+
+	| index |
+	index := 0.
+	aCollection do: [ :each |
+		self at: (index := index + 1) put: (aBlock value: each) ]
+]