about summary refs log tree commit diff stats
path: root/075random.cc
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2016-06-13 16:25:45 -0700
committerKartik K. Agaram <vc@akkartik.com>2016-06-13 16:25:45 -0700
commit5e15a74f06e19e75954547cadc8bc73f9034727e (patch)
tree865531ced05be722a67dd874338c791eb4da9622 /075random.cc
parent29cc15d6b3559221e1147f1a822e10dcb22678e6 (diff)
downloadmu-5e15a74f06e19e75954547cadc8bc73f9034727e.tar.gz
3055
Diffstat (limited to '075random.cc')
-rw-r--r--075random.cc62
1 files changed, 0 insertions, 62 deletions
diff --git a/075random.cc b/075random.cc
deleted file mode 100644
index 4cec27bd..00000000
--- a/075random.cc
+++ /dev/null
@@ -1,62 +0,0 @@
-:(before "End Primitive Recipe Declarations")
-RANDOM,
-:(before "End Primitive Recipe Numbers")
-put(Recipe_ordinal, "random", RANDOM);
-:(before "End Primitive Recipe Checks")
-case RANDOM: {
-  break;
-}
-:(before "End Primitive Recipe Implementations")
-case RANDOM: {
-  // todo: limited range of numbers, might be imperfectly random
-  // todo: thread state in extra ingredients and products
-  products.resize(1);
-  products.at(0).push_back(rand());
-  break;
-}
-
-:(before "End Primitive Recipe Declarations")
-MAKE_RANDOM_NONDETERMINISTIC,
-:(before "End Primitive Recipe Numbers")
-put(Recipe_ordinal, "make-random-nondeterministic", MAKE_RANDOM_NONDETERMINISTIC);
-:(before "End Primitive Recipe Checks")
-case MAKE_RANDOM_NONDETERMINISTIC: {
-  break;
-}
-:(before "End Primitive Recipe Implementations")
-case MAKE_RANDOM_NONDETERMINISTIC: {
-  srand(time(NULL));
-  break;
-}
-
-:(before "End Primitive Recipe Declarations")
-ROUND,
-:(before "End Primitive Recipe Numbers")
-put(Recipe_ordinal, "round", ROUND);
-:(before "End Primitive Recipe Checks")
-case ROUND: {
-  if (SIZE(inst.ingredients) != 1) {
-    raise << maybe(get(Recipe, r).name) << "'round' requires exactly one ingredient, but got '" << to_original_string(inst) << "'\n" << end();
-    break;
-  }
-  if (!is_mu_number(inst.ingredients.at(0))) {
-    raise << maybe(get(Recipe, r).name) << "first ingredient of 'round' should be a number, but got '" << inst.ingredients.at(0).original_string << "'\n" << end();
-    break;
-  }
-  break;
-}
-:(before "End Primitive Recipe Implementations")
-case ROUND: {
-  products.resize(1);
-  products.at(0).push_back(rint(ingredients.at(0).at(0)));
-  break;
-}
-
-:(scenario round_to_nearest_integer)
-def main [
-  1:number <- round 12.2
-]
-+mem: storing 12 in location 1
-
-:(before "End Includes")
-#include <math.h>