From 5e15a74f06e19e75954547cadc8bc73f9034727e Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Mon, 13 Jun 2016 16:25:45 -0700 Subject: 3055 --- 075random.cc | 62 ------------------------------------------------------------ 1 file changed, 62 deletions(-) delete mode 100644 075random.cc (limited to '075random.cc') 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 -- cgit 1.4.1-2-gfad0 mitter'>committer

path: root/baremetal/shell/main.mu

blob: 262b9829a63be61f87c2f55e6df4a803e1157341 (plain) (blame)