Merge pull request #8900 from razetime/razetime-239

razetime challenge 239 raku and prolog solutions

5 files changed, 32 insertions, 0 deletions

diff --git a/challenge-239/razetime/README b/challenge-239/razetime/README
new file mode 100644
index 0000000000..29a919e5c3
--- /dev/null
+++ b/challenge-239/razetime/README
@@ -0,0 +1 @@
+Solution by razetime
diff --git a/challenge-239/razetime/prolog/ch-1.pl b/challenge-239/razetime/prolog/ch-1.pl
new file mode 100644
index 0000000000..ddeb4f911d
--- /dev/null
+++ b/challenge-239/razetime/prolog/ch-1.pl
@@ -0,0 +1,6 @@
+:- use_module(library(lists)).
+ch1(A,B):-append(A,R),append(B,R).
+
+?- ch1(["ab","c"],["a","bc"]).
+?- ch1(["ab","c"],["ac","b"]).
+?- ch1(["ab","cd","e"],["abcde"]).
diff --git a/challenge-239/razetime/prolog/ch-2.pl b/challenge-239/razetime/prolog/ch-2.pl
new file mode 100644
index 0000000000..391ad3599d
--- /dev/null
+++ b/challenge-239/razetime/prolog/ch-2.pl
@@ -0,0 +1,12 @@
+:- use_module(library(lists)).
+:- use_module(library(reif)).
+:- use_module(library(ordsets)).
+:- use_module(library(clpz)).
+
+ss_reif(A,B,true):-ord_subset(A,B).
+ss_reif(_,_,false).
+
+ch2_([],_,0).
+ch2_([X|S],A,R):-if_(ss_reif(X,A),(R#=Q+1,ch2_(S,A,Q)),ch2_(S,A,R)).
+
+ch2(S,A,R):-maplist(sort,S,T),sort(A,B),ch2_(T,B,R).
diff --git a/challenge-239/razetime/raku/ch-1.raku b/challenge-239/razetime/raku/ch-1.raku
new file mode 100644
index 0000000000..694c342ab2
--- /dev/null
+++ b/challenge-239/razetime/raku/ch-1.raku
@@ -0,0 +1,5 @@
+sub ch1{([~] $^a)===([~] $^b)}
+
+say ch1(("ab", "c"),("a", "bc")); # true
+say ch1(("ab", "c"),("ac", "b")); # false
+say ch1(("ab", "cd", "e"),("abcde")); # true
diff --git a/challenge-239/razetime/raku/ch-2.raku b/challenge-239/razetime/raku/ch-2.raku
new file mode 100644
index 0000000000..70af7f9d20
--- /dev/null
+++ b/challenge-239/razetime/raku/ch-2.raku
@@ -0,0 +1,8 @@
+sub ch2(@a,$b){ 
+  my @c=$b.split("",:skip-empty); 
+  @a.map({.split("",:skip-empty)}).grep({$_ (<=)@c}).elems  
+}
+
+say ch2(("ad", "bd", "aaab", "baa", "badab"),"ab");
+say ch2(("a", "b", "c", "ab", "ac", "bc", "abc"),"abc");
+say ch2(("cc", "acd", "b", "ba", "bac", "bad", "ac", "d"),"cad");