aboutsummaryrefslogtreecommitdiff
path: root/challenge-044/aecepoglu
diff options
context:
space:
mode:
authoraecepoglu <aecepoglu@fastmail.fm>2022-09-04 20:21:51 +0100
committeraecepoglu <aecepoglu@fastmail.fm>2022-09-04 20:21:51 +0100
commit6743e3e74bac2a9589257c78e496b30aed0378e0 (patch)
treec62daf6b701e32058b1a2e4f7f44852d21bbff6a /challenge-044/aecepoglu
parent35658fb34d1cba6d98016bc8900699b42e92c547 (diff)
downloadperlweeklychallenge-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-044/aecepoglu')
-rw-r--r--challenge-044/aecepoglu/README.md1
-rw-r--r--challenge-044/aecepoglu/bqn/ch-1.bqn9
-rw-r--r--challenge-044/aecepoglu/bqn/ch-2.bqn2
3 files changed, 12 insertions, 0 deletions
diff --git a/challenge-044/aecepoglu/README.md b/challenge-044/aecepoglu/README.md
new file mode 100644
index 0000000000..2f43e385e0
--- /dev/null
+++ b/challenge-044/aecepoglu/README.md
@@ -0,0 +1 @@
+Overdue solutions by AhmetEmre
diff --git a/challenge-044/aecepoglu/bqn/ch-1.bqn b/challenge-044/aecepoglu/bqn/ch-1.bqn
new file mode 100644
index 0000000000..62b5847b30
--- /dev/null
+++ b/challenge-044/aecepoglu/bqn/ch-1.bqn
@@ -0,0 +1,9 @@
+# 1
+{𝕨𝕊f‿x:𝕨F x}´∘
+{((1⊸⊑∘⊑)∾1⊸↓)𝕩}˘
+(1+↕9)⋈(⟨+,-,(⊢+10×⊣),⊣⟩⊸(⊏˜))3∾˘a
+a←2↑200↓>⥊↕3⥊˜1-˜≠'0'-˜"123456789"
+
+c←∘‿1⥊(⊣+10×⊢)´∘⌽¨¨(((0⊸∾¨∘(+`¨)∘↕2⥊˜1-˜≠))⊔¨<∘⊢)1‿2‿3‿4
+c←∘‿1⥊(⊣+10×⊢)´∘⌽¨¨(((0⊸∾¨∘(+`¨)∘↕2⥊˜1-˜≠))⊔¨<∘⊢)1+↕9
+(∾´•Fmt¨)¨{⋈¯1↓∾´⍟2𝕩}˘>⋈¨∾´⥊{𝕊k:(100=0{w‿F𝕊𝕩:w F𝕩}´¨⊢)⊸/⥊{k⋈¨𝕩}¨⟨+,-,⊣⟩⊸(⊏˜)¨∾⟜2¨↕2⥊˜1-˜≠ k}¨c
diff --git a/challenge-044/aecepoglu/bqn/ch-2.bqn b/challenge-044/aecepoglu/bqn/ch-2.bqn
new file mode 100644
index 0000000000..a8d0c6534e
--- /dev/null
+++ b/challenge-044/aecepoglu/bqn/ch-2.bqn
@@ -0,0 +1,2 @@
+# 2
+⍉(↕∘≠)⊸≍0‿1{𝕩∾1+𝕩⊑˜ 2⊸|◶⟨÷⟜2,-⟜1⟩ 𝕨}´¯2↓⌽⊢↕201