Hofstadter2:=进程(N)本地h,dh,ddh,S,lbmex,i:
小时:=1、5、11:小时:=4、6:日:=2:
lbmex:=3:S:={h,dh,ddh}:
对于从4到N的i do:
而S中的lbmex do:S:=S减去{lbmex}:lbmex:=lbmex+1:od:
ddh:=ddh,lbmex:
dh:=dh,dh[-1]+磅/平方英尺:
h:=小时,h[-1]+dh[-1]:
S:=S联合{h[-1],dh[-1]、ddh[-1]}:
lbmex:=lbmex+1:
日期:
如果{h}与{dh}<>{}相交,则:返回NULL:
elif{h}与{ddh}<>{}相交,然后:返回NULL:
elif{ddh}与{dh}<>{}相交,然后:返回NULL:
else:返回[h]:fi: