带徽标的递归：向上和向下计数

Question

我是Logo编程语言（乌龟的语言）的新手。我正在尝试实现一个简单的递归程序。我想写一个程序（或几个程序），它会得到一个自然数作为输入，输入从这个数字到1的所有数字，然后再回到原始数字。

我确实设法编写了一个程序，将所有数字打印到1，但我无法弄清楚如何再次上升。我想请你帮忙。即使那些不熟悉Logo语法的人也可能会想出来......

到目前为止我的代码是：

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