Converted shiftVertices to lambda expression and corrected lint formatting

Author: devansh2605

gap/digraph.gi

@@ -1843,7 +1843,7 @@ n -> RandomLatticeCons(IsImmutableDigraph, n));
 InstallMethod(RandomLattice, "for a func and a pos int", [IsFunction, IsPosInt],
 RandomLatticeCons);
 
-InstallGlobalFunction(CopyEdgeWeightsForSubdigraph, 
+InstallGlobalFunction(CopyEdgeWeightsForSubdigraph,
 function(oldDigraph, newDigraph, removedVertices)
     local oldWeights, newWeights, i, j, weight, shiftVertices;
 
@@ -1853,13 +1853,11 @@ function(oldDigraph, newDigraph, removedVertices)
 
     oldWeights := EdgeWeights(oldDigraph);
     newWeights := [];
+    shiftVertices := x -> x + Length(Filtered(removedVertices, v -> v <= x));
+
     for i in [1 .. DigraphNrVertices(newDigraph)] do
         newWeights[i] := [];
-        
         for j in OutNeighbours(newDigraph, i) do
-            shiftVertices := function(x)
-                return x + Length(Filtered(removedVertices, v -> v <= x));
-            end;
             weight := oldWeights[shiftVertices(i)][shiftVertices(j)];
             Add(newWeights[i], weight);
         od;