update,

task1/SCC_212_Advanced_Programming_Weeks_7/cw.erl

@@ -0,0 +1,35 @@
+-module(cw).
+-import(string,[len/1, substr/3]).
+-import(maps,[foreach/2]).
+-export([start/0, test_find/2, ttt/5, checkMatch/3, find_patterns/2]). 
+
+checkMatch(Test, Wanted, CheckPos) when Test == Wanted -> 
+    CheckPos -1;
+checkMatch(Test, Wanted, CheckPos) when Test /= Wanted -> 
+    "".
+
+ttt(Data, Pattern, DataLength, PatternLength, StartPos) when StartPos >= (DataLength - (PatternLength -1)) ->
+    checkMatch(substr(Data,StartPos,PatternLength), Pattern, StartPos);
+ttt(Data, Pattern, DataLength, PatternLength, StartPos) when StartPos < (DataLength - (PatternLength -1)) ->
+    [checkMatch(substr(Data,StartPos,PatternLength), Pattern, StartPos)| ttt(Data, Pattern, DataLength, PatternLength, StartPos+1)].
+
+test_find(Data, Pattern) ->
+    DataLength = len(Data),
+    PatternLength = len(Pattern),
+    ttt(Data,Pattern, DataLength, PatternLength, 1).
+
+
+test_helloworld(Data, []) -> 
+    "";
+test_helloworld(Data, [H|T]) ->
+    [test_find(Data, H) | test_helloworld(Data, T)].
+
+find_patterns(Data, Pattern) ->
+    io:format(Pattern).
+
+start() -> 
+    io:format("~p~n",[test_helloworld("AAA",["AA"])]),
+    io:format("~p~n",[test_helloworld("AAA",["AA", "AC"])]),
+    io:format("~p~n",[test_helloworld("AAC",["AA", "AC"])]),
+    io:format("~p~n~n",[test_helloworld("AAAAAAAAAAAAAAACCCAAAAAAAAAAAAACCCA",["CC", "CCC"])]),
+    io:format("done~n").