Here is the corresponding patch for the missing hashUpdate!.
Can I commit?

Ralf

-- 
You received this message because you are subscribed to the Google Groups 
"FriCAS - computer algebra system" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to [email protected].
To post to this group, send email to [email protected].
To view this discussion on the web visit 
https://groups.google.com/d/msgid/fricas-devel/87fad0f1-48fc-0b8f-5517-e568be61b842%40hemmecke.org.
For more options, visit https://groups.google.com/d/optout.
>From ebac638ae156ee8bf3f5f0b1a427eb14936cdc4c Mon Sep 17 00:00:00 2001
From: Ralf Hemmecke <[email protected]>
Date: Sun, 24 Feb 2019 00:12:57 +0100
Subject: add hashUpdate! to InnerIndexedTwoDimensionalArray

---
 src/algebra/array2.spad | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/src/algebra/array2.spad b/src/algebra/array2.spad
index 225a1fa8..f8918615 100644
--- a/src/algebra/array2.spad
+++ b/src/algebra/array2.spad
@@ -1102,6 +1102,14 @@ InnerIndexedTwoDimensionalArray(R, mnRow, mnCol, Row, Col) : _
               if j < maxColIndex(m) then s := concat(s, " & ")$String
             if i < maxRowIndex(m) then s := concat(s, " \\ ")$String
           concat(s, "\end{array} \right]")$String
+        hashUpdate!(s : HashState, m : %) : HashState ==
+          i : Integer
+          j : Integer
+          for i in minRowIndex(m)..maxRowIndex(m) repeat
+            for j in minColIndex(m)..maxColIndex(m) repeat
+              s := hashUpdate!(s, qelt(m, i, j))$R
+          s
+
 
 )abbrev domain IARRAY2 IndexedTwoDimensionalArray
 IndexedTwoDimensionalArray(R, mnRow, mnCol) : Exports == Implementation where
-- 
2.17.1

Reply via email to