diff options
| author | 冯昶 <seaker@qq.com> | 2021-12-27 17:59:09 +0800 |
|---|---|---|
| committer | 冯昶 <seaker@qq.com> | 2021-12-27 17:59:09 +0800 |
| commit | fb3913c8d38cf4ce52c90ae62bb92737d2836a0d (patch) | |
| tree | 6391235f22d4cb4be5e89efdb1045b90c8b8ac2c | |
| parent | 4020e023710c4f3008fdd7273bef2b47dcdde8bc (diff) | |
| download | perlweeklychallenge-club-fb3913c8d38cf4ce52c90ae62bb92737d2836a0d.tar.gz perlweeklychallenge-club-fb3913c8d38cf4ce52c90ae62bb92737d2836a0d.tar.bz2 perlweeklychallenge-club-fb3913c8d38cf4ce52c90ae62bb92737d2836a0d.zip | |
challenge 145, #1
| -rwxr-xr-x | challenge-144/feng-chang/raku/ch-1.raku | 6 | ||||
| -rwxr-xr-x | challenge-144/feng-chang/raku/ch-2.raku | 2 | ||||
| -rwxr-xr-x | challenge-145/feng-chang/raku/ch-1.raku | 4 | ||||
| -rw-r--r-- | challenge-145/feng-chang/raku/i01.txt | 2 |
4 files changed, 11 insertions, 3 deletions
diff --git a/challenge-144/feng-chang/raku/ch-1.raku b/challenge-144/feng-chang/raku/ch-1.raku index 7a2926a77d..396b38301c 100755 --- a/challenge-144/feng-chang/raku/ch-1.raku +++ b/challenge-144/feng-chang/raku/ch-1.raku @@ -1,4 +1,6 @@ #!/bin/env raku -my @candis = (2..47).grep(*.is-prime); -put (@candis X* @candis).grep(* < 100).sort.unique; +unit sub MAIN(UInt:D \N = 300); + +my @candis = (2..sqrt(N).Int).grep(*.is-prime); +put (@candis X* @candis).grep(* < N).sort.unique; diff --git a/challenge-144/feng-chang/raku/ch-2.raku b/challenge-144/feng-chang/raku/ch-2.raku index f0d9f21764..10bd9f5d44 100755 --- a/challenge-144/feng-chang/raku/ch-2.raku +++ b/challenge-144/feng-chang/raku/ch-2.raku @@ -16,4 +16,4 @@ my @ulam = lazy gather { } }; -put @ulam[^10]; +put @ulam[^20]; diff --git a/challenge-145/feng-chang/raku/ch-1.raku b/challenge-145/feng-chang/raku/ch-1.raku new file mode 100755 index 0000000000..5cde190653 --- /dev/null +++ b/challenge-145/feng-chang/raku/ch-1.raku @@ -0,0 +1,4 @@ +#!/bin/env raku + +put [+] prompt('Array @a: ').words».Int »*« + prompt('Array @b: ').words».Int; diff --git a/challenge-145/feng-chang/raku/i01.txt b/challenge-145/feng-chang/raku/i01.txt new file mode 100644 index 0000000000..b36d133ce1 --- /dev/null +++ b/challenge-145/feng-chang/raku/i01.txt @@ -0,0 +1,2 @@ +1 2 3 +4 5 6 |