diff options
| author | Jan Krňávek <Jan.Krnavek@gmail.com> | 2022-07-31 14:07:03 +0200 |
|---|---|---|
| committer | Jan Krňávek <Jan.Krnavek@gmail.com> | 2022-07-31 14:07:03 +0200 |
| commit | 12f99e0e18d7770a7028f4fad05f37ea0562f589 (patch) | |
| tree | d60db3b4765cffedbcdf01ba874267c1497b2e67 | |
| parent | 8a928ad6f14f356646050cea4d105e7a8d519a05 (diff) | |
| download | perlweeklychallenge-club-12f99e0e18d7770a7028f4fad05f37ea0562f589.tar.gz perlweeklychallenge-club-12f99e0e18d7770a7028f4fad05f37ea0562f589.tar.bz2 perlweeklychallenge-club-12f99e0e18d7770a7028f4fad05f37ea0562f589.zip | |
solutions week 175 — Julia
| -rw-r--r-- | challenge-175/wambash/julia/ch-1.jl | 11 | ||||
| -rw-r--r-- | challenge-175/wambash/julia/ch-2.jl | 10 |
2 files changed, 21 insertions, 0 deletions
diff --git a/challenge-175/wambash/julia/ch-1.jl b/challenge-175/wambash/julia/ch-1.jl new file mode 100644 index 0000000000..79c76f60d2 --- /dev/null +++ b/challenge-175/wambash/julia/ch-1.jl @@ -0,0 +1,11 @@ +using Lazy +using Dates + +year = isassigned(ARGS) ? parse(Int,ARGS[1]) : 2022 + +@>> 1:12 begin + map( m -> @lazy lastdayofmonth( Date(year,m)):Day(-1):Date(year,m) ) + map( m -> filter( d -> dayofweek(d) == 7, m ) ) + map(first) + foreach(println) +end diff --git a/challenge-175/wambash/julia/ch-2.jl b/challenge-175/wambash/julia/ch-2.jl new file mode 100644 index 0000000000..2703b5dc7b --- /dev/null +++ b/challenge-175/wambash/julia/ch-2.jl @@ -0,0 +1,10 @@ +#!/usr/bin/env julia + +using Primes +using Lazy + +totientsum(x) = @>> x iterated(totient) takeuntil( ==(1) ) drop(1) sum + +k = isassigned(ARGS) ? parse(Int,ARGS[1]) : 20 + +@>> Lazy.range(3,Inf,2) filter( x -> totientsum(x) == x) take(k) collect println |