Re: Aufgabe::Rechteckige Matrizen

[Peter Pein <petsie@XXXXXXX.de>]

Au weia!

Manchmal stehe ich aber wirklich auf'm Schlauch:

In[18]:= {zeit,liste}=AbsoluteTiming[
Table[
Fold[DeleteDuplicates[Flatten[{#1,#1+#2}]]&,{0},Array[Prime,k]]//Length,
{k,35}]
]
Out[18]=
{0.029002,{2,4,7,12,23,36,53,72,95,124,155,192,233,276,323,376,435,496,563,
634,707,786,869,958,1055,1156,1259,1366,1475,1588,1715,1846,1983,2122,2271}}

ist selbstmurmelnd wesentlich schneller. Statt Array[Prime,k] kann im
Aufruf von Fold natÃŒrlich eine beliebige Menge stehen.

Noch'n GruÃ?,
 Peter