From ef8a66a2f5474ad2e433c3b7f6fccbde2e6edc3c Mon Sep 17 00:00:00 2001
From: Márton Polgár <37218286+2colours@users.noreply.github.com>
Date: Sun, 16 Nov 2025 21:36:09 +0100
Subject: Add files via upload

---
 challenge-347/2colours/prolog/ch-2.p | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 challenge-347/2colours/prolog/ch-2.p

diff --git a/challenge-347/2colours/prolog/ch-2.p b/challenge-347/2colours/prolog/ch-2.p
new file mode 100644
index 0000000000..a5bc91ba35
--- /dev/null
+++ b/challenge-347/2colours/prolog/ch-2.p
@@ -0,0 +1,12 @@
+:- use_module(library(dcg/basics)).
+:- use_module(library(dcg/high_order)).
+:- use_module(library(clpfd)).
+
+chunk(Chunk) --> { length(Chunk, 3) ; length(Chunk, 2) }, string(Chunk).
+
+task(Str, Result) :-
+        re_replace("[ -]"/g, "", Str, Str_Stripped),
+        string_codes(Str_Stripped, Codes_Stripped),
+        once(phrase(sequence(chunk, Chunks), Codes_Stripped)),
+        phrase(sequence(chunk, `-`, Chunks), Result_Codes),
+        string_codes(Result, Result_Codes).
-- 
cgit