Mahir Exercism • sml

Perfect Numbers

Ringkasan Tantangan

Determine if a number is perfect, abundant, or deficient based on Nicomachus' (60 - 120 CE) classification scheme for positive integers.

Visit the perfect-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 @Munksgaard (⭐ 0) — View on Exercism
Solution 2 by @sshine (⭐ 0) — View on Exercism
Solution 3 by @Steedalion (⭐ 0) — View on Exercism

Source: Exercism sml/perfect-numbers

💡 Lihat Solusi

infix |>
fun x |> f = f x

datatype classification = Abundant | Deficient | Perfect

fun factors n =
    let fun aux acc i =
            if i >= n then acc else
            if n mod i = 0 then aux (i :: acc) (i + 1)
            else aux acc (i + 1)