no more array insensitive dots as recent 8th update corrects array to…

… string conversion issue
exercism · Apr 29, 2024 · 240bf17 · 240bf17
1 parent e53aee8
commit 240bf17
Show file tree

Hide file tree

Showing 41 changed files with 82 additions and 404 deletions.
diff --git a/exercises/practice/acronym/libs/exercism/test b/exercises/practice/acronym/libs/exercism/test
@@ -12,13 +12,6 @@ true var, run-test
 
 \ Some utility words
 
-: array-insens-dot \ x --  \\ removes leading space on stringified arrays
-  dup >kind ns:a n:= 
-  if 
-    >s s:trim 
-  then 
-  .
-;
 
 : test-passed \ s x x --   \\ test name, expected value, actual value
     2drop
@@ -35,8 +28,8 @@ true var, run-test
     1 tests-failed n:+!
     rot
     con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr
-    "    Actual:    «" . array-insens-dot "»" . cr
-    "    Expected:  «" . array-insens-dot "»" . cr cr
+    "    Actual:    «" . . "»" . cr
+    "    Expected:  «" . . "»" . cr cr
 ;
 
 : isword?  \ x -- x f

diff --git a/exercises/practice/affine-cipher/libs/exercism/test b/exercises/practice/affine-cipher/libs/exercism/test
@@ -12,13 +12,6 @@ true var, run-test
 
 \ Some utility words
 
-: array-insens-dot \ x --  \\ removes leading space on stringified arrays
-  dup >kind ns:a n:= 
-  if 
-    >s s:trim 
-  then 
-  .
-;
 
 : test-passed \ s x x --   \\ test name, expected value, actual value
     2drop
@@ -35,8 +28,8 @@ true var, run-test
     1 tests-failed n:+!
     rot
     con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr
-    "    Actual:    «" . array-insens-dot "»" . cr
-    "    Expected:  «" . array-insens-dot "»" . cr cr
+    "    Actual:    «" . . "»" . cr
+    "    Expected:  «" . . "»" . cr cr
 ;
 
 : isword?  \ x -- x f

diff --git a/exercises/practice/armstrong-numbers/libs/exercism/test b/exercises/practice/armstrong-numbers/libs/exercism/test
@@ -12,13 +12,6 @@ true var, run-test
 
 \ Some utility words
 
-: array-insens-dot \ x --  \\ removes leading space on stringified arrays
-  dup >kind ns:a n:= 
-  if 
-    >s s:trim 
-  then 
-  .
-;
 
 : test-passed \ s x x --   \\ test name, expected value, actual value
     2drop
@@ -35,8 +28,8 @@ true var, run-test
     1 tests-failed n:+!
     rot
     con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr
-    "    Actual:    «" . array-insens-dot "»" . cr
-    "    Expected:  «" . array-insens-dot "»" . cr cr
+    "    Actual:    «" . . "»" . cr
+    "    Expected:  «" . . "»" . cr cr
 ;
 
 : isword?  \ x -- x f

diff --git a/exercises/practice/atbash-cipher/libs/exercism/test b/exercises/practice/atbash-cipher/libs/exercism/test
@@ -12,13 +12,6 @@ true var, run-test
 
 \ Some utility words
 
-: array-insens-dot \ x --  \\ removes leading space on stringified arrays
-  dup >kind ns:a n:= 
-  if 
-    >s s:trim 
-  then 
-  .
-;
 
 : test-passed \ s x x --   \\ test name, expected value, actual value
     2drop
@@ -35,8 +28,8 @@ true var, run-test
     1 tests-failed n:+!
     rot
     con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr
-    "    Actual:    «" . array-insens-dot "»" . cr
-    "    Expected:  «" . array-insens-dot "»" . cr cr
+    "    Actual:    «" . . "»" . cr
+    "    Expected:  «" . . "»" . cr cr
 ;
 
 : isword?  \ x -- x f

diff --git a/exercises/practice/bob/libs/exercism/test b/exercises/practice/bob/libs/exercism/test
@@ -12,13 +12,6 @@ true var, run-test
 
 \ Some utility words
 
-: array-insens-dot \ x --  \\ removes leading space on stringified arrays
-  dup >kind ns:a n:= 
-  if 
-    >s s:trim 
-  then 
-  .
-;
 
 : test-passed \ s x x --   \\ test name, expected value, actual value
     2drop
@@ -35,8 +28,8 @@ true var, run-test
     1 tests-failed n:+!
     rot
     con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr
-    "    Actual:    «" . array-insens-dot "»" . cr
-    "    Expected:  «" . array-insens-dot "»" . cr cr
+    "    Actual:    «" . . "»" . cr
+    "    Expected:  «" . . "»" . cr cr
 ;
 
 : isword?  \ x -- x f

diff --git a/exercises/practice/collatz-conjecture/libs/exercism/test b/exercises/practice/collatz-conjecture/libs/exercism/test
@@ -12,13 +12,6 @@ true var, run-test
 
 \ Some utility words
 
-: array-insens-dot \ x --  \\ removes leading space on stringified arrays
-  dup >kind ns:a n:= 
-  if 
-    >s s:trim 
-  then 
-  .
-;
 
 : test-passed \ s x x --   \\ test name, expected value, actual value
     2drop
@@ -35,8 +28,8 @@ true var, run-test
     1 tests-failed n:+!
     rot
     con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr
-    "    Actual:    «" . array-insens-dot "»" . cr
-    "    Expected:  «" . array-insens-dot "»" . cr cr
+    "    Actual:    «" . . "»" . cr
+    "    Expected:  «" . . "»" . cr cr
 ;
 
 : isword?  \ x -- x f

diff --git a/exercises/practice/darts/libs/exercism/test b/exercises/practice/darts/libs/exercism/test
@@ -12,13 +12,6 @@ true var, run-test
 
 \ Some utility words
 
-: array-insens-dot \ x --  \\ removes leading space on stringified arrays
-  dup >kind ns:a n:= 
-  if 
-    >s s:trim 
-  then 
-  .
-;
 
 : test-passed \ s x x --   \\ test name, expected value, actual value
     2drop
@@ -35,8 +28,8 @@ true var, run-test
     1 tests-failed n:+!
     rot
     con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr
-    "    Actual:    «" . array-insens-dot "»" . cr
-    "    Expected:  «" . array-insens-dot "»" . cr cr
+    "    Actual:    «" . . "»" . cr
+    "    Expected:  «" . . "»" . cr cr
 ;
 
 : isword?  \ x -- x f

diff --git a/exercises/practice/difference-of-squares/libs/exercism/test b/exercises/practice/difference-of-squares/libs/exercism/test
@@ -12,13 +12,6 @@ true var, run-test
 
 \ Some utility words
 
-: array-insens-dot \ x --  \\ removes leading space on stringified arrays
-  dup >kind ns:a n:= 
-  if 
-    >s s:trim 
-  then 
-  .
-;
 
 : test-passed \ s x x --   \\ test name, expected value, actual value
     2drop
@@ -35,8 +28,8 @@ true var, run-test
     1 tests-failed n:+!
     rot
     con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr
-    "    Actual:    «" . array-insens-dot "»" . cr
-    "    Expected:  «" . array-insens-dot "»" . cr cr
+    "    Actual:    «" . . "»" . cr
+    "    Expected:  «" . . "»" . cr cr
 ;
 
 : isword?  \ x -- x f

diff --git a/exercises/practice/eliuds-eggs/libs/exercism/test b/exercises/practice/eliuds-eggs/libs/exercism/test
@@ -12,13 +12,6 @@ true var, run-test
 
 \ Some utility words
 
-: array-insens-dot \ x --  \\ removes leading space on stringified arrays
-  dup >kind ns:a n:= 
-  if 
-    >s s:trim 
-  then 
-  .
-;
 
 : test-passed \ s x x --   \\ test name, expected value, actual value
     2drop
@@ -35,8 +28,8 @@ true var, run-test
     1 tests-failed n:+!
     rot
     con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr
-    "    Actual:    «" . array-insens-dot "»" . cr
-    "    Expected:  «" . array-insens-dot "»" . cr cr
+    "    Actual:    «" . . "»" . cr
+    "    Expected:  «" . . "»" . cr cr
 ;
 
 : isword?  \ x -- x f

diff --git a/exercises/practice/etl/libs/exercism/test b/exercises/practice/etl/libs/exercism/test
@@ -12,13 +12,6 @@ true var, run-test
 
 \ Some utility words
 
-: array-insens-dot \ x --  \\ removes leading space on stringified arrays
-  dup >kind ns:a n:= 
-  if 
-    >s s:trim 
-  then 
-  .
-;
 
 : test-passed \ s x x --   \\ test name, expected value, actual value
     2drop
@@ -35,8 +28,8 @@ true var, run-test
     1 tests-failed n:+!
     rot
     con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr
-    "    Actual:    «" . array-insens-dot "»" . cr
-    "    Expected:  «" . array-insens-dot "»" . cr cr
+    "    Actual:    «" . . "»" . cr
+    "    Expected:  «" . . "»" . cr cr
 ;
 
 : isword?  \ x -- x f

diff --git a/exercises/practice/flatten-array/libs/exercism/test b/exercises/practice/flatten-array/libs/exercism/test
@@ -12,13 +12,6 @@ true var, run-test
 
 \ Some utility words
 
-: array-insens-dot \ x --  \\ removes leading space on stringified arrays
-  dup >kind ns:a n:= 
-  if 
-    >s s:trim 
-  then 
-  .
-;
 
 : test-passed \ s x x --   \\ test name, expected value, actual value
     2drop
@@ -35,8 +28,8 @@ true var, run-test
     1 tests-failed n:+!
     rot
     con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr
-    "    Actual:    «" . array-insens-dot "»" . cr
-    "    Expected:  «" . array-insens-dot "»" . cr cr
+    "    Actual:    «" . . "»" . cr
+    "    Expected:  «" . . "»" . cr cr
 ;
 
 : isword?  \ x -- x f

diff --git a/exercises/practice/gigasecond/libs/exercism/test b/exercises/practice/gigasecond/libs/exercism/test
@@ -12,13 +12,6 @@ true var, run-test
 
 \ Some utility words
 
-: array-insens-dot \ x --  \\ removes leading space on stringified arrays
-  dup >kind ns:a n:= 
-  if 
-    >s s:trim 
-  then 
-  .
-;
 
 : test-passed \ s x x --   \\ test name, expected value, actual value
     2drop
@@ -35,8 +28,8 @@ true var, run-test
     1 tests-failed n:+!
     rot
     con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr
-    "    Actual:    «" . array-insens-dot "»" . cr
-    "    Expected:  «" . array-insens-dot "»" . cr cr
+    "    Actual:    «" . . "»" . cr
+    "    Expected:  «" . . "»" . cr cr
 ;
 
 : isword?  \ x -- x f

diff --git a/exercises/practice/grains/libs/exercism/test b/exercises/practice/grains/libs/exercism/test
@@ -12,20 +12,6 @@ true var, run-test
 
 \ Some utility words
 
-: array-insens-dot \ x --  \\ removes leading space on stringified arrays
-  dup >kind ns:a n:= 
-  if 
-    >s s:trim 
-  then 
-  .
-;
-
-: test-passed \ s x x --   \\ test name, expected value, actual value
-    2drop
-    1 tests-passed n:+!
-    con:green con:onBlack . space " ... OK" . con:white con:onBlack cr
-;
-
 : test-skipped \ s --
     1 tests-skipped n:+!
     con:cyan con:onBlack . space " ... SKIPPED" . con:white con:onBlack cr
@@ -35,8 +21,8 @@ true var, run-test
     1 tests-failed n:+!
     rot
     con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr
-    "    Actual:    «" . array-insens-dot "»" . cr
-    "    Expected:  «" . array-insens-dot "»" . cr cr
+    "    Actual:    «" . . "»" . cr
+    "    Expected:  «" . . "»" . cr cr
 ;
 
 : isword?  \ x -- x f

diff --git a/exercises/practice/hamming/libs/exercism/test b/exercises/practice/hamming/libs/exercism/test
@@ -12,13 +12,6 @@ true var, run-test
 
 \ Some utility words
 
-: array-insens-dot \ x --  \\ removes leading space on stringified arrays
-  dup >kind ns:a n:= 
-  if 
-    >s s:trim 
-  then 
-  .
-;
 
 : test-passed \ s x x --   \\ test name, expected value, actual value
     2drop
@@ -35,8 +28,8 @@ true var, run-test
     1 tests-failed n:+!
     rot
     con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr
-    "    Actual:    «" . array-insens-dot "»" . cr
-    "    Expected:  «" . array-insens-dot "»" . cr cr
+    "    Actual:    «" . . "»" . cr
+    "    Expected:  «" . . "»" . cr cr
 ;
 
 : isword?  \ x -- x f

diff --git a/exercises/practice/hello-world/libs/exercism/test b/exercises/practice/hello-world/libs/exercism/test
@@ -12,13 +12,6 @@ true var, run-test
 
 \ Some utility words
 
-: array-insens-dot \ x --  \\ removes leading space on stringified arrays
-  dup >kind ns:a n:= 
-  if 
-    >s s:trim 
-  then 
-  .
-;
 
 : test-passed \ s x x --   \\ test name, expected value, actual value
     2drop
@@ -35,8 +28,8 @@ true var, run-test
     1 tests-failed n:+!
     rot
     con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr
-    "    Actual:    «" . array-insens-dot "»" . cr
-    "    Expected:  «" . array-insens-dot "»" . cr cr
+    "    Actual:    «" . . "»" . cr
+    "    Expected:  «" . . "»" . cr cr
 ;
 
 : isword?  \ x -- x f