Add Perl, Basic, C, C++, Forth and Pyhton solutions to challenge 096

2 files changed, 192 insertions, 0 deletions

diff --git a/challenge-096/paulo-custodio/cpp/ch-1.cpp b/challenge-096/paulo-custodio/cpp/ch-1.cpp
new file mode 100644
index 0000000000..34f4d79c73
--- /dev/null
+++ b/challenge-096/paulo-custodio/cpp/ch-1.cpp
@@ -0,0 +1,42 @@
+/*
+Challenge 096
+
+TASK #1 › Reverse Words
+Submitted by: Mohammad S Anwar
+You are given a string $S.
+
+Write a script to reverse the order of words in the given string. The string 
+may contain leading/trailing spaces. The string may have more than one space 
+between words in the string. Print the result without leading/trailing spaces 
+and there should be only one space between words.
+
+Example 1:
+Input: $S = "The Weekly Challenge"
+Output: "Challenge Weekly The"
+*/
+
+#include <iostream>
+#include <string>
+#include <vector>
+#include <sstream>
+
+int main(int argc, char* argv[]) {
+	// concatenate all args
+	std::string text;
+	for (int i = 1; i < argc; i++) {
+		text += argv[i];
+		text += " ";
+	}
+	
+	// build list of words
+	std::vector<std::string> words;
+	std::istringstream iss(text);
+	std::string word;
+	while (iss >> word) 
+		words.push_back(word);
+	
+	// print words in reverse order
+	for (auto it = words.rbegin(); it != words.rend(); ++it)
+		std::cout << *it << " ";
+	std::cout << std::endl;
+}
diff --git a/challenge-096/paulo-custodio/cpp/ch-2.cpp b/challenge-096/paulo-custodio/cpp/ch-2.cpp
new file mode 100644
index 0000000000..4e545c85a5
--- /dev/null
+++ b/challenge-096/paulo-custodio/cpp/ch-2.cpp
@@ -0,0 +1,150 @@
+/*
+Challenge 096
+
+TASK #2 › Edit Distance
+Submitted by: Mohammad S Anwar
+You are given two strings $S1 and $S2.
+
+Write a script to find out the minimum operations required to convert $S1
+into $S2. The operations can be insert, remove or replace a character. Please
+check out Wikipedia page for more information.
+
+Example 1:
+Input: $S1 = "kitten"; $S2 = "sitting"
+Output: 3
+
+Operation 1: replace 'k' with 's'
+Operation 2: replace 'e' with 'i'
+Operation 3: insert 'g' at the end
+Example 2:
+Input: $S1 = "sunday"; $S2 = "monday"
+Output: 2
+
+Operation 1: replace 's' with 'm'
+Operation 2: replace 'u' with 'o'
+
+NOTE: the  Wagner-Fischer Distance algorithm builds a table of distances 
+		from which the operations can be deduced
+*/
+
+#include <algorithm>
+#include <iostream>
+#include <string>
+#include <vector>
+#include <cassert>
+#include <climits>
+
+int min3(int a, int b, int c) {
+	return std::min(a, std::min(b, c));
+}
+
+enum class Dir { None, E, S, SE };
+
+void wag_fis_dist(const std::string& a, const std::string& b) {
+	size_t len_a = a.size();
+	size_t len_b = b.size();
+	
+	// define a table where d[i][j] is the Levenshtein distance between 
+	// first i chars of a and first j chars of b
+	std::vector<std::vector<int>> d;
+	d.resize(len_a+1);
+	for (size_t i = 0; i <= len_a; i++) {
+		d[i].resize(len_b+1);
+	}
+
+	// source prefixes can be transformed into empty string by dropping chars
+	for (size_t i = 1; i <= len_a; i++)
+		d[i][0] = i;
+
+	// target prefixes can be reached from empty source prefix by inserting chars
+	for (size_t j = 1; j <= len_b; j++)
+		d[0][j] = j;
+
+	// flood-fill the rest of the table
+	for (size_t j = 1; j <= len_b; j++) {
+		for (size_t i = 1; i <= len_a; i++) {
+			int subst_cost = (a[i-1] == b[j-1]) ? 0 : 1;
+			d[i][j] = min3(d[i-1][j]+1,				// deletion
+						   d[i][j-1]+1,				// insertion
+						   d[i-1][j-1]+subst_cost);	// substitution
+		}
+	}
+	
+	// distance is in lower bottom cell
+	std::cout << d[len_a][len_b] << std::endl;
+	
+	// traverse the minimum path
+	size_t i = 0, j = 0, step = 0;
+	while (i < len_a || j < len_b) {
+		Dir min_dir = Dir::None, dir;
+		int min_delta = INT_MAX, delta;
+		
+		// search shortest path in priority SE, E, S
+		if (i < len_a && j < len_b) {
+			dir = Dir::SE;
+			delta = d[i+1][j+1] - d[i][j];
+			if (delta < min_delta) {
+				min_dir = dir;
+				min_delta = delta;
+			}
+		}
+		
+		if (j < len_b) {
+			dir = Dir::E;
+			delta = d[i][j+1] - d[i][j];
+			if (delta < min_delta) {
+				min_dir = dir;
+				min_delta = delta;
+			}
+		}
+			
+		if (i < len_a) {
+			dir = Dir::S;
+			delta = d[i+1][j] - d[i][j];
+			if (delta < min_delta) {
+				min_dir = dir;
+				min_delta = delta;
+			}
+		}
+
+		// apply shortest path and show steps
+		switch (min_dir) {
+		case Dir::SE:
+			i++; j++;
+			if (a[i-1] != b[j-1]) {
+				std::cout << "Operation " << ++step << ": replace '" 
+						  << a[i-1] << "' with '" << b[j-1] << "'" << std::endl;
+			}
+			break;
+		case Dir::E:
+			j++;
+			if (j == len_b)
+				std::cout << "Operation " << ++step << ": insert '" 
+						  << b[j-1] << "' at end" << std::endl;
+			else
+				std::cout << "Operation " << ++step << ": insert '" 
+						  << b[j-1] << "' at position " << j << std::endl;
+			break;
+		case Dir::S:
+			i++;
+			if (i == len_a)
+				std::cout << "Operation " << ++step << ": delete '" 
+						  << a[i-1] << "' at end" << std::endl;
+			else
+				std::cout << "Operation " << ++step << ": delete '" 
+						  << a[i-1] << "' at position " << i << std::endl;
+			break;
+		default:
+			assert(0);
+		}
+	}	
+}
+
+int main(int argc, char* argv[]) {
+	if (argc != 3) {
+		std::cerr << "Usage: ch-2 s1 s2" << std::endl;
+		return EXIT_FAILURE;
+	}
+	
+	wag_fis_dist(argv[1], argv[2]);
+}