zju1093 monkey and banana 猴子和香蕉

有一班科学家正在设计一个测试猴子IQ的试验。他们把一只“banana”吊在天花板，而且同时给猴子一些箱子。如果猴子聪明的话，它们会把箱子一个个叠起来做成一个塔子来取得食物。科学家有n种箱子，而且每一种箱子都有好多个。第 i 种箱子有三维（xi,yi,zi)。箱子可以用它的任意一面作底面来摆放，也就是它的三维之中可以任选两条来做它的底面长和宽。科学家想确定箱子叠到最高的时候是可以到达天花板的。现在问题是，要叠起一个塔子，上下摆放的两个箱子，在上的箱子的底面长宽必须严格小于在下的箱子的底面长宽,留下些地方让猴子落脚来爬上去。也就是说，底面面积相等的箱子不能叠放。现在你的任务是利用所给定的箱子，决定塔子最高能达到的高度输入方式：

输入数据有多组测试数据。

每一组测试数据的第一行是一个整数n，表示不同三维的箱子的总数。n最大为30。

以下的n行每一行有三个正整数，表示该箱子的三维xi,yi和zi。

当n=0的时候输入结束。输出方式：
对应每组测试数据，输出一行包括数据组号case（从1开始）和塔子最高高度height，并按照一下格式： "Case case: maximum height = height" 

每个箱子有六个面，只有三种面，所以每个箱子我们可分成3中箱子，然后将箱子的横坐标排序即可。类似于dp求最长子序列。

code：

 

var
x,y,f,z:array[0..180] of longint;
n,ans,zzb:longint;

procedure qsort(L,r:Longint);
var i,j,m,t,mm:Longint;
begin
i:=l; j:=r; m:=x[(i+j) div 2]; mm:=y[(i+j) div 2];
repeat
while (x[i]>m) or ((x[i]=m) and (y[i]>mm)) do inc(i);
while (x[j]<m) or ((x[j]=m) and (y[j]<mm)) do dec(j);
if i<=j then
begin
t:=x[i]; x[i]:=x[j]; x[j]:=t;
t:=y[i]; y[i]:=y[j]; y[j]:=t;
t:=z[i]; z[i]:=z[j]; z[j]:=t;
inc(i); dec(j);
end;
until i>j;
if l<j then qsort(l,j);
if i<r then qsort(i,r);
end;

function max(a,b:longint):longint;
begin if a>b then exit(a); exit(b); end;

procedure init;
var i,j,k,a,b,c:longint;
begin
readln(n); zzb:=0;
while n<>0 do
begin
inc(zzb);
fillchar(f,sizeof(f),0);  ans:=0;
for i:=1 to n do
begin
readln(a,b,c);
x[i*6-5]:=b; y[i*6-5]:=a; z[i*6-5]:=c;
x[i*6-4]:=c; y[i*6-4]:=b; z[i*6-4]:=a;
x[i*6-3]:=a; y[i*6-3]:=c; z[i*6-3]:=b;
x[i*6-2]:=a; y[i*6-2]:=b; z[i*6-2]:=c;
x[i*6-1]:=b; y[i*6-1]:=c; z[i*6-1]:=a;
x[i*6]:=c;   y[i*6]:=a;   z[i*6]:=b;
end;
n:=6*n;
qsort(1,n);
f[1]:=z[1];
for i:=2 to n do
begin
for j:=1 to i-1 do
if ((x[i]<x[j]) and (y[i]<y[j])) then
f[i]:=max(f[i],f[j]);
f[i]:=f[i]+z[i];
ans:=max(ans,f[i]);
end;
writeln('Case ',zzb,': maximum height = ',ans);
readln(n);
end;
end;
begin
init;
end.