rpl/modules/sets/example.rpl - diff

Return to example.rpl CVS log

Up to [local] / rpl / modules / sets

-version 1.2, 2017/07/04 12:32:37
+version 1.3, 2017/07/30 21:59:02
  Line 2
  TEST
  <<
-     "sets.rplso" use
+     externals disp
-     -> L
+     ([ 1 2 3 4 5 6 7 8 9 ]) ([ 3 6 8 ]) complement disp
-     <<
+     ([ 1 2 8 9 ]) ([ 3 6 8 ]) union disp
-         ([ 1 2 3 4 5 6 7 8 9 ]) ([ 3 6 8 ]) complement disp
+     ([ 1 2 8 9 ]) ([ 3 6 ]) intersection disp
-         ([ 1 2 8 9 ]) ([ 3 6 8 ]) union disp
-         ([ 1 2 8 9 ]) ([ 3 6 ]) intersection disp
-         L remove
+     ([ 1 2 3 0 ]) disp
-     >>
+     ([ 1 2 3 5 ]) s->l disp
+     { 1 2 2 5 1 2 } l->s disp
+     clmf
  >>