fprettify styles in example files

TheAlgorithms · Sep 27, 2024 · fe82279 · fe82279
1 parent e4dd573
commit fe82279
Show file tree

Hide file tree

Showing 4 changed files with 9 additions and 9 deletions.
diff --git a/examples/searches/example_linear_search.f90 b/examples/searches/example_linear_search.f90
@@ -8,12 +8,12 @@ program linear_search_program
 
     integer, dimension(5) :: array
 
-    array = (/ 540, 6, 10, 100, 3 /)
+    array = (/540, 6, 10, 100, 3/)
 
     !! Search for the number 6 in array.
-    print*, "Target = 6: ", linear_search(array, 6) !! Prints 2.
+    print *, "Target = 6: ", linear_search(array, 6) !! Prints 2.
 
     !! Search for the number 5 in array.
-    print*, "Target = 5: ", linear_search(array, 5) !! Prints -1 because item 5 is not found.
+    print *, "Target = 5: ", linear_search(array, 5) !! Prints -1 because item 5 is not found.
 
 end program linear_search_program
diff --git a/examples/searches/recursive_linear_search.f90 b/examples/searches/recursive_linear_search.f90
@@ -8,12 +8,12 @@ program recursive_linear_search_example
 
     integer, dimension(5) :: array
 
-    array = (/ 306, 1005, 5, 62, 0 /)
+    array = (/306, 1005, 5, 62, 0/)
 
     !! Search for the number 62 in the array
-    print*, "Target = 62: ", recursive_linear_search(array, size(array), 62) !! Prints 4.
+    print *, "Target = 62: ", recursive_linear_search(array, size(array), 62) !! Prints 4.
 
     !! Search for the number 10 in the array
-    print*, "Target = 10: ", recursive_linear_search(array, size(array), 10) !! Prints -1 because item 10 is not found.
+    print *, "Target = 10: ", recursive_linear_search(array, size(array), 10) !! Prints -1 because item 10 is not found.
 
 end program recursive_linear_search_example
diff --git a/modules/searches/linear_search.f90 b/modules/searches/linear_search.f90
@@ -8,7 +8,7 @@ module linear_search_module
 
     !! This function searches for a target in a given collection.
     !! Returns the index of the found target or -1 if target is not found.
-    function linear_search (collection, target) result(target_index)
+    function linear_search(collection, target) result(target_index)
         integer, dimension(:), intent(in) :: collection   !! A collection for elements of type integer
         integer, intent(in)               :: target       !! Target value to be searched.
         integer                           :: target_index !! Target's index in the collection to return.

diff --git a/modules/searches/recursive_linear_search.f90 b/modules/searches/recursive_linear_search.f90
@@ -26,9 +26,9 @@ recursive function recursive_linear_search(collection, index, target) result(tar
             target_index = index
         else
             !! Recursively search in the remaining part of the collection
-            target_index = recursive_linear_search(collection, index-1, target)
+            target_index = recursive_linear_search(collection, index - 1, target)
         end if
 
     end function recursive_linear_search
 
-end module recursive_linear_search_module
+end module recursive_linear_search_module