From 12f99e0e18d7770a7028f4fad05f37ea0562f589 Mon Sep 17 00:00:00 2001 From: Jan Krňávek Date: Sun, 31 Jul 2022 14:07:03 +0200 Subject: solutions week 175 — Julia MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- challenge-175/wambash/julia/ch-1.jl | 11 +++++++++++ challenge-175/wambash/julia/ch-2.jl | 10 ++++++++++ 2 files changed, 21 insertions(+) create mode 100644 challenge-175/wambash/julia/ch-1.jl create mode 100644 challenge-175/wambash/julia/ch-2.jl 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 -- cgit