艾菲尔 - 我如何使我的课程可读

Question

我是Eiffel的新手，我正在尝试使用linked_list类来组织我制作的其他类" monomio"的实例。我添加了一个用于订购此元素的函数，并使用了删除和光标运动功能，当我尝试执行代码时，会引起一个例外，说包含的对象应该是可读和可写的。我想知道该怎么做，这是我的班级：

class
    MONOMIO
feature --Initialization 
    make (coef:INTEGER; expX:INTEGER; expY:INTEGER)
    do
            coeficiente := coef
            exponenteX := expX
            exponenteY := expY
    end
feature
    evaluar(valX: INTEGER; valY: INTEGER): REAL_64
            do
                    Result := coeficiente*(valX^exponenteX)*(valY^exponenteY)
            end;
    coeficiente: INTEGER;
    exponenteX: INTEGER;
    exponenteY: INTEGER;

feature --setter
    set_coeficiente(val: INTEGER)
            do
                coeficiente := val
            end;
end

我认为例外是由于我为具有linked_list [monomio]功能的类制作的此功能而提出的，并且称为" contenido"：

simplificar
    local
        tamanio_polinomio: INTEGER -- Número de monomios que tiene el polinomio
        contador: INTEGER
        monomio_a_comparar: MONOMIO -- Auxiliar
        coeficiente_total:INTEGER -- Auxiliar
        indice_monomio_en_revision:INTEGER
    do
        from
            contenido.start
            indice_monomio_en_revision := 0
            tamanio_polinomio := contenido.count
        until
            indice_monomio_en_revision = tamanio_polinomio
        loop
            contenido.start
            contenido.move (indice_monomio_en_revision)
            monomio_a_comparar := contenido.item
            from
                contador := indice_monomio_en_revision
                coeficiente_total := monomio_a_comparar.coeficiente
                contenido.forth
            until
                contador = tamanio_polinomio
            loop
                if
                    (monomio_a_comparar.exponentex = contenido.item.exponentex) and
                    (monomio_a_comparar.exponentey = contenido.item.exponentey)
                then
                    coeficiente_total := coeficiente_total + contenido.item.coeficiente
                    contenido.remove -- Mueve el cursor a la derecha
                    tamanio_polinomio := tamanio_polinomio - 1
                    contador := contador - 1
                else
                    if
                        not contenido.islast
                    then
                        contenido.forth
                    end
                end
                contador := contador + 1
            end
            contenido.start
            contenido.move (indice_monomio_en_revision)
            contenido.item.set_coeficiente (coeficiente_total)
            indice_monomio_en_revision := indice_monomio_en_revision + 1
        end
    end;

我希望任何人都可以帮助我解决这个问题。谢谢。

Answer 1

假设您有一个带有1个元素的列表。然后，我们进入外循环并移至第一个元素。然后，我们在这一点上执行contador := indice_monomio_en_revision仍然是0并执行contenido.forth。现在，我们已经超出了列表，因为只有一个元素。但是contador = tamanio_polinomio是false（0 = 1），因此我们进入内部循环并尝试检索第二个（不存在的）项目。繁荣！

其他问题包括：

• 有多个呼叫，例如contenido.start，其次是contenido.move。您可以使用单个呼叫对go_i_th。

• 而不是计算列表中的项目数量，我会查看功能after。它告诉您何时到达列表的结尾。它可以简化循环的逻辑（例如，将删除对islast的调用），并让您删除一些本地变量。

考虑到最后一点，我会以

的形式写入内部循环条件

contenido.after

至少这将避免您遇到的崩溃。至于逻辑，您可能需要检查功能start，after，forth和remove，以查看它们的影响。在这种情况下，写循环的通常方法就像

from
    l.start
until
    l.after
loop
    ... -- Use l.item
    l.forth
end

在remove的情况下，您可能不需要致电forth。