int main()
{
project1();
program2();
project3();
return 0;
}
void tests() {
cout << "Running tests..." << endl;
TEST("1", 1);
TEST("1 + 2", 3);
TEST("1 - 2", -1);
TEST("2 * 3", 6);
TEST("10 / 5", 2);
TEST("2 == 2", 1);
TEST("2 == 3", 0);
TEST("2 != 3", 1);
TEST("2 != 2", 0);
TEST("1 < 2", 1);
TEST("2 < 1", 0);
TEST("3 > 1", 1);
TEST("3 > 10", 0);
TEST("c(1,2)", 1, 2);
TEST("c(1, 2, 3)", 1, 2, 3);
TEST("c(1, 2) + c(3, 4)", 4, 6);
TEST("c(1, 2) - c(2, 1)", -1, 1);
TEST("c(2, 3) * c(3, 4)", 6, 12);
TEST("c(10, 9) / c(2, 3)", 5, 3);
TEST("c(1,2) == c(3, 4)", 0, 0);
TEST("c(1,2) == c(1, 4)", 1, 0);
TEST("c(1,2) == c(3, 2)", 0, 1);
TEST("c(1,2) == c(1, 2)", 1, 1);
TEST("c(1,2) != c(3, 4)", 1, 1);
TEST("c(1,2) != c(1, 4)", 0, 1);
TEST("c(1,2) != c(3, 2)", 1, 0);
TEST("c(1,2) != c(1, 2)", 0, 0);
TEST("c(1,2) < c(3,4)", 1, 1);
TEST("c(1,2) < c(2, 1)", 1, 0);
TEST("c(3,4) > c(5, 6)", 0, 0);
TEST("c(1,2,3) < 2", 1, 0, 0);
TEST("c(1,2,3) + c(1,2)", 2, 4, 4);
TEST("\"a\"", "a");
TEST("\"foo\" + \"bar\"", "foobar");
TEST("\"aba\" == \"aca\"", 1, 0, 1);
TEST("\"aba\" == c(1,2)", 0);
TEST("\"aba\" != c(1,2)", 1);
TEST("a = 1 a", 1);
TEST("a = 1 a = a + 2 a", 3);
TEST("a = 1 a = a - a a", 0);
TEST("a = 2 a = a * 3 a", 6);
TEST("a = 20 a / 4", 5);
TEST("a = 1 b = 2 a < b", 1);
TEST("a = 1 a = c(a, a)", 1, 1);
TEST("type(1)", "double");
TEST("type(\"a\")", "character");
TEST("type(function() { 1 })", "function");
TEST("length(1)", 1);
TEST("length(\"aba\")", 3);
TEST("length(\"\")", 0);
TEST("a = 1 if (a) { 1 } else { 2 }", 1);
TEST("a = 1 b = 1 if (a) { b = 2 } b", 2);
TEST("a = 0 b = 1 if (a) { b = 2 } b", 1);
TEST("a = 10 b = 0 while (a > 0) { b = b + 1 a = a - 1 } c(a, b)", 0, 10);
TEST("f = function() { 1 } f()", 1);
TEST("f = function(a, b) { a + b } f(1, 2)", 3);
TEST("f = function() { a + b } a = 1 b = 2 f()", 3);
TEST("f = function() { a = 1 a } a = 2 c(f(), a)", 1, 2);
TEST("a = c(1, 2, 3) a[1]", 2);
TEST("a = \"aba\" a[c(0,2)]", "aa");
TEST("a = c(1,2,3) a[c(0,1)] = 56 a", 56, 56, 3);
project2();
project3();
project4();
project5();
project6();
}
