Simplify credit market function

Author: Tortar

src/markets/search_and_matching_credit.jl

@@ -1,5 +1,4 @@
 
-
 """
     search_and_matching_credit(firms::Firms, model)
 
@@ -20,10 +19,8 @@ function search_and_matching_credit(firms::AbstractFirms, model)
 
     DL_i = zeros(size(DL_d_i))
     I_FG = findall(DL_d_i .> 0)
-    # I_FG = I_FG[randperm(length(I_FG))]
     shuffle!(I_FG)
-    for f in eachindex(I_FG)
-        i = I_FG[f]
+    for i in I_FG
         DL_i[i] = max(0, min(min(DL_d_i[i], zeta_LTV * K_e_i[i] - L_e_i[i]), E_k / zeta - (sum(L_e_i) + sum(DL_i))))
     end
     return DL_i