這是在列表1返回的最後一個項目的過程:遞歸過程
proc last (1)
if (isEmpty(1))
error('Oops. Empty list in procedure last.')
elseif (is empty(rest1))
return (first(1)
else return last(rest(1))
修改,要創建一個遞歸過程getItem(i,l)
在列表1,其中i
是返回項目i
一個大於零的整數。
proc getItem(i,1)
if (isEmpty(1))
error('Opps. Empty list in procedure last.')
else if (isEmpty(getItem,i1)
else if i > 0
return item(i,1)
是否正確?
運行它,看到了什麼? – 2011-02-03 21:17:26