python - 河内之塔，python -> 方案，显示错误。我错过了什么？

Question

蟒蛇实现

import sys

def move(src, dst, tmp, num):
    if num == 1: print 'Move from', src, 'to', dst
    else:
        move(src, tmp, dst, num-1)
        move(src, dst, tmp, 1)
        move(tmp, dst, src, num-1)

move('left', 'right', 'middle', int(sys.argv[1]))

为河内塔提供正确的解决方案。但我的计划端口，

(define move
    (lambda (src dst tmp num)
      (if (= num 1) (printf "Move from ~s to ~s \n" src dst)
          ((move src tmp dst (- num 1))
           (move src dst tmp 1)
           (move tmp dst src (- num 1))))))

给出正确的解决方案，但最终引发以下错误。

procedure application: expected procedure, given: #<void>; arguments were: #<void> #<void>

我知道是我的打印语句引发了错误，但我不知道为什么会这样？

Answer 1

 ((move src tmp dst (- num 1))
  (move src dst tmp 1)
  (move tmp dst src (- num 1)))

上面的代码没有做你认为它做的事情:)

要执行一系列表达式/语句，您需要这样的东西：

((λ ()
  (move src tmp dst (- num 1))
  (move src dst tmp 1)
  (move tmp dst src (- num 1))))

Scheme 中的语法糖是

(begin
   (move ...)
   (move ...)
   (move ...)
   ...)

---

((move ...) (move ...) (move ...))

将被评估，并且代码似乎工作。但是一旦递归结束，
解释器将尝试执行它，(op param1 param2)并且在那里
你会得到错误 #<void>; arguments were: #<void> #<void>