fix test/bitcpy.bqn
rand.Range is now too smart
This commit is contained in:
parent
484158318a
commit
f39784aa10
@ -1,5 +1,5 @@
|
|||||||
# make f='-O3 -march=native -DTEST_BITCPY' singeli=1 c && ./BQN test/bitcpy.bqn
|
# make f='-O3 -march=native -DTEST_BITCPY' singeli=1 c && ./BQN test/bitcpy.bqn
|
||||||
⟨Temp, Type, Unshare, Squeeze, Info⟩ ← •internal
|
⟨Temp, Type, Unshare, Squeeze, Info, Variation⟩ ← •internal
|
||||||
u ← ⌊100×(•UnixTime+1|100וMonoTime)@
|
u ← ⌊100×(•UnixTime+1|100וMonoTime)@
|
||||||
# u ↩ 123
|
# u ↩ 123
|
||||||
|
|
||||||
@ -8,12 +8,12 @@ r ← •MakeRand •Show u
|
|||||||
|
|
||||||
Do ← { 𝕊:
|
Do ← { 𝕊:
|
||||||
al ← 1+r.Range 500
|
al ← 1+r.Range 500
|
||||||
aT ← al r.Range 2
|
a ← al r.Range 2
|
||||||
a ← Squeeze aT
|
aT ← "Ai32" Variation a
|
||||||
! a ≡ aT
|
! a ≡ aT
|
||||||
! "i32arr" ≡ Type aT
|
|
||||||
! "bitarr" ≡ Type a
|
! "bitarr" ≡ Type a
|
||||||
b ← Squeeze al r.Range 2
|
b ← al r.Range 2
|
||||||
|
! "bitarr" ≡ Type b
|
||||||
{ 𝕊:
|
{ 𝕊:
|
||||||
bl ← r.Range 1+al
|
bl ← r.Range 1+al
|
||||||
as ← r.Range 1+al-bl
|
as ← r.Range 1+al-bl
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user