Início / coding / Perguntas / 77944547
Accepted
strdr77
Asked: 2024-02-06 07:29:59 +0800 CST

Estou tentando entender a recursão no TCL, mas toda vez que a recursão termina gera erros

  • 772

Sou novo no TCL e estou tentando configurar um loop de recursão simples. O código que tenho funciona até a recursão terminar e então começa a gerar erros. Este é o meu código:

set testNum 0

proc raiseTest { a } {
    puts $a
    if { $a == 5 } {
        puts "Done!"
    } elseif { $a != 5 } {
        incr a
        puts "Going!"
        [raiseTest $a]
    } 
    
}

[ raiseTest $testNum ]

Quando o proc chega a 5 e termina seu último loop, recebo um erro de nome de comando inválido "" seguido por uma tonelada de erros invocados de dentro e não tenho ideia do porquê. Alguém pode me ajudar?

loops

1 respostas

  1. Best Answer

    Duas coisas

    1. Você chama um procedimento sem usar colchetes. Você só usa colchetes quando precisa capturar o valor de retorno do procedimento, o que não é neste caso
    2. O elseif {$a != 5}é redundante, você pode substituí-lo por apenaselse

    Para discutir mais detalhadamente o ponto 1, a linha logo após puts "Going!", que diz:

            [raiseTest $a]

    Esta linha chama raiseTest $a, então por causa dos colchetes, capture a saída dessa chamada (uma string vazia porque nada foi retornado) e use isso como o nome de um proc e chame-o.

    Aqui está um exemplo:

    proc foo {} {
    puts "foo"
    return "bar"
}

proc bar {} {
    puts "bar"
}

foo    ;# prints "foo"
[foo]  ;# prints "foo", then "bar""

    Dito isto, o código deve ficar assim, sem os colchetes:

    proc raiseTest { a } {
    puts "a=$a"
    if { $a == 5 } {
        puts "Done!"
    } else {
        incr a
        puts "Going!"
        raiseTest $a
    }
}

set testNum 0
raiseTest $testNum
    • 2

relate perguntas