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

about summary refs log tree commit diff

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

blob: 58336e9f9387f112618045a1bc2e944320e03ad8 (plain)

# TASK 1
n←10
m←[1‿2‿5,6‿7‿9,11‿12‿13]
n(⊣=⊢⊑˜0⌈⊑∘⍋˜-1˙)m⊏˜ n⊑∘(1-˜⍋˜)⊑˘m