blob: 8f18180ee62b8a1e0297601ee3d822389117396a (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
//: Recipe to compute the length of an array.
:(scenario array_length)
recipe main [
1:integer <- copy 3:literal
2:integer <- copy 14:literal
3:integer <- copy 15:literal
4:integer <- copy 16:literal
5:integer <- length 1:array:integer
]
+run: instruction main/4
+mem: storing 3 in location 5
:(before "End Primitive Recipe Declarations")
LENGTH,
:(before "End Primitive Recipe Numbers")
Recipe_number["length"] = LENGTH;
:(before "End Primitive Recipe Implementations")
case LENGTH: {
reagent x = canonize(current_instruction().ingredients.at(0));
if (x.types.at(0) != Type_number["array"]) {
raise << "tried to calculate length of non-array " << x.to_string() << '\n';
break;
}
products.resize(1);
assert(is_integer(Memory[x.value]));
assert(!is_negative(Memory[x.value]));
products.at(0).push_back(Memory[x.value]); // length must be a positive integer
break;
}
|