A start on Joy types.

diff --git a/implementations/Elm/src/Joy.elm b/implementations/Elm/src/Joy.elm
new file mode 100644 (file)
index 0000000..5d5c641
--- /dev/null
+++ b/implementations/Elm/src/Joy.elm
@@ -0,0 +1,25 @@
+module Joy exposing (joyTermToString)
+
+
+type JoyType
+    = Symbol String
+    | Integer Int
+    | JoyList (List JoyType)
+    | JoyTrue
+    | JoyFalse
+
+
+joyTermToString : JoyType -> String
+joyTermToString term =
+    case term of
+        Symbol name ->
+            name
+        Integer n ->
+            String.fromInt n
+        JoyTrue ->
+            "true"
+        JoyFalse ->
+            "false"
+        JoyList list ->
+            "[" ++ (String.join " " (List.map joyTermToString list)) ++ "]"
+