maxPer=22；maxSide=楼层[（maxPer-1）/2]；顺序[{a_，b_，c}]：=（a+b+c）*maxPer^3+a*maxPer ^2+b*maxPer+c；三角形=Reap[Do[If[a+b+c<=maxPer&&c-b<a<c+b&&b-a<c<b+a&&c-a<b<c+a，Sow[{a，b，c}]]，{a，1，maxSide}，{b，a，maxSider}，}，[c，b，maxSied}][[2，1]]；排序[三角形，顺序[#1]<顺序[#2]和][[All，3]](*让-弗朗索瓦·奥尔科弗2012年6月12日*）
m=55（*最大周长*）；
最大每小时 = 米 = 22; sides[per_]：=选择[反向/@IntegerPartitions[per，｛3｝，范围[ 上限[per/2]]]，#[[1]]<per/2&#[2]]<per/2&#[[3]]<per/2&]； 三角形 = 删除案例[表[边[每], {每, 三, 米}], {}] // 压扁[#, 1]& // 排序依据[总计[#] 米^三 + #[[1]] 米^2 + #[[2]] 米 + #[[1]]&]; 三角形[[全部, 三]] (* _牛仔-弗朗索瓦 阿尔科弗_, 七月 09 2017 *)
三角形=删除事例[表[sides[per]，{per，3，m}]，{}]//平展[#，1]//SortBy[Total[#]m^3+#[1]]m^2+#[2]]m+#[1]]；
三角形[[全部，3]](*让-弗朗索瓦·奥尔科弗2017年7月9日*）
