Advertisement
Guest User

Untitled

a guest
Feb 7th, 2019
90
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Erlang 0.54 KB | None | 0 0
  1. defmodule Findthedivisors do
  2.  
  3.   def divisors(integer) do
  4.     integer
  5.     |> check_divisor(integer - 1)
  6.   end
  7.  
  8.   def check_divisor(integer, n, result \\ [])
  9.  
  10.   def check_divisor(integer, n, result) when n <= 1 do
  11.     case Enum.empty?(result) do
  12.       true -> "#{integer} is prime"
  13.       false -> Enum.sort(result)
  14.     end
  15.   end
  16.  
  17.   def check_divisor(integer, n, result) do
  18.     case Integer.mod(integer, n) do
  19.       0 -> check_divisor(integer, n - 1, result ++ [n])
  20.       _ -> check_divisor(integer, n - 1, result)
  21.     end
  22.   end
  23. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement