werden nicht verringern Sie den Wert gegeben

Question

Ich versuche, die Ergebnisse zu erhalten, wie in der Frage auf dem Foto angebracht gezeigt

wie immer die Ergebnisse, die ich bekommen habe sind das genaue Gegenteil von dem, was ich will

mir bitte helfen, das Problem zu identifizieren

ist die Korrektur nach @ Scotts Antwort

(defun decrementing (num) 
     (if(= 1 num) 
       (princ "the number has reach 1. goodbye.") 
      (if (= (- num 1) 10) 
      (format t "~&") 
      (format t "the next number is ~d. ~&" (- num 1) 
      ))) (decrementing (- num 1))) 

bekam

ich die Lösung, aber die Schleife endet nie

Answer 1

Sie den rekursiven Teil Ihrer Funktion innerhalb den Anruf zu format, gelegt, so dass es die Rekursion beendet hat, bis nach eigentlich nicht drucken (weil alle Argumente zu format ausgewertet werden müssen, bevor format selbst drucken kann).

Answer 2

(defun decrementing (num) 
     (if(= 1 num) 
       (princ "the number has reach 1. goodbye.") 
      (if (= (- num 1) 0) 
      (format t "~&") 
      (format t "the next number is ~d. ~&" (- num 1) 
      ))) (if (> num 1)(decrementing (- num 1)))) 

ich es geschafft haben, das Problem zu lösen, danke sooo viel für die Hilfe