Data update

Task/JSON/Icon/json-1.icon

@@ -0,0 +1,8 @@
+import json  # Get the JSON package
+link ximage  # Used to display internal structures
+
+procedure main(A)
+   write(ximage(j := jtou(A[1])))  # JSON -> Unicon datatype
+   write(s := utoj(j))             # Unicon datatype -> JSON...
+   write(ximage(jtou(s)))          # ...and back again as as check
+end

Task/JSON/Icon/json-2.icon

@@ -0,0 +1,7 @@
+(var object       {:a 1 :b "Hello, world!" [1 2 3] :c}
+     serialised   (to-json object)
+     deserialised (from-json serialised))
+
+(print "Object:       " object)
+(print "Serialised:   " serialised)
+(str "Deserialised: " deserialised)