« ヒラ、うっちー、頑張れ! | Main | 達也、おめでとう! »

期間限定 占いプログラム。

愛媛に行くのは明後日じゃないか!
ってことにさっき気がついたあずさです。
いいのかこんなんで。
愛媛サッカー協会の案内PDF以外何にも調べてないけど、
空港からレンタカーでちゃんとたどり着けるのか?

・・・・カーナビ付いてるらしいよ( ̄ー ̄)

さて、
ちょっと前に、ワールドカップの組み合わせ抽選を
シミュレートするプログラムを拾いましたよ。
ポットが決まったから合わせたのが、これ↓

-----*-----*-----*-----*-----

pot1="ドイツ,ブラジル,スペイン,メキシコ,イングランド,アルゼンチン,イタリア,フランス"

pot2="トーゴ,ガーナ,コートジボワール,アンゴラ,チュニジア,エクアドル,パラグアイ,オーストラリア"

pot3="チェコ,オランダ,ポルトガル,スウェーデン,スイス,クロアチア,ポーランド,ウクライナ"

pot4="アメリカ,コスタリカ,トリニダード・トバコ,日本,イラン,韓国,サウジアラビア,セルビア・モンテネグロ" 

dim ary1,ary2,ary3,ary4

randomize

ary1=split(pot1,",")

ary2=split(pot2,",")

ary3=split(pot3,",")

ary4=split(pot4,",")

swapary ary1

swapary ary2

swapary ary3

swapary ary4

for m=0 to 7

msg=msg & ary1(m)&" "&ary2(m)&" "&ary3(m)&" "&ary4(m) & chr(13)

next

msgbox msg

sub swapary(byref ary)

dim tary

tary=ary

uidx=ubound(ary)

tuidx=uidx

for i=0 to uidx

a=int((tuidx - 0 + 1) * rnd + 0)

k=0

for j=0 to uidx

if ary(j)<>"" then k=k+1

if k-1=a then

tary(i)=ary(j)

ary(j)=""

exit for

end if

next

tuidx=tuidx-1

next

ary=tary

end sub

-----*-----*-----*-----*-----

全部メモ帳にでもコピペして、
適当なファイル名を付けてデスクトップにでも保存する。
あ、拡張子は.vbsでね。
ダブルクリック一発、抽選シミュレーションのできあがり。

ちなみに、このプログラムの意味は全然判ってません(自爆)
だから、セルビア・モンテネグロは
第1ポットがヨーロッパ以外の国のグループに入るそうですが
そこまで賢いプログラムに直すなんてできないっ
ので、普通に第4ポットに入れちゃった。

で、そう言う組み合わせになっちゃったらやり直すけど、
毎朝ちょっとした占いにしちゃってますよ。これ。
日本の相手はどこかな? とな。

今朝?
「イタリア パラグアイ オランダ 日本」
・・・・・これは笑うしかないでしょ~

|

« ヒラ、うっちー、頑張れ! | Main | 達也、おめでとう! »

つれづれ」カテゴリの記事

サッカー」カテゴリの記事

Comments

おもしろーい(^O^)/
どこと当たっても、面白そう♪

Posted by: cico | Dec 08, 2005 at 12:01 PM

cicoちゃん、こんにちは♪
これね~ 実は結構ちょくちょく試しちゃうんだけど面白いのよ~~~
で時々、それは勘弁してっ!と叫びたくなるような組み合わせが。
ブラジル パラグアイ チェコ 日本 とか(^_^;)

Posted by: あずさ | Dec 08, 2005 at 04:47 PM

Post a comment



(Not displayed with comment.)




TrackBack

TrackBack URL for this entry:
http://app.cocolog-nifty.com/t/trackback/83023/7522955

Listed below are links to weblogs that reference 期間限定 占いプログラム。:

« ヒラ、うっちー、頑張れ! | Main | 達也、おめでとう! »