Last active
February 27, 2017 08:56
-
-
Save m4grio/668faa83092bb8887482479f3bb44807 to your computer and use it in GitHub Desktop.
PHP vs Erlang
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
-module(number). | |
-export([ | |
is_perfect/1 | |
]). | |
is_perfect(N, N, S) -> N==S; | |
is_perfect(N, M, S) when N rem M == 0 -> is_perfect(N, M+1, S+M); | |
is_perfect(N, M, S) -> is_perfect(N, M+1, S). | |
is_perfect(N) -> is_perfect(N, 1, 0). |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<?php | |
/** | |
* @param int $number | |
* | |
* @return bool | |
*/ | |
function isPerfect(int $number): bool | |
{ | |
for ($n = 2; $n <= sqrt($number); $n++) { | |
if (!($number % $n)) { | |
$d += $n; | |
if ($n <> $number / $n) { | |
$d += $number / $n; | |
} | |
} | |
} | |
return ++$d == $number; | |
} |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment