26 lines
496 B
Elm
26 lines
496 B
Elm
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)) ++ "]"
|
|
|