diff options
| author | Stephen Lynn <bizlsg@localhost.localdomain> | 2022-06-28 23:00:45 +0800 |
|---|---|---|
| committer | Stephen Lynn <bizlsg@localhost.localdomain> | 2022-06-28 23:00:45 +0800 |
| commit | a3b7293ca6ce8d0cbfefd703e57cc85b6d1dfc95 (patch) | |
| tree | 833eeac0f0e35c8b453fd989b880dd0919ec18bd | |
| parent | d84663e78e332390b301a128ec7f826e3b98a31c (diff) | |
| download | perlweeklychallenge-club-a3b7293ca6ce8d0cbfefd703e57cc85b6d1dfc95.tar.gz perlweeklychallenge-club-a3b7293ca6ce8d0cbfefd703e57cc85b6d1dfc95.tar.bz2 perlweeklychallenge-club-a3b7293ca6ce8d0cbfefd703e57cc85b6d1dfc95.zip | |
171 solution
| -rw-r--r-- | challenge-171/steve-g-lynn/ch-1.jl | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/challenge-171/steve-g-lynn/ch-1.jl b/challenge-171/steve-g-lynn/ch-1.jl deleted file mode 100644 index 4cb8c72432..0000000000 --- a/challenge-171/steve-g-lynn/ch-1.jl +++ /dev/null @@ -1,28 +0,0 @@ -#!/usr/bin/julia - -function sum_factors(n::Int64) - mysum=1 - for factor=2:(Int64(floor((n/2)))) - if (n % factor == 0) - mysum += factor - end - end - return mysum -end - -retvec=Int64[] - -for n in (3:2:10000) -# loop over odd numbers only - if (sum_factors(n) > n) - global retvec=[retvec;n] - end - if (length(retvec) > 19) - break - end -end - -println(retvec) - - - |