aboutsummaryrefslogtreecommitdiff
path: root/challenge-015/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-015/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-015/aecepoglu')
-rw-r--r--challenge-015/aecepoglu/README.md1
-rw-r--r--challenge-015/aecepoglu/bqn/ch-1.bqn6
-rw-r--r--challenge-015/aecepoglu/bqn/ch-2.bqn10
3 files changed, 17 insertions, 0 deletions
diff --git a/challenge-015/aecepoglu/README.md b/challenge-015/aecepoglu/README.md
new file mode 100644
index 0000000000..2f43e385e0
--- /dev/null
+++ b/challenge-015/aecepoglu/README.md
@@ -0,0 +1 @@
+Overdue solutions by AhmetEmre
diff --git a/challenge-015/aecepoglu/bqn/ch-1.bqn b/challenge-015/aecepoglu/bqn/ch-1.bqn
new file mode 100644
index 0000000000..aee36c75fe
--- /dev/null
+++ b/challenge-015/aecepoglu/bqn/ch-1.bqn
@@ -0,0 +1,6 @@
+# Challenge 1
+# Strong p(n): p(n) > [ p(n-1) + p(n+1) ] / 2
+# Weak p(n): p(n) < [ p(n-1) + p(n+1) ] / 2
+p←/ (1<n) {𝕩∧¬𝕨(≠∧(0=|))n}´⌽ 2↓ n←↕250# sieve based primes
+(1⊏⎉1 {𝕊a‿b‿c:b>2÷˜a+c}˘/⊢)3↕p # strong primes
+(1⊏⎉1 {𝕊a‿b‿c:b<2÷˜a+c}˘/⊢)3↕p # weak primes
diff --git a/challenge-015/aecepoglu/bqn/ch-2.bqn b/challenge-015/aecepoglu/bqn/ch-2.bqn
new file mode 100644
index 0000000000..3f374a0ba0
--- /dev/null
+++ b/challenge-015/aecepoglu/bqn/ch-2.bqn
@@ -0,0 +1,10 @@
+# WEEK 15
+
+# Challenge 2
+# Write a script to implement Vigenère cipher
+# The script should be able encode and decode
+_Vigenere←{𝕨 (('a'+26|⊢𝔽⥊˜⟜≠)○('a'-˜+⟜(32×1="A["⊸⍋))) 𝕩}
+Encd←({+} _Vigenere)
+Decd←({-} _Vigenere)
+
+"attackatdawn"≡"LEMON"Decd"LEMON"Encd"attackatdawn"