ぐねぐねスクエア 2017.3.7 問題

問題の概要

右図のように、1以上の整数が全て並んでいる。
※ 右図は紙面の都合で 100までの数しか並んでいないが本当は正の整数が全て並んでいる。
数をひとつ指定する。上下左右の隣がいくつなのかを、計算せよ。

入力

入力は
10
こんな感じ。説明不要でしょう。

出力

出力は、上下左右の隣のマスに入る数を、上下左右の順に。コンマ区切りで。
隣がない場合には「 - 」を出力すること。
先ほどの入力の場合、

9,25,-,11
と出力すればよい。

補足

不正な入力に対処する必要はない。
実装ができた方は Qiitaの記事のコメント欄からリンクを張っていただくと見つけやすくて助かります。
入力も出力も文字列ないしは標準入出力にするのが望ましい。パースも仕事のうち。まあ今回はパースというほどのことはないけれど。
この問題は2017年3月7日に開催されるオフラインリアルタイムどう書くF10 の問題です。イベントについては Doorkeeper のページの方を御覧下さい。

サンプルデータ

#	入力	期待
0	`10`	`9,25,-,11`
1	`1`	`-,2,-,4`
2	`2`	`1,9,-,3`
3	`4`	`-,3,1,5`
4	`26`	`25,49,-,27`
5	`43`	`42,56,44,58`
6	`72`	`71,73,57,93`
7	`82`	`81,121,-,83`
8	`91`	`92,112,90,110`
9	`100`	`-,99,65,101`
10	`122`	`121,169,-,123`
11	`141`	`142,140,104,148`
12	`145`	`-,146,144,196`
13	`320`	`321,319,261,329`
14	`504`	`503,505,465,557`
15	`563`	`564,562,498,590`
16	`906`	`905,907,895,1019`
17	`1047`	`1046,1048,1002,1134`
18	`1111`	`1068,1204,1110,1112`
19	`1338`	`1257,1401,1339,1337`
20	`1613`	`1612,1614,1588,1752`
21	`1845`	`1686,1854,1846,1844`
22	`1921`	`1922,1920,1780,1952`
23	`2517`	`2516,2518,2484,2688`
24	`2670`	`2671,2669,2535,2739`
25	`2798`	`2613,2821,2799,2797`
26	`2841`	`2778,2994,2840,2842`
27	`2896`	`2897,2895,2725,2937`
28	`3050`	`3001,3225,3049,3051`
29	`3354`	`3355,3353,3147,3375`
30	`3563`	`3564,3562,3402,3638`
31	`4454`	`4261,4525,4455,4453`
32	`5397`	`5262,5558,5396,5398`
33	`5592`	`5363,5659,5593,5591`
34	`6122`	`6121,6123,6047,6363`
35	`6772`	`6771,6773,6677,7009`

C/C++/Java 用のテストデータ

/*0*/ test( "10", "9,25,-,11" );
/*1*/ test( "1", "-,2,-,4" );
/*2*/ test( "2", "1,9,-,3" );
/*3*/ test( "4", "-,3,1,5" );
/*4*/ test( "26", "25,49,-,27" );
/*5*/ test( "43", "42,56,44,58" );
/*6*/ test( "72", "71,73,57,93" );
/*7*/ test( "82", "81,121,-,83" );
/*8*/ test( "91", "92,112,90,110" );
/*9*/ test( "100", "-,99,65,101" );
/*10*/ test( "122", "121,169,-,123" );
/*11*/ test( "141", "142,140,104,148" );
/*12*/ test( "145", "-,146,144,196" );
/*13*/ test( "320", "321,319,261,329" );
/*14*/ test( "504", "503,505,465,557" );
/*15*/ test( "563", "564,562,498,590" );
/*16*/ test( "906", "905,907,895,1019" );
/*17*/ test( "1047", "1046,1048,1002,1134" );
/*18*/ test( "1111", "1068,1204,1110,1112" );
/*19*/ test( "1338", "1257,1401,1339,1337" );
/*20*/ test( "1613", "1612,1614,1588,1752" );
/*21*/ test( "1845", "1686,1854,1846,1844" );
/*22*/ test( "1921", "1922,1920,1780,1952" );
/*23*/ test( "2517", "2516,2518,2484,2688" );
/*24*/ test( "2670", "2671,2669,2535,2739" );
/*25*/ test( "2798", "2613,2821,2799,2797" );
/*26*/ test( "2841", "2778,2994,2840,2842" );
/*27*/ test( "2896", "2897,2895,2725,2937" );
/*28*/ test( "3050", "3001,3225,3049,3051" );
/*29*/ test( "3354", "3355,3353,3147,3375" );
/*30*/ test( "3563", "3564,3562,3402,3638" );
/*31*/ test( "4454", "4261,4525,4455,4453" );
/*32*/ test( "5397", "5262,5558,5396,5398" );
/*33*/ test( "5592", "5363,5659,5593,5591" );
/*34*/ test( "6122", "6121,6123,6047,6363" );
/*35*/ test( "6772", "6771,6773,6677,7009" );