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-012 | |
| 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-012')
| -rw-r--r-- | challenge-012/aecepoglu/README.md | 1 | ||||
| -rw-r--r-- | challenge-012/aecepoglu/bqn/ch-1.bqn | 12 | ||||
| -rw-r--r-- | challenge-012/aecepoglu/bqn/ch-2.bqn | 8 |
3 files changed, 21 insertions, 0 deletions
diff --git a/challenge-012/aecepoglu/README.md b/challenge-012/aecepoglu/README.md new file mode 100644 index 0000000000..2f43e385e0 --- /dev/null +++ b/challenge-012/aecepoglu/README.md @@ -0,0 +1 @@ +Overdue solutions by AhmetEmre diff --git a/challenge-012/aecepoglu/bqn/ch-1.bqn b/challenge-012/aecepoglu/bqn/ch-1.bqn new file mode 100644 index 0000000000..929148e64f --- /dev/null +++ b/challenge-012/aecepoglu/bqn/ch-1.bqn @@ -0,0 +1,12 @@ +# Week 12 +# Challenge 1 +# The numbers formed by adding one to +# the products of the smallest primes are +# called the Euclid Numbers (see wiki). +# Write a script that finds the smallest +# Euclid Number that is not prime. + +IsPrime←{0=∨´0=𝕩|˜2↓↕⌈2÷˜𝕩} +p←/ (1<n) {𝕩∧¬𝕨(≠∧(0=|))n}´⌽ 2↓ n←↕100# sieve based primes +1+×`p # euclid numbers +⊑(¬∘IsPrime¨/⊢)7↑1+×`p diff --git a/challenge-012/aecepoglu/bqn/ch-2.bqn b/challenge-012/aecepoglu/bqn/ch-2.bqn new file mode 100644 index 0000000000..b42149b97b --- /dev/null +++ b/challenge-012/aecepoglu/bqn/ch-2.bqn @@ -0,0 +1,8 @@ +# Challenge 2 +# +#Write a script that finds the common directory path, given +#a collection of paths and directory separator. For example, +#if the following paths are supplied. + +d←"/a/b/c/d"‿"/a/b/cd"‿"/a/b/cc"‿"/a/b/c/d/e" +⊑⌽(⊑∘⌽¨'/'=⊢)⊸/⊏⍉((1=+´∘∊)˘/⊢)⍉d↑˜⌜1+↕⌊´≠¨d |
