![]() ![]() | ![]() |
1.1 ! bertrand 1: #!/usr/local/bin/rpl -sp -m sets.rplso ! 2: ! 3: TEST ! 4: << ! 5: "sets.rplso" use ! 6: ! 7: -> L ! 8: << ! 9: ([ 1 2 3 4 5 6 7 8 9 ]) ([ 3 6 8 ]) complement disp ! 10: ([ 1 2 8 9 ]) ([ 3 6 8 ]) union disp ! 11: ([ 1 2 8 9 ]) ([ 3 6 ]) intersection disp ! 12: ! 13: L remove ! 14: >> ! 15: >>