diff options
| author | Adam Russell <ac.russell@live.com> | 2019-08-11 11:44:16 -0400 |
|---|---|---|
| committer | Adam Russell <ac.russell@live.com> | 2019-08-11 11:44:16 -0400 |
| commit | 73a1e728aba58a14a511ab24599e48a59f1ced91 (patch) | |
| tree | 28465f4d2ba6912552dd9a69d3a9b5a94634b797 | |
| parent | 80f42bf87dbbca125660047ddadca7bdc7cd712f (diff) | |
| download | perlweeklychallenge-club-73a1e728aba58a14a511ab24599e48a59f1ced91.tar.gz perlweeklychallenge-club-73a1e728aba58a14a511ab24599e48a59f1ced91.tar.bz2 perlweeklychallenge-club-73a1e728aba58a14a511ab24599e48a59f1ced91.zip | |
updated ch-2.rk
| -rw-r--r-- | challenge-020/adam-russell/perl6/ch-2.rk | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/challenge-020/adam-russell/perl6/ch-2.rk b/challenge-020/adam-russell/perl6/ch-2.rk index 46e4329e8f..8a574752bf 100644 --- a/challenge-020/adam-russell/perl6/ch-2.rk +++ b/challenge-020/adam-russell/perl6/ch-2.rk @@ -1,3 +1,6 @@ +## +# Write a script to print the smallest pair of Amicable Numbers. +## constant RANGE_SIZE = 50; sub factor-sum(@numbers){ my %number_sof; |