This programm prints the number of partitions of weight up to 199.
As you know this is big number, and the result for e.g. a=150
will be no longer
an INTEGER object as for a=10, but a LONGINTobject.
#include "def.h"
#include "macro.h"
main()
{
INT i;
OP a,b;
anfang();
a = callocobject();
b = callocobject();
for (i=1L;i<200L;i++)
{
freeself(a); freeself(b); /* a,b are now empty objects */
M_I_I(i,a);
numberofpart(a,b);
/* b is the number of partitions of weight a */
print (a) ; println(b);
}
freeall(a);
freeall(b);
ende();
}
Send comments or suggestions to:
symmetrica (at) symmetrica
this page was automatically generated on So Aug 10 12:23:24 CEST 2008 on the machine btn6xa