ch-1.bqn « bqn « aecepoglu « challenge-076 - github/perlweeklychallenge-club.git - Unnamed repository; edit this file 'description' to name the repository.

about summary refs log tree commit diff

path: root/challenge-076/aecepoglu/bqn/ch-1.bqn

blob: 05e0cb4dcdfa5ba54189ef1317efe5ef0ff0456a (plain)

1
2

p←/ (1<n) {𝕩∧¬𝕨(≠∧(0=|))n}´⌽ 2↓ n←↕100                   # sieve based primes
(>´¨)⊸/(9=+´¨)⊸/⥊⋈⌜˜p(∊/⊣)↕9