3
A Homework Solution
•program FW;
•config var n : integer = 10;
•region R = [1..n,1..n];
•       H = [*,1..n];
•       V = [1..n,*];
•var    E : [R] integer;
•      Hk : [H] integer;
•      Vk : [V] integer;
•procedure FW();
•var k : integer;
•[R] begin 
•    -- Read E here, infinity is 10K
•     for k := 1 to n do
•[H]     Hk := >> [k, ]E;
•[V]     Vk := >> [ ,k]E;
•         E := min(E, Hk + Vk);
•     end;
•    -- Write E here
•end;