Pythagorean triples: Difference between revisions

imported>Maxima enthusiast
No edit summary
imported>Maxima enthusiast
Line 3,345:
/* Test case */
/* With the function param_pythag as it is some non primitive triples are missing, but not the primitives */
sublist(param_pythag(6),lambda([x],primitivep(x) and perim(x)<=100)),;
block(
 
sublist(param_pythag(6),lambda([x],perim(x)<=100)),
sublist(%%,primitivep));
 
/* The number of triples, primitive or not, can be recovered from the primitives */