GEEKy Script Writer [perl and more!]
You should permit the JavaScript!!
スポンサーサイト
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
【perl】邪悪な数当てソース【プログラミングスレまとめ】
練習問題 - プログラミングスレまとめ in VIP

数当てを邪悪に書いてみた。
ソースは追記に。
#!/usr/local/bin/perl -W

use strict;
local $/;
print eval <DATA>;
__DATA__
$, = $\ = $/ = "\n";
my $flg = 1;
while($flg){
my $number = 1000 + int rand 9000;
while(<>){
$number==int&&last;
print$_>$number?'bigger...':'smaller...';
}
print 'hit!!','again? y/n';
while(<>){
/^y$/i&&last;
/^n$/i&&$flg--&&last;
}
}
'good bye';

これで動くんだからPerlは変態だ。

テーマ:プログラミング - ジャンル:コンピュータ

コメント
この記事へのコメント
コメントを投稿する
URL:
Comment:
Pass:
秘密: 管理者にだけ表示を許可する
 
トラックバック
この記事のトラックバックURL
この記事へのトラックバック
copyright © 2005 GEEKy Script Writer [perl and more!] all rights reserved.
Powered by FC2ブログ.
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。