Initial data commit

Task/Binary-strings/Picat/binary-strings-2.picat

@@ -0,0 +1,16 @@
+main =>
+  println(member=findall(C,(member(C,S1), C @< 'l') )),
+
+  % find substrings using append/3
+  S = "string",
+  println(append=findall([A,B],append(A,B,S))),
+  % split around "r"
+  println(append=findall([A,B],append(A,"r",B,S))),
+
+  % select a character and returns the list without that character
+  println(select=findall([C,NewS],select(C,S,NewS))),
+
+  % list comprehension
+  println(list_comprehension=[ C : C in S5, membchk(C,"aeiou")]),
+  % sort and remove duplicates
+  println(sort_remove_dups=sort_remove_dups(S5)).