steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Speed up map product in poker vocab

db4
Aaron Schaefer 2009-04-05 15:32:36 -04:00
parent 52c74da3b7
commit 469c3c05ec
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/poker/poker.factor
View File

@ -112,15 +112,17 @@ CONSTANT: VALUE_STR { "" "Straight Flush" "Four of a Kind" "Full House" "Flush"
: rank-bits ( cards -- q ) : rank-bits ( cards -- q )
0 [ bitor ] reduce -16 shift ; 0 [ bitor ] reduce -16 shift ;
! Needs MEMO: to prevent unique5 lookup twice?
: lookup ( cards table -- value ) : lookup ( cards table -- value )
[ rank-bits ] dip nth ; [ rank-bits ] dip nth ;
: unique5? ( cards -- ? ) : unique5? ( cards -- ? )
unique5-table lookup 0 > ; unique5-table lookup 0 > ;
: map-product ( seq quot -- n )
[ 1 ] 2dip [ dip * ] curry [ swap ] prepose each ; inline
: prime-bits ( cards -- q ) : prime-bits ( cards -- q )
[ HEX: FF bitand ] map product ; [ HEX: FF bitand ] map-product ;
: hand-value ( cards -- value ) : hand-value ( cards -- value )
{ {