Simnplify

exercism · Mar 8, 2024 · f3f1956 · f3f1956
1 parent a59e59a
commit f3f1956
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/exercises/practice/matching-brackets/.meta/matching_brackets.example.pl b/exercises/practice/matching-brackets/.meta/matching_brackets.example.pl
@@ -1,4 +1,5 @@
 :- use_module(library(dcg/basics)).
+:- set_prolog_flag(double_quotes, chars).
 
 parentheses --> "(", balanced, ")".
 brackets    --> "[", balanced, "]".
@@ -8,9 +9,9 @@
 balanced --> non_bracket, balanced.
 balanced --> [].
 
-non_bracket --> [C], { string_codes("()[]{}", Codes), \+ member(C, Codes) }.
+non_bracket --> [C], { \+ member(C, "()[]{}") }.
 
 paired(String) :-
-    string_codes(String, Codes),
-    phrase(balanced, Codes),
+    string_chars(String, Chars),
+    phrase(balanced, Chars),
     !.