アーティクル

#99 Article 952 Posted at 1995/12/02 13:12:03 by Mick'n (MAP1406) [SAHOU.1]

Subject: Re:*8 プログラミングお作法の話 /950 .... /941 /940

perl 版もう一つ。

($#ARGV>=0)||die "you must specify argument.\n";
grep(printf("%s\n",($_==3||$_==5||$_==$ARGV[0])?"にゃん"x$_:$_),
     (1 ... $ARGV[0]));

診断: grep を使って書きたくなる人向け。

  Mick'n (MAP1406)