diff options
Diffstat (limited to 'html/068random.mu.html')
-rw-r--r-- | html/068random.mu.html | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/html/068random.mu.html b/html/068random.mu.html index 52707f10..20b26659 100644 --- a/html/068random.mu.html +++ b/html/068random.mu.html @@ -86,6 +86,25 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color <span class="Constant">8</span><span class="Special"> <- </span><span class="Constant">1</span> <span class="Comment"># end of stream</span> ] ] + +<span class="muRecipe">def</span> random-in-range generator:&:stream:num, start:num, end:num<span class="muRecipe"> -> </span>result:num, fail?:bool, generator:&:stream:num [ + <span class="Constant">local-scope</span> + <span class="Constant">load-ingredients</span> + result, fail?, generator<span class="Special"> <- </span>random generator + <span class="muControl">return-if</span> fail? + delta:num<span class="Special"> <- </span>subtract end, start + _, result<span class="Special"> <- </span>divide-with-remainder result, delta + result<span class="Special"> <- </span>add result, start +] + +<span class="muScenario">scenario</span> random-in-range [ + <span class="Constant">local-scope</span> + source:&:stream:num<span class="Special"> <- </span>assume-random-numbers <span class="Constant">91</span> + <span class="Constant">1</span>:num/<span class="Special">raw <- </span>random-in-range source, <span class="Constant">40</span>, <span class="Constant">50</span> + memory-should-contain [ + <span class="Constant">1</span><span class="Special"> <- </span><span class="Constant">41</span> + ] +] </pre> </body> </html> |