109
edits
Changes
Jump to navigation
Jump to search
no edit summary
'''Solução:'''
Como de costume, Maple é demasiado poderoso para resolver somente uma única instância do problema geral sugerido por esta questão. Nós fornecemos aqui um procedimento muito simples que irá calcular todas as relações em qualquer conjunto finito.
<pre>
AllRelations := proc(S::set)
local s, t, # indices into S
C; # Cartesian product SxS
C := {};
for s in S do
for t in S do
C := C union [s,t];
od;
od;
combinat[powerset](C);
end:
</pre>
