diff options
| -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 |