Merge pull request #30 from lucretiomsp/map-funtion

Map function
lucretiomsp · May 13, 2024 · 5172590 · 5172590
2 parents 69b1f83 + e7b3763
commit 5172590
Show file tree

Hide file tree

Showing 2 changed files with 19 additions and 0 deletions.
diff --git a/src/Coypu/Interval.extension.st b/src/Coypu/Interval.extension.st
@@ -0,0 +1,8 @@
+Extension { #name : #Interval }
+
+{ #category : #'*Coypu' }
+Interval >> map: value to: range [
+
+	^ value - self first / (self last - self first)
+	  * (range last - range first) + range first
+]
diff --git a/src/Coypu/IntervalTest.extension.st b/src/Coypu/IntervalTest.extension.st
@@ -0,0 +1,11 @@
+Extension { #name : #IntervalTest }
+
+{ #category : #'*Coypu' }
+IntervalTest >> testMapTo [
+
+	self assert: ((0 to: 10) map: 1 to: (10 to: 20)) equals: 11.
+	self assert: ((0 to: 10) map: 5 to: (0 to: 100)) equals: 50.
+
+	self assert: ((0 to: 10) map: 20 to: (0 to: 100)) equals: 200.
+	self assert: ((0 to: 10) map: -1 to: (0 to: 100)) equals: -10
+]