diff options
Diffstat (limited to 'awk/rawk/tests/real_world/test_data_processing.rawk')
-rw-r--r-- | awk/rawk/tests/real_world/test_data_processing.rawk | 75 |
1 files changed, 0 insertions, 75 deletions
diff --git a/awk/rawk/tests/real_world/test_data_processing.rawk b/awk/rawk/tests/real_world/test_data_processing.rawk deleted file mode 100644 index dba1a0b..0000000 --- a/awk/rawk/tests/real_world/test_data_processing.rawk +++ /dev/null @@ -1,75 +0,0 @@ -# Test data processing scenarios -$filter_positive = (arr, result, i, count) -> { - count = 0 - for (i in arr) { - if (arr[i] > 0) { - result[++count] = arr[i] - } - } - return result -}; - -$sum_array = (arr, sum, i) -> { - sum = 0 - for (i in arr) { - sum += arr[i] - } - return sum -}; - -$average_array = (arr, sum, count, i) -> { - sum = 0 - count = 0 - for (i in arr) { - sum += arr[i] - count++ - } - return count > 0 ? sum / count : 0 -}; - -$find_max = (arr, max, i, first) -> { - first = 1 - for (i in arr) { - if (first || arr[i] > max) { - max = arr[i] - first = 0 - } - } - return max -}; - -$format_data = (name, age, city) -> { - return "Name: " name ", Age: " age ", City: " city -}; - -# Test data processing -BEGIN { - print "=== Testing Data Processing ===" - - # Test array operations - data[1] = 10 - data[2] = -5 - data[3] = 20 - data[4] = -3 - data[5] = 15 - - print "Original data:", data[1], data[2], data[3], data[4], data[5] - - # Test filtering - positive_nums = filter_positive(data) - print "Positive numbers:", positive_nums[1], positive_nums[2], positive_nums[3] - - # Test sum and average - total = sum_array(data) - avg = average_array(data) - print "Sum:", total - print "Average:", avg - - # Test finding maximum - max_val = find_max(data) - print "Maximum:", max_val - - # Test data formatting - formatted = format_data("Alice", 30, "New York") - print "Formatted:", formatted -} \ No newline at end of file |