diff options
| author | Myoungjin JEON <jeongoon@gmail.com> | 2020-09-22 23:04:01 +1000 |
|---|---|---|
| committer | Myoungjin JEON <jeongoon@gmail.com> | 2020-09-22 23:04:01 +1000 |
| commit | 6d0f64e0e757570b2e76fdea928308e124915bcc (patch) | |
| tree | 9f1428c5ea4fb3aac8c7ed8b89f75906ce77ef7d | |
| parent | 1c69072611e6a6d132cc322395a4cd9734154c20 (diff) | |
| download | perlweeklychallenge-club-6d0f64e0e757570b2e76fdea928308e124915bcc.tar.gz perlweeklychallenge-club-6d0f64e0e757570b2e76fdea928308e124915bcc.tar.bz2 perlweeklychallenge-club-6d0f64e0e757570b2e76fdea928308e124915bcc.zip | |
[ch-079/jeongoon] change name ch-1.raku to ch-1.short.raku
| -rw-r--r-- | challenge-079/jeongoon/raku/ch-1.raku | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-079/jeongoon/raku/ch-1.raku b/challenge-079/jeongoon/raku/ch-1.raku index eeca1c3bf1..763d8635d8 100644 --- a/challenge-079/jeongoon/raku/ch-1.raku +++ b/challenge-079/jeongoon/raku/ch-1.raku @@ -1,5 +1,5 @@ #!/usr/bin/env raku # -*- Mode: Raku -*- - use v6.d; -our &MAIN=&say∘(*%1000000007)∘&sum∘(*.map(*.base(2).comb.grep(1).elems))∘(->$e {1..$e}); +# works only equal or less than 65535 +our &MAIN=&say∘&sum∘(*.map(*.base(2).comb.grep(1).elems))∘(^(*+1)); |