tasks a-s

Task/S-Expressions/PicoLisp/s-expressions-1.l

@@ -0,0 +1,21 @@
+: (any "((data \"quoted data\" 123 4.5) (data (!@# (4.5) \"(more\" \"data)\")))")
+-> ((data "quoted data" 123 5) (data (!@# (5) "(more" "data)")))
+
+: (view @)
++---+-- data
+|   |
+|   +-- "quoted data"
+|   |
+|   +-- 123
+|   |
+|   +-- 5
+|
++---+-- data
+    |
+    +---+-- !@#
+        |
+        +---+-- 5
+        |
+        +-- "(more"
+        |
+        +-- "data)"

Task/S-Expressions/PicoLisp/s-expressions-2.l

@@ -0,0 +1,26 @@
+(de readSexpr ()
+   (case (skip)
+      ("(" (char) (readList))
+      ("\"" (char) (readString))
+      (T (readAtom)) ) ) )
+
+(de readList ()
+   (make
+      (loop
+         (NIL (skip))
+         (T (= @ ")") (char))
+         (link (readSexpr)) ) ) )
+
+(de readString ()
+   (pack
+      (make
+         (until (= "\"" (or (peek) (quit "Unterminated string")))
+            (link (char)) )
+         (char) ) ) )
+
+(de readAtom ()
+   (let X
+      (make
+         (until (or (sp? (peek)) (member (peek) '("(" ")")))
+            (link (char)) ) )
+      (or (format X) (intern (pack X))) ) )

Task/S-Expressions/PicoLisp/s-expressions-3.l

@@ -0,0 +1,2 @@
+: (pipe (prin "((data \"quoted data\" 123 4.5) (data (!@# (4.5) \"(more\" \"data)\")))") (readSexpr))
+-> ((data "quoted data" 123 5) (data (!@# (5) "(more" "data)")))

Task/S-Expressions/PicoLisp/s-expressions-4.l

@@ -0,0 +1,2 @@
+: (sym @@)
+-> "((data \"quoted data\" 123 5) (data (!@# (5) \"(more\" \"data)\")))"

Task/S-Expressions/PicoLisp/s-expressions-5.l

@@ -0,0 +1,14 @@
+(de printSexpr (Expr Fun)
+   (cond
+      ((pair Expr)
+         (Fun "(")
+         (printSexpr (car Expr) Fun)
+         (for X (cdr Expr)
+            (Fun " ")
+            (printSexpr X Fun) )
+         (Fun ")") )
+      ((str? Expr)
+         (Fun "\"")
+         (mapc Fun (chop Expr))
+         (Fun "\"") )
+      (T (mapc Fun (chop Expr))) ) )

Task/S-Expressions/PicoLisp/s-expressions-6.l

@@ -0,0 +1,4 @@
+: (printSexpr
+   '((data "quoted data" 123 4.5) (data (!@# (4.5) "(more" "data)")))
+   prin )
+((data "quoted data" 123 5) (data (!@# (5) "(more" "data)")))

Task/S-Expressions/PicoLisp/s-expressions-7.l

@@ -0,0 +1,6 @@
+: (pack
+   (make
+      (printSexpr
+         '((data "quoted data" 123 4.5) (data (!@# (4.5) "(more" "data)")))
+         link ) ) )
+-> "((data \"quoted data\" 123 5) (data (!@# (5) \"(more\" \"data)\")))"