schemeで3重ループ＋再帰が描けない

Question

schemeで次のような動作をするコードを書きたいと思っています。
schemeにはfor文がないようなのですが、このようなコードはどのように実装すればよいのでしょうか。

	void dfs(int depth, double x, double y, double z) {
		if (depth >= 4)
			return;
		for (int dx = -1; dx <= 1; ++dx) {
			for (int dy = -1; dy <= 1; ++dy) {
				for (int dz = -1; dz <= 1; ++dz) {
					dfs(depth + 1, x + dx, y + dy, z + dz);
				}
			}
		}
	}

Answer 1

schemeにはforループはありませんがdoループはあります。しかし一般にschemeではループをつかわずに再帰呼び出しを利用すると思います。

(define dfs
  (lambda (depth x y z)
    (if (>= depth 4)
	#t
	(do ((dx -1 (+ dx 1)))
	    ((> dx 1))
	  (do ((dy -1 (+ dy 1)))
	      ((> dy 1))
	    (do ((dz -1 (+ dz 1)))
		((> dz 1))
	      (dfs (+ depth 1) (+ x dx) (+ y dy) (+ z dz))))))))

Comments

[ruei]

ありがとうございます！手元で動かしたところ、思った通りの動作をしました！