Problem:
Problem D: Cliff Climbing

At 17:00, special agent Jack starts to escape from the enemy camp.
There is a cliff in between the camp and the nearest safety zone.
Jack has to climb the almost vertical cliff
by stepping his feet on the blocks that cover the cliff.
The cliff has slippery blocks where Jack has to
spend time to take each step.
He also has to bypass some blocks that are too loose to support his weight.
Your mission is to write a program that calculates the minimum time to complete climbing.

Figure D-1 shows an example of cliff data that you will
receive.
The cliff is covered with square blocks.
Jack starts cliff climbing from the ground under the cliff,
by stepping his left or right foot on one of the blocks marked with
'S' at the bottom row.
The numbers on the blocks are the "slippery levels". It takes
t time units for him to safely put his foot on a
block marked with t, where 1 ≤ t ≤ 9.
He cannot put his feet on blocks marked with 'X'.
He completes the climbing when he puts
either of his feet on one of the blocks marked with 'T' at the top row.

Figure D-1: Example of Cliff Data

Jack's movement must meet the following constraints.
After putting his left (or right) foot on a block, he can only move
his right (or left, respectively) foot.
His left foot position (lx, ly) and his right foot position
(rx, ry) should satisfy
lx < rx
and | lx - rx | + | ly - ry | ≤ 3
.
This implies that, given a position of his left foot in Figure D-2 (a), he has to
place his right foot on one of the nine blocks marked with blue color.
Similarly, given a position of his right foot in Figure D-2 (b),
he has to place his
left foot on one of the nine blocks marked with blue color.

Figure D-2: Possible Placements of Feet

Input

The input is a sequence of datasets.
The end of the input is indicated by a line containing two zeros separated by a space.
Each dataset is formatted as follows:

w h

s(1,1) ... s(1,w)

s(2,1) ... s(2,w)

...

s(h,1) ... s(h,w)

The integers w and h are the width and the height of
the matrix data of the cliff. You may assume 2 ≤ w ≤ 30 and 5 ≤ h ≤ 60.
Each of the following h lines consists of w characters
delimited by a space.
The character s(y, x) represents the state of the block at
position
(x, y) as follows:

'S': Jack can start cliff climbing from this block.

'T': Jack finishes climbing when he reaches this block.

'X': Jack cannot put his feet on this block.

'1' - '9' (= t): Jack has to spend t time units
to put either of his feet on this block.

You can assume that it takes no time to put a foot on a block marked with 'S' or 'T'.

Output

For each dataset, print a line only having a decimal integer indicating
the minimum time required for the cliff climbing,
when Jack can complete it.
Otherwise, print a line only having "-1" for the dataset.
Each line should not have any characters other than these numbers.

Sample Input

6 6
4 4 X X T T
4 7 8 2 X 7
3 X X X 1 8
1 2 X X X 6
1 1 2 4 4 7
S S 2 3 X X
2 10
T 1
1 X
1 X
1 X
1 1
1 X
1 X
1 1
1 X
S S
2 10
T X
1 X
1 X
1 X
1 1
1 X
1 X
1 1
1 X
S S
10 10
T T T T T T T T T T
X 2 X X X X X 3 4 X
9 8 9 X X X 2 9 X 9
7 7 X 7 3 X X 8 9 X
8 9 9 9 6 3 X 5 X 5
8 9 9 9 6 X X 5 X 5
8 6 5 4 6 8 X 5 X 5
8 9 3 9 6 8 X 5 X 5
8 3 9 9 6 X X X 5 X
S S S S S S S S S S
10 7
2 3 2 3 2 3 2 3 T T
1 2 3 2 3 2 3 2 3 2
3 2 3 2 3 2 3 2 3 4
3 2 3 2 3 2 3 2 3 5
3 2 3 1 3 2 3 2 3 5
2 2 3 2 4 2 3 2 3 5
S S 2 3 2 1 2 3 2 3
0 0

Output for the Sample Input

12
5
-1
22
12

Solution in C++14 (judge verdict: Accepted)

#include <bits/stdc++.h>
using namespace std;

// template {{{
#define  range(i, l, r) for (int i = (int)(l); i < (int)(r); (i) += 1)
#define rrange(i, l, r) for (int i = (int)(r) - 1; i >= (int)(l); (i) -= 1)

#define  whole(f, x, ...) ([&](decltype((x)) container) { return (f)(  begin(container),  end(container), ## __VA_ARGS__); })(x)
#define rwhole(f, x, ...) ([&](decltype((x)) container) { return (f)( rbegin(container), rend(container), ## __VA_ARGS__); })(x)

#define debug(x) cerr << "(" << __LINE__ << ")" << #x << ": " << (x) << endl

using i32 = int;
using u32 = unsigned int;
using i64 = long long;
using u64 = unsigned long long;

// constexpr i32 mod   = 998244353;
constexpr i32 mod   = 1e9 + 7;
constexpr i32 inf   = 1001001001;
constexpr i64 infll = 1001001001001001001ll;

constexpr int dx[] = {0, -1, 1, 0, -1, 1, -1, 1};
constexpr int dy[] = {-1, 0, 0, 1, -1, -1, 1, 1};

struct IoSetup { IoSetup(int x = 15){ cin.tie(0); ios::sync_with_stdio(0); cout << fixed << setprecision(x); cerr << fixed << setprecision(x); } } iosetup;

template <typename T = i64> T input() { T x; cin >> x; return x; }

template <typename T> ostream &operator<<(ostream &os, vector<T> &v) { range(i, 0, v.size()) { os << v[i] << (i + 1 != v.size() ? " " : ""); } return os; }
template <typename T> istream &operator>>(istream &is, vector<T> &v) { for (T &in : v) is >> in; return is; }

template <typename T1, typename T2> ostream &operator<<(ostream &os, pair<T1, T2> p) { os << "(" << p.first << ", " << p.second << ")"; return os; }
template <typename T1, typename T2> istream &operator>>(istream &is, pair<T1, T2> &p) { is >> p.first >> p.second; return is; }

template <typename T> vector<T> make_vector(size_t a, T b) { return vector<T>(a, b); }
template <typename... Ts> auto make_vector(size_t a, Ts... ts) { return vector<decltype(make_vector(ts...))>(a, make_vector(ts...)); }

template <typename T1, typename T2> inline bool chmax(T1 &a, T2 b) { return a < b && (a = b, true); }
template <typename T1, typename T2> inline bool chmin(T1 &a, T2 b) { return a > b && (a = b, true); }
// }}}

void solver(int w, int h) {
    auto ss = make_vector(h, w, '.');
    range(i, 0, h) range(j, 0, w) cin >> ss[i][j];

    auto as = make_vector(h, w, 0);
    vector< pair< int, int > > st, gl;
    int lx, ly, rx, ry;
    range(i, 0, h) range(j, 0, w) {
        if (ss[i][j] == 'X') {
            as[i][j] = -1;
        } else if (ss[i][j] == 'S') {
            st.emplace_back(i, j);
        } else if (ss[i][j] == 'T') {
            gl.emplace_back(i, j);
        } else {
            as[i][j] = ss[i][j] - '0';
        }
    }

//    for (auto a: as) cerr << a << endl;

    auto dijkstra = [&](int y, int x, bool is_right) {
        auto dist = make_vector(h, w, 2, inf);

        dist[y][x][is_right] = 0;
        using pq_type = pair< int, pair< pair< int, int >, bool> >;
        priority_queue< pq_type, vector<pq_type>, greater<pq_type>> pq;
        pq.emplace(0, make_pair(make_pair(y, x), is_right));

        while (!pq.empty()) {
            auto cur = pq.top();
            pq.pop();

            int cy = cur.second.first.first;
            int cx = cur.second.first.second;
            bool pre_right = cur.second.second;

//            cerr << make_pair(cy, cx) << endl;

            if (cur.first > dist[cy][cx][pre_right]) continue;

            range(dy, -3, 4) range(dx, -3, 4) {
                int ny = cy + dy;
                int nx = cx + dx;

                if (nx < 0 || w <= nx || ny < 0 || h <= ny) continue; 
                if (abs(nx - cx) + abs(ny - cy) > 3) continue;

                if (pre_right && nx >= cx) continue; 
                if (!pre_right && nx <= cx) continue;

                if (as[ny][nx] == -1) continue;

                if (dist[ny][nx][!pre_right] > dist[cy][cx][pre_right] + as[ny][nx]) {
                    dist[ny][nx][!pre_right] = dist[cy][cx][pre_right] + as[ny][nx];
                    pq.emplace(dist[ny][nx][!pre_right], make_pair(make_pair(ny, nx), !pre_right));
                }
            }
        }

        int res = inf;
        for (auto p: gl) {
            chmin(res, dist[p.first][p.second][0]);
            chmin(res, dist[p.first][p.second][1]);
        }

        return res;
    };

    int ans = inf;
    for (auto p: st) {
        chmin(ans, dijkstra(p.first, p.second, true));
        chmin(ans, dijkstra(p.first, p.second, false));
    }

    if (ans == inf) {
        cout << -1 << endl;
    } else {
        cout << ans << endl;
    }
}

signed main(int argc, char *argv[]) {
    int h, w;
    while (cin >> w >> h, w) {
        solver(w, h);
    }
}