Submission #54720914

Source Code Expand

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
# 最初2個の数値を加算指示に変換し、数字を消去する
N
s/\n/ /
# 一の位
s/9 /8 a/g
s/8 /7 a/g
s/7 /6 a/g
s/6 /5 a/g
s/5 /4 a/g
s/4 /3 a/g
s/3 /2 a/g
s/2 /1 a/g
s/1 /0 a/g
s/0 / /g
# 十の位
s/9 /8 b/g
s/8 /7 b/g
s/7 /6 b/g
s/6 /5 b/g
s/5 /4 b/g
s/4 /3 b/g
 
 
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

# 最初2個の数値を加算指示に変換し、数字を消去する
N
s/\n/ /
# 一の位
s/9 /8 a/g
s/8 /7 a/g
s/7 /6 a/g
s/6 /5 a/g
s/5 /4 a/g
s/4 /3 a/g
s/3 /2 a/g
s/2 /1 a/g
s/1 /0 a/g
s/0 / /g
# 十の位
s/9 /8 b/g
s/8 /7 b/g
s/7 /6 b/g
s/6 /5 b/g
s/5 /4 b/g
s/4 /3 b/g
s/3 /2 b/g
s/2 /1 b/g
s/1 /0 b/g
s/0 / /g
# 百の位
s/9 /8 c/g
s/8 /7 c/g
s/7 /6 c/g
s/6 /5 c/g
s/5 /4 c/g
s/4 /3 c/g
s/3 /2 c/g
s/2 /1 c/g
s/1 /0 c/g
s/0 / /g
# 千の位
s/9 /8 d/g
s/8 /7 d/g
s/7 /6 d/g
s/6 /5 d/g
s/5 /4 d/g
s/4 /3 d/g
s/3 /2 d/g
s/2 /1 d/g
s/1 /0 d/g
s/0 / /g
s/ //g

# 最後の数値を4桁にする
s/\([0-9]\+\)$/000\1/
s/[0-9]\+\([0-9]\{4\}\)$/\1/

# 加算指示を実行する
# 一の位
tone
:one
s/a\(.*\)0$/\11/
s/a\(.*\)1$/\12/
s/a\(.*\)2$/\13/
s/a\(.*\)3$/\14/
s/a\(.*\)4$/\15/
s/a\(.*\)5$/\16/
s/a\(.*\)6$/\17/
s/a\(.*\)7$/\18/
s/a\(.*\)8$/\19/
s/a\(.*\)9$/b\10/
tone
# 十の位
:ten
s/b\(.*\)0\(.\)$/\11\2/
s/b\(.*\)1\(.\)$/\12\2/
s/b\(.*\)2\(.\)$/\13\2/
s/b\(.*\)3\(.\)$/\14\2/
s/b\(.*\)4\(.\)$/\15\2/
s/b\(.*\)5\(.\)$/\16\2/
s/b\(.*\)6\(.\)$/\17\2/
s/b\(.*\)7\(.\)$/\18\2/
s/b\(.*\)8\(.\)$/\19\2/
s/b\(.*\)9\(.\)$/c\10\2/
tten
# 百の位
:hundred
s/c\(.*\)0\(..\)$/\11\2/
s/c\(.*\)1\(..\)$/\12\2/
s/c\(.*\)2\(..\)$/\13\2/
s/c\(.*\)3\(..\)$/\14\2/
s/c\(.*\)4\(..\)$/\15\2/
s/c\(.*\)5\(..\)$/\16\2/
s/c\(.*\)6\(..\)$/\17\2/
s/c\(.*\)7\(..\)$/\18\2/
s/c\(.*\)8\(..\)$/\19\2/
s/c\(.*\)9\(..\)$/d\10\2/
thundred
# 千の位
:thousand
s/d\(.*\)0\(...\)$/\11\2/
s/d\(.*\)1\(...\)$/\12\2/
s/d\(.*\)2\(...\)$/\13\2/
s/d\(.*\)3\(...\)$/\14\2/
s/d\(.*\)4\(...\)$/\15\2/
s/d\(.*\)5\(...\)$/\16\2/
s/d\(.*\)6\(...\)$/\17\2/
s/d\(.*\)7\(...\)$/\18\2/
s/d\(.*\)8\(...\)$/\19\2/
s/d\(.*\)9\(...\)$/\10\2/
tthousand

# リーディングゼロを消去する
s/^0\+//

# 3行目の文字列を結合する
N
s/\n/ /

Submission Info

Judge Result