From c495d2ac7ca0d7f1c1a9bbb7d1ad5072a7eface5 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Fri, 17 Apr 2015 11:00:56 -0700 Subject: 1075 --- cpp/015boolean | 93 ---------------------------------------------------------- 1 file changed, 93 deletions(-) delete mode 100644 cpp/015boolean (limited to 'cpp/015boolean') diff --git a/cpp/015boolean b/cpp/015boolean deleted file mode 100644 index 6c677f7e..00000000 --- a/cpp/015boolean +++ /dev/null @@ -1,93 +0,0 @@ -:(before "End Primitive Recipe Declarations") -// Boolean ops. -AND, -:(before "End Primitive Recipe Numbers") -Recipe_number["and"] = AND; -:(before "End Primitive Recipe Implementations") -case AND: { - trace("run") << "ingredient 0 is " << instructions[pc].ingredients[0].name; - vector arg0 = read_memory(instructions[pc].ingredients[0]); - assert(arg0.size() == 1); - trace("run") << "ingredient 1 is " << instructions[pc].ingredients[1].name; - vector arg1 = read_memory(instructions[pc].ingredients[1]); - assert(arg1.size() == 1); - vector result; - result.push_back(arg0[0] && arg1[0]); - trace("run") << "product 0 is " << result[0]; - write_memory(instructions[pc].products[0], result); - break; -} - -:(scenario "and") -recipe main [ - 1:integer <- copy 1:literal - 2:integer <- copy 0:literal - 3:integer <- and 1:integer, 2:integer -] -+run: instruction main/2 -+run: ingredient 0 is 1 -+mem: location 1 is 1 -+run: ingredient 1 is 2 -+mem: location 2 is 0 -+run: product 0 is 0 -+mem: storing 0 in location 3 - -:(before "End Primitive Recipe Declarations") -OR, -:(before "End Primitive Recipe Numbers") -Recipe_number["or"] = OR; -:(before "End Primitive Recipe Implementations") -case OR: { - trace("run") << "ingredient 0 is " << instructions[pc].ingredients[0].name; - vector arg0 = read_memory(instructions[pc].ingredients[0]); - assert(arg0.size() == 1); - trace("run") << "ingredient 1 is " << instructions[pc].ingredients[1].name; - vector arg1 = read_memory(instructions[pc].ingredients[1]); - assert(arg1.size() == 1); - vector result; - result.push_back(arg0[0] || arg1[0]); - trace("run") << "product 0 is " << result[0]; - write_memory(instructions[pc].products[0], result); - break; -} - -:(scenario "or") -recipe main [ - 1:integer <- copy 1:literal - 2:integer <- copy 0:literal - 3:integer <- or 1:integer, 2:integer -] -+run: instruction main/2 -+run: ingredient 0 is 1 -+mem: location 1 is 1 -+run: ingredient 1 is 2 -+mem: location 2 is 0 -+run: product 0 is 1 -+mem: storing 1 in location 3 - -:(before "End Primitive Recipe Declarations") -NOT, -:(before "End Primitive Recipe Numbers") -Recipe_number["not"] = NOT; -:(before "End Primitive Recipe Implementations") -case NOT: { - trace("run") << "ingredient 0 is " << instructions[pc].ingredients[0].name; - vector arg0 = read_memory(instructions[pc].ingredients[0]); - assert(arg0.size() == 1); - vector result; - result.push_back(!arg0[0]); - trace("run") << "product 0 is " << result[0]; - write_memory(instructions[pc].products[0], result); - break; -} - -:(scenario "not") -recipe main [ - 1:integer <- copy 1:literal - 2:integer <- not 1:integer -] -+run: instruction main/1 -+run: ingredient 0 is 1 -+mem: location 1 is 1 -+run: product 0 is 0 -+mem: storing 0 in location 2 -- cgit 1.4.1-2-gfad0 an class='oid'>ed2d399f ^ 
1