diff --git a/exercises/practice/matching-brackets/.meta/matching_brackets.example.pl b/exercises/practice/matching-brackets/.meta/matching_brackets.example.pl index a8fd00a1..a23a1c7d 100644 --- 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), !. \ No newline at end of file