From 3af3ff908f625436091f6cac401b801297e50dcd Mon Sep 17 00:00:00 2001
From: Unknown <cicchetti.a@husky.neu.edu>
Date: Mon, 14 Aug 2017 15:58:48 -0400
Subject: [PATCH] Kotlin - Forth WIP

---
 kotlin/forth/README.md                        |  32 ++
 kotlin/forth/build.gradle                     |  28 ++
 .../forth/src/main/kotlin/ForthEvaluator.kt   |  19 +
 .../src/test/kotlin/ForthEvaluatorTest.kt     | 352 ++++++++++++++++++
 4 files changed, 431 insertions(+)
 create mode 100644 kotlin/forth/README.md
 create mode 100644 kotlin/forth/build.gradle
 create mode 100644 kotlin/forth/src/main/kotlin/ForthEvaluator.kt
 create mode 100644 kotlin/forth/src/test/kotlin/ForthEvaluatorTest.kt

diff --git a/kotlin/forth/README.md b/kotlin/forth/README.md
new file mode 100644
index 0000000..e68ee93
--- /dev/null
+++ b/kotlin/forth/README.md
@@ -0,0 +1,32 @@
+# Forth
+
+Implement an evaluator for a very simple subset of Forth.
+
+[Forth](https://en.wikipedia.org/wiki/Forth_%28programming_language%29)
+is a stack-based programming language. Implement a very basic evaluator
+for a small subset of Forth.
+
+Your evaluator has to support the following words:
+
+- `+`, `-`, `*`, `/` (integer arithmetic)
+- `DUP`, `DROP`, `SWAP`, `OVER` (stack manipulation)
+
+Your evaluator also has to support defining new words using the
+customary syntax: `: word-name definition ;`.
+
+To keep things simple the only data type you need to support is signed
+integers of at least 16 bits size.
+
+You should use the following rules for the syntax: a number is a
+sequence of one or more (ASCII) digits, a word is a sequence of one or
+more letters, digits, symbols or punctuation that is not a number.
+(Forth probably uses slightly different rules, but this is close
+enough.)
+
+Words are case-insensitive.
+
+
+
+
+## Submitting Incomplete Solutions
+It's possible to submit an incomplete solution so you can see how others have completed the exercise.
diff --git a/kotlin/forth/build.gradle b/kotlin/forth/build.gradle
new file mode 100644
index 0000000..16c36c0
--- /dev/null
+++ b/kotlin/forth/build.gradle
@@ -0,0 +1,28 @@
+buildscript {
+  ext.kotlin_version = '1.1.1'
+  repositories {
+    mavenCentral()
+  }
+  dependencies {
+    classpath "org.jetbrains.kotlin:kotlin-gradle-plugin:$kotlin_version"
+  }
+}
+
+apply plugin: 'kotlin'
+
+repositories {
+  mavenCentral()
+}
+
+dependencies {
+  compile "org.jetbrains.kotlin:kotlin-stdlib:$kotlin_version"
+
+  testCompile 'junit:junit:4.12'
+  testCompile "org.jetbrains.kotlin:kotlin-test-junit:$kotlin_version"
+}
+test {
+  testLogging {
+    exceptionFormat = 'full'
+    events = ["passed", "failed", "skipped"]
+  }
+}
diff --git a/kotlin/forth/src/main/kotlin/ForthEvaluator.kt b/kotlin/forth/src/main/kotlin/ForthEvaluator.kt
new file mode 100644
index 0000000..2dedfd2
--- /dev/null
+++ b/kotlin/forth/src/main/kotlin/ForthEvaluator.kt
@@ -0,0 +1,19 @@
+import java.util.*
+
+class ForthEvaluator {
+    val stack: Stack<Char> = Stack<Char>()
+    val overridenOperators = mutableMapOf<Char, Char>()
+
+    fun evaluateProgram(inpList: List<String>): List<Int>{
+        for (i in inpList){
+            val tokenized = i.toList().filter { it != ' ' }
+            for (i in tokenized){
+                stack.push(i)
+            }
+        }
+    }
+}
+
+fun main(args: Array<String>) {
+    print(ForthEvaluator().evaluateProgram(listOf("1 2 3 4")))
+}
\ No newline at end of file
diff --git a/kotlin/forth/src/test/kotlin/ForthEvaluatorTest.kt b/kotlin/forth/src/test/kotlin/ForthEvaluatorTest.kt
new file mode 100644
index 0000000..cdf5157
--- /dev/null
+++ b/kotlin/forth/src/test/kotlin/ForthEvaluatorTest.kt
@@ -0,0 +1,352 @@
+import org.junit.Before
+import org.junit.Ignore
+import org.junit.Rule
+import org.junit.Test
+import org.junit.rules.ExpectedException
+import kotlin.test.assertEquals
+
+/*
+ * version: 1.2.0
+ */
+class ForthEvaluatorTest {
+
+    @Rule
+    @JvmField
+    var expectedException: ExpectedException = ExpectedException.none()
+
+    private lateinit var forthEvaluator: ForthEvaluator
+
+    @Before
+    fun setUp() {
+        forthEvaluator = ForthEvaluator()
+    }
+
+    @Test
+    fun testEmptyProgramResultsInEmptyStack() {
+        assertEquals(
+                emptyList(),
+                forthEvaluator.evaluateProgram(emptyList()))
+    }
+
+    @Ignore
+    @Test
+    fun testNumbersAreJustPushedOntoTheStack() {
+        assertEquals(
+                listOf(1, 2, 3, 4, 5),
+                forthEvaluator.evaluateProgram(listOf("1 2 3 4 5")))
+    }
+
+    @Ignore
+    @Test
+    fun testTwoNumbersCanBeAdded() {
+        assertEquals(
+                listOf(3),
+                forthEvaluator.evaluateProgram(listOf("1 2 +")))
+    }
+
+    @Ignore
+    @Test
+    fun testErrorIfAdditionAttemptedWithNothingOnTheStack() {
+        expectedException.expect(IllegalArgumentException::class.java)
+        expectedException.expectMessage("Addition requires that the stack contain at least 2 values")
+
+        forthEvaluator.evaluateProgram(listOf("+"))
+    }
+
+    @Ignore
+    @Test
+    fun testErrorIfAdditionAttemptedWithOneNumberOnTheStack() {
+        expectedException.expect(IllegalArgumentException::class.java)
+        expectedException.expectMessage("Addition requires that the stack contain at least 2 values")
+
+        forthEvaluator.evaluateProgram(listOf("1 +"))
+    }
+
+    @Ignore
+    @Test
+    fun testTwoNumbersCanBeSubtracted() {
+        assertEquals(
+                listOf(-1),
+                forthEvaluator.evaluateProgram(listOf("3 4 -")))
+    }
+
+    @Ignore
+    @Test
+    fun testErrorIfSubtractionAttemptedWithNothingOnTheStack() {
+        expectedException.expect(IllegalArgumentException::class.java)
+        expectedException.expectMessage("Subtraction requires that the stack contain at least 2 values")
+
+        forthEvaluator.evaluateProgram(listOf("-"))
+    }
+
+    @Ignore
+    @Test
+    fun testErrorIfSubtractionAttemptedWithOneNumberOnTheStack() {
+        expectedException.expect(IllegalArgumentException::class.java)
+        expectedException.expectMessage("Subtraction requires that the stack contain at least 2 values")
+
+        forthEvaluator.evaluateProgram(listOf("1 -"))
+    }
+
+    @Ignore
+    @Test
+    fun testTwoNumbersCanBeMultiplied() {
+        assertEquals(
+                listOf(8),
+                forthEvaluator.evaluateProgram(listOf("2 4 *")))
+    }
+
+    @Ignore
+    @Test
+    fun testErrorIfMultiplicationAttemptedWithNothingOnTheStack() {
+        expectedException.expect(IllegalArgumentException::class.java)
+        expectedException.expectMessage("Multiplication requires that the stack contain at least 2 values")
+
+        forthEvaluator.evaluateProgram(listOf("*"))
+    }
+
+    @Ignore
+    @Test
+    fun testErrorIfMultiplicationAttemptedWithOneNumberOnTheStack() {
+        expectedException.expect(IllegalArgumentException::class.java)
+        expectedException.expectMessage("Multiplication requires that the stack contain at least 2 values")
+
+        forthEvaluator.evaluateProgram(listOf("1 *"))
+    }
+
+    @Ignore
+    @Test
+    fun testTwoNumbersCanBeDivided() {
+        assertEquals(
+                listOf(4),
+                forthEvaluator.evaluateProgram(listOf("12 3 /")))
+    }
+
+    @Ignore
+    @Test
+    fun testThatIntegerDivisionIsUsed() {
+        assertEquals(
+                listOf(2),
+                forthEvaluator.evaluateProgram(listOf("8 3 /")))
+    }
+
+    @Ignore
+    @Test
+    fun testErrorIfDividingByZero() {
+        expectedException.expect(IllegalArgumentException::class.java)
+        expectedException.expectMessage("Division by 0 is not allowed")
+
+        forthEvaluator.evaluateProgram(listOf("4 0 /"))
+    }
+
+    @Ignore
+    @Test
+    fun testErrorIfDivisionAttemptedWithNothingOnTheStack() {
+        expectedException.expect(IllegalArgumentException::class.java)
+        expectedException.expectMessage("Division requires that the stack contain at least 2 values")
+
+        forthEvaluator.evaluateProgram(listOf("/"))
+    }
+
+    @Ignore
+    @Test
+    fun testErrorIfDivisionAttemptedWithOneNumberOnTheStack() {
+        expectedException.expect(IllegalArgumentException::class.java)
+        expectedException.expectMessage("Division requires that the stack contain at least 2 values")
+
+        forthEvaluator.evaluateProgram(listOf("1 /"))
+    }
+
+    @Ignore
+    @Test
+    fun testCombinedAdditionAndSubtraction() {
+        assertEquals(
+                listOf(-1),
+                forthEvaluator.evaluateProgram(listOf("1 2 + 4 -")))
+    }
+
+    @Ignore
+    @Test
+    fun testCombinedMultiplicationAndDivision() {
+        assertEquals(
+                listOf(2),
+                forthEvaluator.evaluateProgram(listOf("2 4 * 3 /")))
+    }
+
+    @Ignore
+    @Test
+    fun testDupCopiesTheTopValueOnTheStack() {
+        assertEquals(
+                listOf(1, 1),
+                forthEvaluator.evaluateProgram(listOf("1 DUP")))
+    }
+
+    @Ignore
+    @Test
+    fun testDupParsingIsCaseInsensitive() {
+        assertEquals(
+                listOf(1, 2, 2),
+                forthEvaluator.evaluateProgram(listOf("1 2 Dup")))
+    }
+
+    @Ignore
+    @Test
+    fun testErrorIfDuplicatingAttemptedWithNothingOnTheStack() {
+        expectedException.expect(IllegalArgumentException::class.java)
+        expectedException.expectMessage("Duplicating requires that the stack contain at least 1 value")
+
+        forthEvaluator.evaluateProgram(listOf("dup"))
+    }
+
+    @Ignore
+    @Test
+    fun testDropRemovesTheTopValueOnTheStackIfItIsTheOnlyOne() {
+        assertEquals(
+                emptyList(),
+                forthEvaluator.evaluateProgram(listOf("1 drop")))
+    }
+
+    @Ignore
+    @Test
+    fun testDropRemovesTheTopValueOnTheStackIfItIsNotTheOnlyOne() {
+        assertEquals(
+                listOf(1),
+                forthEvaluator.evaluateProgram(listOf("1 2 drop")))
+    }
+
+    @Ignore
+    @Test
+    fun testErrorIfDroppingAttemptedWithNothingOnTheStack() {
+        expectedException.expect(IllegalArgumentException::class.java)
+        expectedException.expectMessage("Dropping requires that the stack contain at least 1 value")
+
+        forthEvaluator.evaluateProgram(listOf("drop"))
+    }
+
+    @Ignore
+    @Test
+    fun testSwapSwapsTheTopTwosValueOnTheStackIfTheyAreTheOnlyOnes() {
+        assertEquals(
+                listOf(2, 1),
+                forthEvaluator.evaluateProgram(listOf("1 2 swap")))
+    }
+
+    @Ignore
+    @Test
+    fun testSwapSwapsTheTopTwosValueOnTheStackIfTheyAreNotTheOnlyOnes() {
+        assertEquals(
+                listOf(1, 3, 2),
+                forthEvaluator.evaluateProgram(listOf("1 2 3 swap")))
+    }
+
+    @Ignore
+    @Test
+    fun testErrorIfSwappingAttemptedWithNothingOnTheStack() {
+        expectedException.expect(IllegalArgumentException::class.java)
+        expectedException.expectMessage("Swapping requires that the stack contain at least 2 values")
+
+        forthEvaluator.evaluateProgram(listOf("swap"))
+    }
+
+    @Ignore
+    @Test
+    fun testErrorIfSwappingAttemptedWithOneNumberOnTheStack() {
+        expectedException.expect(IllegalArgumentException::class.java)
+        expectedException.expectMessage("Swapping requires that the stack contain at least 2 values")
+
+        forthEvaluator.evaluateProgram(listOf("1 swap"))
+    }
+
+    @Ignore
+    @Test
+    fun testOverCopiesTheSecondElementIfThereAreOnlyTwo() {
+        assertEquals(
+                listOf(1, 2, 1),
+                forthEvaluator.evaluateProgram(listOf("1 2 over")))
+    }
+
+    @Ignore
+    @Test
+    fun testOverCopiesTheSecondElementIfThereAreMoreThanTwo() {
+        assertEquals(
+                listOf(1, 2, 3, 2),
+                forthEvaluator.evaluateProgram(listOf("1 2 3 over")))
+    }
+
+    @Ignore
+    @Test
+    fun testErrorIfOveringAttemptedWithNothingOnTheStack() {
+        expectedException.expect(IllegalArgumentException::class.java)
+        expectedException.expectMessage("Overing requires that the stack contain at least 2 values")
+
+        forthEvaluator.evaluateProgram(listOf("over"))
+    }
+
+    @Ignore
+    @Test
+    fun testErrorIfOveringAttemptedWithOneNumberOnTheStack() {
+        expectedException.expect(IllegalArgumentException::class.java)
+        expectedException.expectMessage("Overing requires that the stack contain at least 2 values")
+
+        forthEvaluator.evaluateProgram(listOf("1 over"))
+    }
+
+    @Ignore
+    @Test
+    fun testUserDefinedOperatorsCanConsistOfBuiltInOperators() {
+        assertEquals(
+                listOf(1, 1, 1),
+                forthEvaluator.evaluateProgram(listOf(": dup-twice dup dup ;", "1 dup-twice")))
+    }
+
+    @Ignore
+    @Test
+    fun testUserDefinedOperatorsAreEvaluatedInTheCorrectOrder() {
+        assertEquals(
+                listOf(1, 2, 3),
+                forthEvaluator.evaluateProgram(listOf(": countup 1 2 3 ;", "countup")))
+    }
+
+    @Ignore
+    @Test
+    fun testCanRedefineAUserDefinedOperator() {
+        assertEquals(
+                listOf(1, 1, 1),
+                forthEvaluator.evaluateProgram(listOf(": foo dup ;", ": foo dup dup ;", "1 foo")))
+    }
+
+    @Ignore
+    @Test
+    fun testCanOverrideBuiltInWordOperators() {
+        assertEquals(
+                listOf(1, 1),
+                forthEvaluator.evaluateProgram(listOf(": swap dup ;", "1 swap")))
+    }
+
+    @Ignore
+    @Test
+    fun testCanOverrideBuiltInArithmeticOperators() {
+        assertEquals(
+                listOf(12),
+                forthEvaluator.evaluateProgram(listOf(": + * ;", "3 4 +")))
+    }
+
+    @Ignore
+    @Test
+    fun testCannotRedefineNumbers() {
+        expectedException.expect(IllegalArgumentException::class.java)
+        expectedException.expectMessage("Cannot redefine numbers")
+
+        forthEvaluator.evaluateProgram(listOf(": 1 2 ;"))
+    }
+
+    @Ignore
+    @Test
+    fun testErrorIfEvaluatingAnUndefinedOperator() {
+        expectedException.expect(IllegalArgumentException::class.java)
+        expectedException.expectMessage("No definition available for operator \"foo\"")
+
+        forthEvaluator.evaluateProgram(listOf("foo"))
+    }
+
+}