Anonymous user
Power set: Difference between revisions
no edit summary
No edit summary |
No edit summary |
||
Line 154:
next result = cond string(
when element eq ``
then |{ result
when strlen( element ) eq 1 and element ne `∅`
then |{ result
else |{ result
r_string = replace(
Line 173:
data(set3) = new set( value stringtab( ( `1` ) ( `2` ) ( `3` ) ( `3` ) ( `4` ) ( `4` ) ( `4` ) ) ).
write
perform build_powerset using set1
changing result_set.
Line 180:
new-line.
write
perform build_powerset using set2
changing result_set.
Line 187:
new-line.
write
perform build_powerset using set3
changing result_set.
Line 203:
do lines( powerset_elements ) times.
if powerset_elements[ sy-index ] ne `∅`.
append |{ powerset_elements[ sy-index ]
else.
append element to powerset_elements.
| |||