Add Product>>⨰

shingarov · Oct 14, 2023 · d9c6186 · d9c6186
1 parent 54c407c
commit d9c6186
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 0 deletions.
diff --git a/MachineArithmetic-MathNotation/Object.extension.st b/MachineArithmetic-MathNotation/Object.extension.st
@@ -23,3 +23,8 @@ Object >> ≅ [ anObject
 Object >> ⊛ [ Fa
 	^Fa collect: self
 ]
+
+{ #category : #'*MachineArithmetic-MathNotation' }
+Object >> ⨰ [ rhs
+	^(Product with: self) ⨰ rhs
+]
diff --git a/MachineArithmetic-MathNotation/Product.class.st b/MachineArithmetic-MathNotation/Product.class.st
@@ -49,3 +49,11 @@ Product >> ≅ [ rhs
 	self = rhs ifTrue: [^true].
 	^self = (Product with: rhs)
 ]
+
+{ #category : #monoid }
+Product >> ⨰ [ C
+	"Non-associative version of #×.
+	 This is useful, for example, when deserializing data coming on the wire
+	 from ML, because in ML, (string*string)*string ≠ string*(string*string)."
+	^self, (Product with: C)
+]