euler/set3/e102.c