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

This commit is contained in:
Kapliuk 2024-03-14 14:07:53 +00:00
parent cd5d00e56d
commit 9035398b3f

View File

@ -55,7 +55,7 @@ list_element_t foldl_list(list_t *list, list_element_t initial, list_element_t (
list_element_t result = initial; list_element_t result = initial;
for (size_t i = 0; i < list->length; i++) { for (size_t i = 0; i < list->length; i++) {
result = folder(accumulator, list->elements[i]); result = folder(result, list->elements[i]);
} }
return result; return result;
@ -65,7 +65,7 @@ list_element_t foldr_list(list_t *list, list_element_t initial, list_element_t (
list_element_t result = initial; list_element_t result = initial;
for (size_t i = list->length; i > 0; i--) { for (size_t i = list->length; i > 0; i--) {
result = folder(list->elements[i - 1], accumulator); result = folder(list->elements[i - 1], result);
} }
return result; return result;