Someone
public text v1 · immutablerequire random.fs
: roll-die ( sides -- result )
random 1+ ;
: sided-rolls ( number sides -- total )
swap 0 swap 0 ?do over roll-die + loop nip ;
2 6 sided-rolls .
require random.fs
: roll-die ( sides -- result )
random 1+ ;
: sided-rolls ( number sides -- total )
swap 0 swap 0 ?do over roll-die + loop nip ;
2 6 sided-rolls .