program hufmtree;
const n=5;m=2*n-1;
type
node=record
data:integer;
prt,lch,rch:0..m;
end;
treetype=array[1..m] of node;
var
tree:treetype;
i,j,k,x:integer;
procedure hufm(var tree:treetype);
function min(h:integer):integer;
var m1,p,i:integer;
begin
m1:=32767;
for p:=1 to h do
if (tree[p].prt=0)and(m1>tree[p].data)
then begin
i:=p;m1:=tree[p].data;
end;
min:=i;
end;
begin
for k:=n+1 to m do
begin
i:=min(k-1);tree[i].prt:=k;tree[k].lch:=i;
j:=min(k-1);tree[j].prt:=k;tree[k].rch:=j;
tree[k].data:=tree[i].data+tree[j].data;
end;
end;
Begin
readln(x);
fillchar(tree,sizeof(tree),0);
for i:=1 to n do
read(tree[i].data);
hufm(tree);
for i:=1 to m do
writeln(tree[i].data);
End.
灵感就像飞鸟，强求不得却又会在不经意间出现，稍纵即逝。深陷工科院校，不动秃笔，思路难免就会江化。前几天，学校的萌芽文学社组织了一次征文活动，绞尽脑汁想了好久，却是丝毫没有想法，想必是好久没有看书的缘故。再也没有高中时一无所知却也敢侃侃而谈谈笑风生的勇气。
大学就像一座围城，外面的人想进来。里面的人想出去。还记得15年某个春天的中午，我走在市一中的外面，想着：“再过两个月我就可以离开这个地方了，不用三更眠五更起，告别理综和数学了。”毕业后我会再来这个地方，缅怀现在的感受！
也许是四月多吧，晚上大家经常写作业到很晚。有一天晚上，我坐在阳台上的桌子上，望着夜景下的市一中以北，我似乎还能想起当时的情景。东边是还未完工的大厦，西北方有一个信号塔一闪一闪地亮着红光。学习以及生活不遂人心，难免会有一些失望。当时给自己定下三个目标，最大的是去一所好的大学，然后是在下一次考试中有个好成绩，最小的一个就是明天怎么样怎么样，实在是忘记了。后来这三个目标实现了几个我也不是很记得了。但是当时对自己说：将来开心了不要忘了今天的自己今天的样子。手边的烟头忽明忽灭。高三一年是我抽烟最多的一年。毕业那一学期几个月每一天好几根是常态。香烟真是好东西，它会在你不开心的时候依然陪伴着你。世间没有什么还有比它更值得依赖的了。自己的不愉快告诉父母只会徒增他们的压力，和同学倾诉总是矫情，她他们也有自己的事情而不是你的情绪垃圾桶。或许有时候自己都背叛了自己。一根烟，明明暗暗之间，时光就会过去。烟可以安定自己的情绪，让你想要睡觉而不是像酒精一样让你更加亢奋。每个人的性格不同，有的就是生性忧郁，或许这只是我的一家之言。阿狸，记得那个时候非常喜欢阿狸，或许是精神上的寄托。大概我已经买全了所有的阿狸绘本，最后都送给了别人。也许我并非是喜欢阿狸，只是喜欢那种感觉。希望抑郁的人们可以早日走出生活的阴霾。感情总是不好处理，记得应该是高二下学期的时候，搬到了新的教学楼。非常不开心的日子，总是难过到几乎要疯狂。用痛觉来缓解心里的伤感，在自己手臂上用烟头烫出疤痕，当时似乎理解了那些自虐的人的想法。情殇易愈，心伤难合，但是会被时间冲淡。等到我几乎已经忘记了那些不愉快，而那个烫痕还在。幸好一个手环就可以掩盖它的存在，而不至于夏天还要裹上外套。也许很久以后等到它也愈合了，我就忘记那些时光了。压抑的心情难以排解，我会在大课间到操场上疯狂地奔跑一圈，看学弟学妹们玩耍，摘一片树叶，再回到教室把它一点一点撕碎。或许毕业了，我也就逃离了那个伤心之地。它彻底改名，本身也到远处，可是那份心伤还是埋藏在那个伤心的地方。也许把伤痕拿来回忆一遍，它就会愈合一点，等到很多次以后，她就不会在我睡觉的时候潜入到我的梦里，就不会让我在晚上伤心难过。或许每一份伤痕都会让自己更快的成长，但是代价或许有些昂贵。
那些走不到的路就算了，回忆就停在那里了。
网友评论