13 lines
408 B
BQN
13 lines
408 B
BQN
⊑ 8‿32•bit._cast 3↓↕7 %% 100992003
|
||
|
||
(
|
||
r←(⊑•args).GetRand@
|
||
{ ·‿dw‿·𝕊sk‿sw‿e:
|
||
a0 ← {
|
||
dw=64? 𝕩⥊0‿1;
|
||
𝕩 r.Range e
|
||
} (1+8×1⌈dw÷sw)
|
||
{•internal.Keep¨ sw‿dw •bit._cast 1↓𝕩•internal.Variation a0}¨ ∾⟜"Inc"¨⊸∾ ∾⟜sk¨ "AS"
|
||
}⌜˜ ⟨"b"‿1‿2, "i8"‿8‿100, "i16"‿16‿1e4, "i32"‿32‿1e9, "f64"‿64‿0⟩
|
||
)
|