6 lines
241 B
BQN
6 lines
241 B
BQN
_while_←{𝔽⍟𝔾∘𝔽_𝕣_𝔾∘𝔽⍟𝔾𝕩}
|
||
(2-modifier block)
|
||
Roll←{𝕊:{𝕊:((+´-⌊´)1+4⊸•rand.Range)¨6⥊6}_while_{(75>+´𝕩)∨2>+´15≤𝕩}⟨⟩}
|
||
(function block)
|
||
Roll@
|
||
⟨ 11 16 12 10 16 13 ⟩
|