忍者ブログ
日々の記録
[717] [756] [755] [754] [753] [752] [751] [750] [749] [748] [747]
カレンダー
05 2019/06 07
S M T W T F S
1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 29
30
ブログ内検索
最新コメント
[01/22 皇子]
[11/07 雨昼 塵]
[10/31 BlogPetのくっぴー2号]
[09/01 BlogPetのくっぴー2号]
[08/24 BlogPetのくっぴー2号]
[12/24 BlogPetのくっぴー2号]
[12/17 BlogPetのくっぴー2号]
[12/17 はるな]
[08/25 BlogPetのくっぴー2号]
[08/18 BlogPetのくっぴー2号]
最新トラックバック
プロフィール
HN:
えぞ
年齢:
40
HP:
性別:
男性
誕生日:
1978/06/23
職業:
SE
趣味:
いろいろ
自己紹介:
頭を使うことを比較的好むが、難しいことは不得手。
博覧強記を目指すが、底は浅い。
凝り性な反面、飽きっぽい。
ゲーム好きで、ギャンブル嫌い。
座右の銘
「なるようになる」
「明日できることは今日しない」
カウンター
広告
アクセス解析
×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。

<body><div id=v></div><input type=button value=Deal onclick=D()><script>
function D(){A=[B=[C=[52]]];d=e="";f=g=h=j=k=0;for(i=0;i<52;i++){A[i]=i;B[i]=0;
C[i]=0;}for(i=0;i<52;i++){n=Math.floor(Math.random()*52);l=A[i];A[i]=A[n];
A[n]=l;}for(i=0;i<5;i++){s=A[i]%4;++C[s];s%2?m="#000":m="red";s==0?s="&diams;":
s==1?s="&clubs;":s==2?s="&#9829;":s="&#9824;";r=Math.floor(A[i]/4);++B[r];r==0?
r="A":r==10?r="J":r==11?r="Q":r==12?r="K":r=++r;d+="<font color="+m+">"+s+r+
"</font>";}for(i=0;i<13;i++){B[i]==4?e="4Cards":B[i]==3?f++:B[i]==2?g++:B[i]==1
?h++:h=0;if(h==5)j=1;}for(i=0;i<4;i++)if(C[i]==5)k=1;j&k?e="StraightFlash":j?e=
"Straight":k?e="Flash":f&g?e="FullHouse":f?e="3Cards":g==2?e="2Pairs":g?e=
"1Pair":e="0Pair";document.all.v.innerHTML=d+"<br>"+e;}</script></body>

上までを「適当な名前.html」で保存。
IE6.0で動作確認。
サンプルは
http://www.medianetjapan.com/2/18/internet_computer/oze/pokermini.html

拍手[0回]

PR
この記事にコメントする
NAME:
SUBJECT:
COLOR:
MAIL:
URL:
COMMENT:
PASS:
この記事へのトラックバック
この記事にトラックバックする:
忍者ブログ [PR]