Оновити 'cv4/list_ops.c'

This commit is contained in:
Kapliuk 2024-03-14 14:17:38 +00:00
parent 77162776ea
commit 4275d1a320

View File

@ -38,7 +38,7 @@ list_t *filter_list(list_t *list, bool (*predicate)(list_element_t)) {
} }
} }
list_t *result = malloc(list->length); list_t *result = malloc(list->length);
if (NULL == result) { if (result == NULL) {
return NULL; return NULL;
} }
for(size_t i = 0;i < list->length;i++) for(size_t i = 0;i < list->length;i++)
@ -66,9 +66,6 @@ list_t *map_list(list_t *list, list_element_t (*mapper)(list_element_t)) {
list_element_t foldl_list(list_t *list, list_element_t initial, list_element_t (*folder)(list_element_t, list_element_t)) { list_element_t foldl_list(list_t *list, list_element_t initial, list_element_t (*folder)(list_element_t, list_element_t)) {
list_element_t result = initial; list_element_t result = initial;
if (NULL == result) {
return NULL;
}
for (size_t i = 0; i < list->length; i++) { for (size_t i = 0; i < list->length; i++) {
result = folder(result, list->elements[i]); result = folder(result, list->elements[i]);
} }
@ -78,9 +75,6 @@ list_element_t foldl_list(list_t *list, list_element_t initial, list_element_t (
list_element_t foldr_list(list_t *list, list_element_t initial, list_element_t (*folder)(list_element_t, list_element_t)) { list_element_t foldr_list(list_t *list, list_element_t initial, list_element_t (*folder)(list_element_t, list_element_t)) {
list_element_t result = initial; list_element_t result = initial;
if (NULL == result) {
return NULL;
}
for (size_t i = list->length; i > 0; i--) { for (size_t i = list->length; i > 0; i--) {
result = folder(list->elements[i - 1], result); result = folder(list->elements[i - 1], result);
} }