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

Fix typo in poker test/doc example

db4
Aaron Schaefer 2009-05-07 23:11:44 -04:00
parent d5a028c507
commit 3a636d67c4
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/poker/poker-docs.factor
View File

@ -17,7 +17,7 @@ HELP: best-hand
{ $description "Creates a new poker hand containing the best possible combination of the cards specified in " { $snippet "str" } "." }
{ $examples
{ $example "USING: kernel poker prettyprint ;"
"\"AS KD JC KH 2D 2S KH\" best-hand >value ." "\"Full House\"" }
"\"AS KD JC KH 2D 2S KC\" best-hand >value ." "\"Full House\"" }
} ;
HELP: >cards

2
extra/poker/poker-tests.factor
View File

@ -27,4 +27,4 @@ IN: poker.tests
[ t ] [ "7C 5D 4H 3S 2C" "7D 5D 4D 3C 2S" [ <hand> ] bi@ = ] unit-test
[ f ] [ "7C 5D 4H 3S 2C" "7D 5D 4D 3C 2S" [ <hand> ] bi@ eq? ] unit-test
[ 190 ] [ "AS KD JC KH 2D 2S KH" best-hand value>> ] unit-test
[ 190 ] [ "AS KD JC KH 2D 2S KC" best-hand value>> ] unit-test