examples/rosettacode: Added s_expression task

Signed-off-by: Lucas Bajolet <r4pass@hotmail.com>

diff --git a/examples/rosettacode/s_exp.nit b/examples/rosettacode/s_exp.nit
new file mode 100644 (file)
index 0000000..e44cec3
--- /dev/null
+++ b/examples/rosettacode/s_exp.nit
@@ -0,0 +1,23 @@
+#!/usr/bin/env nit
+#
+# This file is part of NIT ( http://www.nitlanguage.org ).
+# This program is public domain
+
+# Simple Rosetta-code task : Parsing a S-Expression
+module s_exp
+
+import sexp
+
+var src = """((data "quoted data" 123 4.5)
+(data (!@# (4.5) "(more" "data)")))"""
+
+var sexp = src.to_sexp
+
+if sexp isa SExpError then
+       print sexp
+       exit(1)
+end
+
+print sexp
+
+if sexp isa SExp then print sexp.pretty_to_s

diff --git a/tests/sav/s_exp.res b/tests/sav/s_exp.res
new file mode 100644 (file)
index 0000000..1ce7f52
--- /dev/null
+++ b/tests/sav/s_exp.res
@@ -0,0 +1,20 @@
+((data "quoted data" 123.00 4.50) (data (!@# (4.50) "(more" "data)")))
+(
+       (
+               data
+               "quoted data"
+               123.00
+               4.50
+       )
+       (
+               data
+               (
+                       !@#
+                       (
+                               4.50
+                       )
+                       "(more"
+                       "data)"
+               )
+       )
+)