遞歸與標誌：向上和向下計數

Question

我是標誌編程語言（烏龜的語言）的新手。我正試圖實現一個簡單的遞歸程序。我想編寫一個程序（或幾個程序），它將得到一個自然數作爲輸入，將此數字中的所有數字輸入到1，然後返回到原始數字。

我確實設法編寫了一個程序，將所有的數字打印到1，但我無法弄清楚如何再次上升。我想請求你的幫助。即使是那些你們誰不熟悉的標誌語法可能會看着辦吧......

到目前爲止我的代碼是：

to down :n 
if :n = 0 [stop] 
pr :n 
make "n (:n - 1) 
down (:n) 
end 

請多關照。

Answer 1

鍵入所有數字從這個數字降到1，然後備份到最初的數字爲 。

這種輕微的改變你的程序應該做的伎倆：

to down :n 
    if :n = 0 [stop] 
    pr :n 
    down :n - 1 
    pr :n 
end 

down 10