From e62ef075da85367425862ac399f12ff3991349de Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Thu, 20 Oct 2016 23:07:51 -0700
Subject: 3537

---
 068random.mu | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/068random.mu b/068random.mu
index d22d453f..8f7a53b7 100644
--- a/068random.mu
+++ b/068random.mu
@@ -53,3 +53,22 @@ scenario random-numbers-in-scenario [
     8 <- 1  # end of stream
   ]
 ]
+
+def random-in-range generator:&:stream:num, start:num, end:num -> result:num, fail?:bool, generator:&:stream:num [
+  local-scope
+  load-ingredients
+  result, fail?, generator <- random generator
+  return-if fail?
+  delta:num <- subtract end, start
+  _, result <- divide-with-remainder result, delta
+  result <- add result, start
+]
+
+scenario random-in-range [
+  local-scope
+  source:&:stream:num <- assume-random-numbers 91
+  1:num/raw <- random-in-range source, 40, 50
+  memory-should-contain [
+    1 <- 41
+  ]
+]
-- 
cgit 1.4.1-2-gfad0