> let rec factor_list (n, factor) = - if n < factor * factor then [n] - elif n % factor = 0 then factor::factor_list(n / factor, factor ) - else factor_list(n , factor + 1) - ;; val factor_list : int * int -> int list > factor_list(13195, …

13195 の素因数は 5, 7, 13, 29 である. 600851475143 の素因数のうち最大のものを求めよ. http://odz.sakura.ne.jp/projecteuler/index.php?cmd=read&page=Problem%203The prime factors of 13195 are 5, 7, 13 and 29. What is the largest prime factor o…