diff options
| author | Jan Krňávek <Jan.Krnavek@gmail.com> | 2025-02-09 15:43:10 +0100 |
|---|---|---|
| committer | Jan Krňávek <Jan.Krnavek@gmail.com> | 2025-02-09 15:43:10 +0100 |
| commit | f6283b7060e52c904e7f43101c528791ed783d74 (patch) | |
| tree | 5bacbbbcc32300c5e8438f2fce13cdb2ece96886 /challenge-307 | |
| parent | d90c93f2b875a0a361580fe8061a75036c3cb76e (diff) | |
| download | perlweeklychallenge-club-f6283b7060e52c904e7f43101c528791ed783d74.tar.gz perlweeklychallenge-club-f6283b7060e52c904e7f43101c528791ed783d74.tar.bz2 perlweeklychallenge-club-f6283b7060e52c904e7f43101c528791ed783d74.zip | |
solutions week 307 -- Julia
Diffstat (limited to 'challenge-307')
| -rw-r--r-- | challenge-307/wambash/julia/ch-1.jl | 14 | ||||
| -rw-r--r-- | challenge-307/wambash/julia/ch-2.jl | 13 |
2 files changed, 27 insertions, 0 deletions
diff --git a/challenge-307/wambash/julia/ch-1.jl b/challenge-307/wambash/julia/ch-1.jl new file mode 100644 index 0000000000..c53f7440a0 --- /dev/null +++ b/challenge-307/wambash/julia/ch-1.jl @@ -0,0 +1,14 @@ +check_order(ints) = keys(ints)[ints.!==sort(ints)] + + +using Test + +function TEST() + @testset "Check Order" begin + @test check_order([5, 2, 4, 3, 1]) == [1,3,4,5] + @test check_order([1, 2, 1, 1, 3]) == [2,4] + @test check_order([3, 1, 3, 2, 3]) == [1,2,4] + end +end + +TEST() diff --git a/challenge-307/wambash/julia/ch-2.jl b/challenge-307/wambash/julia/ch-2.jl new file mode 100644 index 0000000000..251ebdf7f9 --- /dev/null +++ b/challenge-307/wambash/julia/ch-2.jl @@ -0,0 +1,13 @@ +using Lazy +find_anagrams(words) = @>> words map(frequencies) unique length + +using Test + +function TEST() + @testset "Find Anagrams" begin + @test find_anagrams(["acca", "dog", "god", "perl", "repl"]) == 3 + @test find_anagrams(["abba", "baba", "aabb", "ab", "ab"]) == 2 + end +end + +TEST() |