#99 Article 1070 Posted at 1995/12/23 17:38:23 by Apple*Tea (MAP5988) [SAHOU.5]
Subject: Re: プログラミング作法・５：回文の判定 /1063
こんにちはApple*Teaといいます。面白そうなので私もちょっと書いてみま
した。
お題5 回文判定 Awkで挑戦。
{
nor=$0;
gsub(/[,\."' ]/,"",nor);
nor=toupper (nor);
rev="";
for (i=length(nor);i>0;i--){
rev=rev substr(nor,i,1);
}
}
(nor ~ rev){
print $0 "は回文です。";
}
1.記号を抜く
2.大文字に変換
3.文字列をひっくり返す
4.判定
と上から4つの処理をしています。普通に考えたらこんな処理になりました。
スタイルはできるだけCっぽく書くようにしてます。手抜きできるとこは手
抜きします(^^)
awkなので文字列処理は楽々です(^^)。この問題Cで書いたら時間かかりそ。
MAP5988 Apple*Tea