Это процедура для возврата последнего элемента в списке 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)
, которая возвращает элемент i
в списке 1, где 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)
это правильно?