luhn-exercise: Small changes

exercism · Jul 15, 2024 · bafd1b2 · bafd1b2
1 parent 1bbd91d
commit bafd1b2
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/exercises/practice/luhn/.meta/examples/luhn.example.u b/exercises/practice/luhn/.meta/examples/luhn.example.u
@@ -3,7 +3,7 @@ luhn.isValid string =
   charList = toCharList string
   digitCharList = List.filter (Class.is Class.digit) charList
   match (charList |> any (not << isValidChar), 1 >= size digitCharList) with
-    (false, false) -> List.filter (Class.is Class.digit) charList
+    (false, false) -> digitCharList
                         |> map toDigit
                         |> checkSum
                         |> (s -> 0 == mod s 10)

diff --git a/exercises/practice/luhn/.meta/testAnnotation.json b/exercises/practice/luhn/.meta/testAnnotation.json
@@ -87,4 +87,4 @@
     "name": "luhn.isValid.tests.ex22",
     "test_code": "expect (false == luhn.isValid \"59%59\")\n    |> Test.label \"non-numeric, non-space char in the middle with a sum that's divisible by 10 isn't allowed\""
   }
-]
+]
-Original file line number
+Diff line change
@@ Expand Up / @@ -87,4 +87,4 @@ @@
         "name": "luhn.isValid.tests.ex22",
         "test_code": "expect (false == luhn.isValid \"59%59\")\n    |> Test.label \"non-numeric, non-space char in the middle with a sum that's divisible by 10 isn't allowed\""
       }
-    ]
+    ]