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