add Array>>#min

citrine.h

@@ -488,6 +488,7 @@ ctr_object* ctr_array_put(ctr_object* myself, ctr_argument* argumentList);
 ctr_object* ctr_array_from_to(ctr_object* myself, ctr_argument* argumentList);
 ctr_object* ctr_array_add(ctr_object* myself, ctr_argument* argumentList);
 ctr_object* ctr_array_map(ctr_object* myself, ctr_argument* argumentList);
+ctr_object* ctr_array_min(ctr_object* myself, ctr_argument* argumentList);
 ctr_object* ctr_array_sum(ctr_object* myself, ctr_argument* argumentList);
 ctr_object* ctr_array_product(ctr_object* myself, ctr_argument* argumentList);
 

collections.c

@@ -58,6 +58,32 @@ ctr_object* ctr_array_push(ctr_object* myself, ctr_argument* argumentList) {
 	return myself;
 }
 
+/**
+ * [Array] min
+ *
+ * Returns the minimum value from an array.
+ *
+ * Usage:
+ *
+ * a := Array <- 8 ; 4 ; 2 ; 16.
+ * m := a min. #2
+ *
+ */
+ctr_object* ctr_array_min(ctr_object* myself, ctr_argument* argumentList) {
+	double min = 0;
+	double v = 0;
+	ctr_object* el;
+	size_t i = 0;
+	for(i = 0; i < myself->value.avalue->head; i++) {
+		el = *(myself->value.avalue->elements + i);
+		v = ctr_internal_cast2number(el)->value.nvalue;
+		if (i == 0 || v < min) {
+			min = v;
+		}
+	}
+	return ctr_build_number_from_float(min);
+}
+
 /**
  * [Array] sum
  *

world.c

@@ -661,6 +661,7 @@ void ctr_initialize_world() {
 	ctr_internal_create_func(CtrStdArray, ctr_build_string("+", 1), &ctr_array_add);
 	ctr_internal_create_func(CtrStdArray, ctr_build_string("map:", 4), &ctr_array_map);
 	ctr_internal_create_func(CtrStdArray, ctr_build_string("each:", 5), &ctr_array_map);
+	ctr_internal_create_func(CtrStdArray, ctr_build_string("min", 3), &ctr_array_min);
 	ctr_internal_create_func(CtrStdArray, ctr_build_string("sum", 3), &ctr_array_sum);
 	ctr_internal_create_func(CtrStdArray, ctr_build_string("product", 7), &ctr_array_product);
 	ctr_internal_object_add_property(CtrStdWorld, ctr_build_string("Array", 5), CtrStdArray, 0);