^вероятно_ли(вероятность)

R. Averkov 25.11.2005 16:47 / 25.11.2005 16:50

@is_probably[probability]
$result(^math:random(1000) < ^probability.format[%.3f]*1000)

@if_probably[probability;probable;improbable]
^if(^math:random(1000) < ^probability.format[%.3f]*1000){$probable}{$improbable}

^if(^is_probably(0.005)){случилось}{не случилось}
^if_probably(0.005){случилось}{не случилось}