swarm-0.6.0.0: data/scenarios/Testing/836-pathfinding/_836-path-exists/find-location-solution.sw

def goDir = \f. \r.
  let d = fst r in
  if (d == down) {
    grab; return ()
  } {
    turn d; move; f;
  }
  end;

def followRoute =
    nextDir <- path (inL ()) (inL (4, 0));
    case nextDir return $ goDir followRoute;
    end;

followRoute;