- 87 名前：デフォルトの名無しさん mailto:sage [2005/12/20(火) 14:36:57 ]
- >>85-86
１００点。
キモは、
if (not isAlphaPrev) and isAlphaNow then
ですね。これでトンネルの入り口を認識しているのだね。Boolean の変数を二つ
つかって、論理が分かりやすくなっています。わたしの実装だと、IsTunnel という
Boolean の変数をひとつだけ使っているので、今回の実装より簡単ですが、コードは
読みにくいです。他人の実装をみると、自分との違いが分かって勉強になります。
さて、次の課題は、多分予想できていると思いますが、トンネルの出口も認識して
数だけでなく、位置と長さも返すような関数を作ってください。
type
TPosLength = record
Position: integer;
Length : integer;
end;
TPosLenArr = array of TPosLength;
function SearchAlphaWord(const str: string; var pl: TPosLenArr): integer;
>>79 の全文をヒントとしてください。
|
 |
