25 lines
725 B
BQN
25 lines
725 B
BQN
(
|
||
# character 𝕨∊𝕩
|
||
⟨V⇐Variation,LV⇐ListVariations,CL⇐ClearRefs,EE⇐EEqual⟩←•internal
|
||
R ← •rand.Range
|
||
_t←{w F _𝕣 x: ∧´EE¨⟜⊏⥊(LV 𝕨){(𝕨 V w) F 𝕩 V x}⌜LV𝕩?CL@; •Show¨𝕗‿𝕨‿𝕩⋄!0}
|
||
GS←{𝕊: @+0⌈(¯1+2⋆R∘≠⊸⊑7‿8‿15‿16‿20) - R˜R 200}
|
||
{𝕊:(GS@) ∊_t GS@}¨↕1000
|
||
)
|
||
|
||
(
|
||
# ∾𝕩 not getting garbage
|
||
≠{𝕊: ! ∧´1=⥊∾⎊1 ⥊⟜1¨ (4•rand.Range 3) •rand.Range¨ 4}¨↕10000
|
||
)
|
||
|
||
(
|
||
# bitarr »˘ / «˘
|
||
_test ← {𝔽_𝕣𝕩:
|
||
a←(1+2•rand.Range 100)•rand.Range 2
|
||
v←•rand.Range 2
|
||
v‿a ! (v 𝔽○•internal.Keep˘ a) ≡ v 𝔽˘ a
|
||
}
|
||
» _test¨ ↕10000
|
||
« _test¨ ↕10000
|
||
)
|