このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1086272325/647
#  僕のお兄さん、西暦wxyz年の生まれです。 
#  1997年、僕のお兄さんの年齢は、w+x+y+zになりました。
#  僕のお兄さんは何歳になったでしょう? 
# 

'僕のお兄さん、西暦wxyz年の生まれです。1997年、僕のお兄さんの年齢は、w+x+y+zになりました。僕のお兄さんは何歳になったでしょう?'(_何歳) :-
        for(1997,_wxyz,0),
        _何歳 is 1997 - _wxyz,
        _w is _wxyz // 1000,
        _w2 is _wxyz mod 1000,
        _x is _w2 // 100,
        _x2 is _w1 mod 100,
        _y is _x2 // 10,
        _z is _x2 mod 10,
        _何歳 is _w + _x + _y + _z.