递归ocaml堆栈溢出

Question

I'm trying to draw fractal: for every circle displeyed I want to draw circle half it's size to the left and right of that circle. Here is my code:

let rec drawCircle x y r =
    let halfSize = r/2 in
        draw_circle x y r;
        drawCircle (x+r) y halfSize;
        drawCircle (x-r) y halfSize;;

It compiles but when I run it I get stack overflow. The question is why and how can I fix it in this function ?

Answer 1

Your code doesn't have any conditions to terminate recursion.

For example, do not call drawCircle again when r == 1 pixel. Or any other case on your choice.