randomize shape a bit in test/copy.bqn
This commit is contained in:
parent
ab868a55f3
commit
103f334b3e
@ -20,9 +20,14 @@ count ← 10000
|
||||
eqlen ← 0
|
||||
|
||||
{𝕊:
|
||||
n ← R 2⋆6+R 9
|
||||
n ← R 2⋆5+R 9
|
||||
shl ← 1⊸+•_while_{(R 2)∧0=1|n÷2⋆𝕩+1} 0
|
||||
sh ← (n÷2⋆shl)∾shl⥊2
|
||||
{𝕊: sh↩⟨⟩}⍟⊢ (n=1) ∧ 0=R 2
|
||||
|
||||
! n ≡ ×´sh
|
||||
v ← R ≠vn
|
||||
l ← ⊢◶⟨
|
||||
l ← sh ⥊ ⊢◶⟨
|
||||
{𝕊: (v⊑0∾2⋆6‿14‿30) -˜ n R 2⋆v⊑1‿7‿15‿31}
|
||||
{𝕊: ÷n R 0}
|
||||
{𝕊: @+n R (v-5)⊑256‿65536‿1114112}
|
||||
|
||||
Loading…
Reference in New Issue
Block a user