perlで$s \bmod 101 = 0$を判定する頭の良い$18$byte解も出ていたが提出速度差で最短を回収。 この内容だとコンテスト中でもsed一択。

implementation

sed $18$byte。

/\(..\)\1/cYes
cNo