strings as seqs

1 files changed, 28 insertions, 0 deletions

diff --git a/chunk.d b/chunk.d
index 47d3c73..08ba003 100644
--- a/chunk.d
+++ b/chunk.d
@@ -48,6 +48,34 @@ abstract class Seq {
     abstract int length();
 }
 
+class String : Seq {
+    string str;
+
+    this(Value value) {
+        this.str = value.as.str;
+    }
+
+    this(string str) {
+        this.str = str;
+    }
+
+    override Value first() {
+        return makeStringValue(to!string(this.str[0]));
+    }
+
+    override Seq rest() {
+        return new String(this.str[1..$]);
+    }
+
+    override int length() {
+        return to!int(str.length);
+    }
+
+    override string toString() {
+        return format("\"%s\"", this.str);
+    }
+}
+
 class List : Seq {
     Value[] inner;