diff options
| author | Jan Krňávek <Jan.Krnavek@gmail.com> | 2024-01-21 21:13:21 +0100 |
|---|---|---|
| committer | Jan Krňávek <Jan.Krnavek@gmail.com> | 2024-01-21 21:13:21 +0100 |
| commit | a384ea13100c6fd477542708d16cfa6b542deb09 (patch) | |
| tree | 10464d55889825ea06a3e4db21f9b2072bcf1678 /challenge-252 | |
| parent | 8020fb491de5f4c67edf067733151d0b0bc41859 (diff) | |
| download | perlweeklychallenge-club-a384ea13100c6fd477542708d16cfa6b542deb09.tar.gz perlweeklychallenge-club-a384ea13100c6fd477542708d16cfa6b542deb09.tar.bz2 perlweeklychallenge-club-a384ea13100c6fd477542708d16cfa6b542deb09.zip | |
solution week 252-1 - Julia
Diffstat (limited to 'challenge-252')
| -rw-r--r-- | challenge-252/wambash/julia/ch-1.jl | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/challenge-252/wambash/julia/ch-1.jl b/challenge-252/wambash/julia/ch-1.jl new file mode 100644 index 0000000000..849c07a864 --- /dev/null +++ b/challenge-252/wambash/julia/ch-1.jl @@ -0,0 +1,18 @@ +using Lazy +using Primes + +special_numbers(ints) = @>> begin + ints + length + divisors + getindex(ints) + x -> x.^2 + sum +end + + +using Test +@testset "special numbers" begin + @test special_numbers([1,2,3,4]) == 21 + @test special_numbers([2, 7, 1, 19, 18, 3]) == 63 +end |