作者: Zazel
日時: 2009/12/27(16:29)
Zazelです。

=== 藤岡和夫 <kazuf@...> さんが書かれた
=== <20091225230920.A13F.8E5597AD@...> にて

>  MagneticRepulsion.awkのPerl版を作ってみました。終了時にAudio::Beepモジュー
> ルで音を出してみたかっただけですけど。
> 
> TSNETスクリプト通信第7号
> http://text.world.coocan.jp/TSNET/?TSNET%E3%82%B9%E3%82%AF%E3%83%AA%E3%83%97%E3%83%88%E9%80%9A%E4%BF%A1%E7%AC%AC7%E5%8F%B7

わざわざ2種類つくらなくても、BEGIN{eval "use Audio::Beep;";}
しておいて場合分けすればいいと思います。

ついでにオリジナルのMagneticRepulsion.awk ですが、初期化のところの
srand() の直後にでもrand() をいれて一つ目の乱数を捨てる処理をして
おくと、nawk や V7 awk でも少しだけまともな乱数になって遊べます。

V7 awkでも動くところが素晴らしいです。>Yささん

# 個人的には10x10でもミサイルもプローブも余っちゃうけど…。(^_^;
# missile=bomb+1;probe=bomb*3; くらいが緊張感があっていい。

(* SEKI Masatoshi  /  zazel.ts@..."cx"           *)
(*  Would you hold my hand? Softly, let's linger. *)