mv util functions to different namespace

Dyalog · Feb 5, 2024 · 245950d · 245950d
1 parent 94b0681
commit 245950d
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 5 deletions.
diff --git a/tests/unique.apln b/tests/unique.apln
@@ -1,14 +1,13 @@
 :Namespace unique
     Assert←#.unittest.Assert
+    ⍝ util functions
+    shuffle←#.utils.shuffle
+    intertwine←#.utils.intertwine
+    hashArray←#.utils.hashArray
 
     ⍝ modelUnion←{⍺,(∧/⍺≢¨⍵)/⍵} ⍝ model function for union (X∪Y) (used to model unique)
     model←{0=≢⍵:⍵ ⋄ ↑,⊃{⍺,(∧/⍺≢¨⍵)/⍵}⍨/⌽⊂¨⊂⍤¯1⊢⍵} ⍝ model function for unique
 
-    ⍝ util functions
-    shuffle←{⊂⍤?⍨∘≢⌷⍵}              ⍝ completely Random shuffle
-    intertwine←{(⊂⍋∊⍳∘≢¨⍺ ⍵)⌷⍺⍪⍵}   ⍝ perfectly intertwine two arrays
-    hashArray←1500⌶
-
     ∇ tRes←tData RunVariations exp ;actualR;actualRE;expectedR;expectedRE;ele;rarg;tID;tCmt;shape;actualRS;shapeW0;actualRSW0;expectedRS;expectedRSW0
         (expectedR rarg)←exp
         (tID tCmt)←tData

diff --git a/utils.apln b/utils.apln
@@ -0,0 +1,5 @@
+:Namespace utils
+    shuffle←{⊂⍤?⍨∘≢⌷⍵}              ⍝ completely Random shuffle
+    intertwine←{(⊂⍋∊⍳∘≢¨⍺ ⍵)⌷⍺⍪⍵}   ⍝ perfectly intertwine two arrays
+    hashArray←1500⌶                 ⍝ pre-hash array
+:EndNamespace