From 967be9e750221ab2ab783f95df79bb26d290a45e Mon Sep 17 00:00:00 2001 From: Martial Simon Date: Mon, 15 Sep 2025 01:07:58 +0200 Subject: add: added projects --- tigrou/use-an-array/use-an-array.tig | 44 ++++++++++++++++++++++++++++++++++++ 1 file changed, 44 insertions(+) create mode 100644 tigrou/use-an-array/use-an-array.tig (limited to 'tigrou/use-an-array/use-an-array.tig') diff --git a/tigrou/use-an-array/use-an-array.tig b/tigrou/use-an-array/use-an-array.tig new file mode 100644 index 0000000..20b4670 --- /dev/null +++ b/tigrou/use-an-array/use-an-array.tig @@ -0,0 +1,44 @@ +let + import "use-an-array.tih" + var array_1 := int_array[5] of 0 + var array_2 := int_array[4] of 0 + var array_3 := int_array[4] of 0 + +in + array_1[0] := 14; + array_1[1] := 16; + array_1[2] := 18; + array_1[3] := 12; + array_1[4] := 18; + + array_2[0] := 21; + array_2[1] := 22; + array_2[2] := 23; + array_2[3] := 24; + + array_3[0] := 39; + array_3[1] := 38; + array_3[2] := 37; + array_3[3] := 36; + + let + function test_max_search(arr: int_array, size: int, expected: int) = + ( + print("Looking for maximum's index in array\n[ "); + for i := 0 to size - 1 do + ( + print_int(arr[i]); + print(" ") + ); + print("]\nExpected : "); + print_int(expected); + print("\ngot : "); + print_int(max_search(arr, size)); + print("\n\n") + ) + in + test_max_search(array_1, 5, 2); + test_max_search(array_2, 4, 3); + test_max_search(array_3, 4, 0) + end +end -- cgit v1.2.3