я работаю над четвертой проблемойПроект Эйлера и я работаю в стеке исключения потока. Я'я не прошу помощи в решении проблемы, япросто как это объяснилиЗачем Я получаю исключение stackoverflow. Это'обычно из-за бесконечной рекурсии, но я нене верю, что это так на этот раз (если яЯ просто слепой и не вижу этого сейчас, пожалуйста, дайте мне знать).

Вот'код :;

let Euler4 =

let reverse sum =
    let rec loop (n,x) =
        if n = 0
        then
            x
        else
            loop (n/10,(x*10) + (n%10))

    loop (sum, 0);

let isPalindrome arg = (arg = (reverse arg));

let findPalindromes (startx,starty) =
    let rec loop (x,y) acc =
        let result = if isPalindrome (x * y) then ((x,y) :: acc) else acc;
        let next = match (x,y) with
            | (x,y) when y = 100 -> (x-1,starty)
            | _ -> (x,y-1)
        if x = 100 then
            result
        else
            loop (next) result

    loop (startx,starty) [];


let value = (999,999);
printfn "%A" (findPalindromes value);