diff options
| author | aecepoglu <aecepoglu@fastmail.fm> | 2022-09-04 20:21:51 +0100 |
|---|---|---|
| committer | aecepoglu <aecepoglu@fastmail.fm> | 2022-09-04 20:21:51 +0100 |
| commit | 6743e3e74bac2a9589257c78e496b30aed0378e0 (patch) | |
| tree | c62daf6b701e32058b1a2e4f7f44852d21bbff6a /challenge-035 | |
| parent | 35658fb34d1cba6d98016bc8900699b42e92c547 (diff) | |
| download | perlweeklychallenge-club-6743e3e74bac2a9589257c78e496b30aed0378e0.tar.gz perlweeklychallenge-club-6743e3e74bac2a9589257c78e496b30aed0378e0.tar.bz2 perlweeklychallenge-club-6743e3e74bac2a9589257c78e496b30aed0378e0.zip | |
solutions 1-56,177,180 missing a few
Diffstat (limited to 'challenge-035')
| -rw-r--r-- | challenge-035/aecepoglu/README.md | 1 | ||||
| -rw-r--r-- | challenge-035/aecepoglu/bqn/ch-1.bqn | 12 | ||||
| -rw-r--r-- | challenge-035/aecepoglu/bqn/ch-2.bqn | 12 |
3 files changed, 25 insertions, 0 deletions
diff --git a/challenge-035/aecepoglu/README.md b/challenge-035/aecepoglu/README.md new file mode 100644 index 0000000000..2f43e385e0 --- /dev/null +++ b/challenge-035/aecepoglu/README.md @@ -0,0 +1 @@ +Overdue solutions by AhmetEmre diff --git a/challenge-035/aecepoglu/bqn/ch-1.bqn b/challenge-035/aecepoglu/bqn/ch-1.bqn new file mode 100644 index 0000000000..fc27a6610a --- /dev/null +++ b/challenge-035/aecepoglu/bqn/ch-1.bqn @@ -0,0 +1,12 @@ +a←'a'+↕≠ b←".-"⊸⊐¨m←⟨".-","-...","-.-.","-..",".","..-.", + "--.","....","..","..","-.-",".-..","--", +"-.",".-...",".....","--.-",".-.","...","-","..-","...-", +".--","..-...","--...", ".--.."⟩ +k←⟨"1","111"⟩ +Fd←(≠∘⊣(⊢∨0⊸»⍟⊣)≠∘⊢↑⍷) + +Encode←{"0000000"_j´{"000"_j´("0"_j´⊏⟜k)¨⊏⟜b-⟜'a'𝕩}¨' '((⊢-˜¬×+`)∘=⊔⊢)𝕩} +Decode←{' '_j´'a'+b⊸⊐¨{k⊐'0'((⊢-˜¬×+`)∘=⊔⊢)𝕩}¨¨"000"⊸((0=2|↕∘≠)⊸/+`∘Fd⊔⊢)¨"0000000"((0=2|↕∘≠)⊸/+`∘Fd⊔⊢)𝕩} + +# test +∧´(Decode∘Encode)⊸= "abc def kimsin ki varrdo" diff --git a/challenge-035/aecepoglu/bqn/ch-2.bqn b/challenge-035/aecepoglu/bqn/ch-2.bqn new file mode 100644 index 0000000000..fc27a6610a --- /dev/null +++ b/challenge-035/aecepoglu/bqn/ch-2.bqn @@ -0,0 +1,12 @@ +a←'a'+↕≠ b←".-"⊸⊐¨m←⟨".-","-...","-.-.","-..",".","..-.", + "--.","....","..","..","-.-",".-..","--", +"-.",".-...",".....","--.-",".-.","...","-","..-","...-", +".--","..-...","--...", ".--.."⟩ +k←⟨"1","111"⟩ +Fd←(≠∘⊣(⊢∨0⊸»⍟⊣)≠∘⊢↑⍷) + +Encode←{"0000000"_j´{"000"_j´("0"_j´⊏⟜k)¨⊏⟜b-⟜'a'𝕩}¨' '((⊢-˜¬×+`)∘=⊔⊢)𝕩} +Decode←{' '_j´'a'+b⊸⊐¨{k⊐'0'((⊢-˜¬×+`)∘=⊔⊢)𝕩}¨¨"000"⊸((0=2|↕∘≠)⊸/+`∘Fd⊔⊢)¨"0000000"((0=2|↕∘≠)⊸/+`∘Fd⊔⊢)𝕩} + +# test +∧´(Decode∘Encode)⊸= "abc def kimsin ki varrdo" |