Armstrong Numbers

Ringkasan Tantangan

Determine if a number is an Armstrong number.

Visit the armstrong-numbers exercise on Exercism to read the full instructions and download the exercise files.

Community Solutions

Lihat Solusi Komunitas

The following are the top 3 community solutions by stars:

Solution 1 by @TheRealOwenRees (⭐ 0) — View on Exercism
Solution 2 by @vitalysukharev (⭐ 0) — View on Exercism
Solution 3 by @ekureuil (⭐ 0) — View on Exercism

Source: Exercism ocaml/armstrong-numbers

💡 Lihat Solusi

let validate candidate = 
  let rec armstrong ~candidate ~num ~sum =
    if num <= 0 then sum = candidate 
    else
      let num_digits = int_of_float (floor (log10 (float_of_int candidate)) +. 1.) in
      let digit = num mod 10 in
      let new_sum = sum + int_of_float (float_of_int digit ** float_of_int num_digits) in
      let new_num = num / 10 in
      armstrong ~candidate ~num:new_num ~sum:new_sum
    in