From 322d8de9f2d5a4b7159c72d36add03e29dcbe5c2 Mon Sep 17 00:00:00 2001
From: Drahflow <drahflow@gmx.de>
Date: Tue, 11 Mar 2014 18:35:06 +0100
Subject: (Slow) abstract data types

---
 examples/working-compiler/mapping.test | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 examples/working-compiler/mapping.test

(limited to 'examples/working-compiler/mapping.test')

diff --git a/examples/working-compiler/mapping.test b/examples/working-compiler/mapping.test
new file mode 100644
index 0000000..cf25036
--- /dev/null
+++ b/examples/working-compiler/mapping.test
@@ -0,0 +1,27 @@
+<
+  { .v -01 . } "#*" defmd
+  { -- [ 0 ] } "#in" defmd
+  { -- [ 0 ] } "#out" defmd
+  { .v keys } "#dom" defmd
+  { .v ==v =*f v keys { v -01 . f } each } "#each" defmd
+  { < < { defv }' > ==v "#=[]" =* > }
+> -- /map deffd
+
+map ==m
+
+0 "foo" m =[]
+1 "bar" m =[]
+2 "quux" m =[]
+
+"foo" m * dump
+"bar" m * dump
+"quux" m * dump
+
+m dom dump
+m { dump } each
+
+5 m mul ==mm
+
+"foo" mm * dump
+"bar" mm * dump
+"quux" mm * dump
-- 
cgit v1.2.3