diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2022-10-02 21:39:22 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2022-10-02 21:39:22 +0100 |
| commit | f278fb6fd6ad47c517d7ea7238d5f0376ddeb90d (patch) | |
| tree | c7a9db5b8928be787463b3f78787c113bd903c3c /challenge-081/aecepoglu | |
| parent | eca4423a53891951064f41611d7db28bb9211c20 (diff) | |
| download | perlweeklychallenge-club-f278fb6fd6ad47c517d7ea7238d5f0376ddeb90d.tar.gz perlweeklychallenge-club-f278fb6fd6ad47c517d7ea7238d5f0376ddeb90d.tar.bz2 perlweeklychallenge-club-f278fb6fd6ad47c517d7ea7238d5f0376ddeb90d.zip | |
- Added guest contributions to past weeks by AhmetEmre.
Diffstat (limited to 'challenge-081/aecepoglu')
| -rw-r--r-- | challenge-081/aecepoglu/README.md | 1 | ||||
| -rw-r--r-- | challenge-081/aecepoglu/bqn/ch-1.bqn | 6 | ||||
| -rw-r--r-- | challenge-081/aecepoglu/bqn/ch-2.bqn | 2 |
3 files changed, 9 insertions, 0 deletions
diff --git a/challenge-081/aecepoglu/README.md b/challenge-081/aecepoglu/README.md new file mode 100644 index 0000000000..2f43e385e0 --- /dev/null +++ b/challenge-081/aecepoglu/README.md @@ -0,0 +1 @@ +Overdue solutions by AhmetEmre diff --git a/challenge-081/aecepoglu/bqn/ch-1.bqn b/challenge-081/aecepoglu/bqn/ch-1.bqn new file mode 100644 index 0000000000..02a5f305f1 --- /dev/null +++ b/challenge-081/aecepoglu/bqn/ch-1.bqn @@ -0,0 +1,6 @@ +IsBase←(∧´<∘⊣≡¨(1-˜+`∘(≠∘⊢↑⍷))⊔⊢) +"abcd"IsBase"abcdabcdabcdabcd" +"aa"IsBase"aaa" + +(⌈´⊸=≠¨)⊸/(IsBase⟜x¨)⊸/1↓↑⊑((⌊´=⊢)≠¨)⊸/d←"abcdabcd"⋈x←"abcdabcdabcdabcd" +(⌈´⊸=≠¨)⊸/(IsBase⟜x¨)⊸/1↓↑⊑((⌊´=⊢)≠¨)⊸/d←"aa"⋈x←"aaa" diff --git a/challenge-081/aecepoglu/bqn/ch-2.bqn b/challenge-081/aecepoglu/bqn/ch-2.bqn new file mode 100644 index 0000000000..40d16d310b --- /dev/null +++ b/challenge-081/aecepoglu/bqn/ch-2.bqn @@ -0,0 +1,2 @@ +Cleanup←⟨"'s","--"⟩⊸{𝕩/˜(≠𝕩)↑𝕨(¬∘⊑∘(∨˝)⊣ ((»∨⊢)∘⍷)¨<∘⊢)𝕩} +>(≠⋈⊑)¨(⊐⊔⊢)∾{" ,()."""((0<≠¨)⊸/(⊢-˜¬×+`)∘(∨˝=⌜)⊔⊢)(⊢+32×1="A["⍋⊢)𝕩}∘Cleanup¨•FLines "input.txt" |