9 lines
307 B
Text
9 lines
307 B
Text
fcn tri(lim,a=3,b=4,c=5){
|
|
p:=a + b + c;
|
|
if(p>lim) return(0,0);
|
|
T(1,lim/p).zipWith('+,
|
|
tri(lim, a - 2*b + 2*c, 2*a - b + 2*c, 2*a - 2*b + 3*c),
|
|
tri(lim, a + 2*b + 2*c, 2*a + b + 2*c, 2*a + 2*b + 3*c),
|
|
tri(lim, -a + 2*b + 2*c, -2*a + b + 2*c, -2*a + 2*b + 3*c)
|
|
);
|
|
}
|