# Bildung von Teilmengen

## Problembeschreibung

******************************************
Dokumentnummer: D1312
******************************************

Für eine Menge mit n-Elementen soll die Menge aller Teilmengen
bestimmt werden. Diese wiederum soll zerlegt werden in die
Menge der Teilmengen mit k Elementen, k = 0,1,...,n

## Problemlösung

EINGABE

M:read("Gib eine Menge ein");

VERARBEITUNG

P:powerset(M);

n:length(M);

for i:0 thru n do print(subset(P,lambda([e],is(cardinality(e)=i))));

tm:makelist(subset(P,lambda([e],is(cardinality(e)=i))),i,0,n);

transpose(tm);

ntm:makelist(cardinality(tm[i]),i,1,n+1);