clojure - How to return a list in the winning-hands function of poker? -



clojure - How to return a list in the winning-hands function of poker? -

as mentioned before i'm working on poker hands in clojure, i'm on final stages of completion. i'm having problem in winning-hand function, should returns hand list of hands highest, if there ties, should homecoming list of of hands. so, here winning-hand function:

(defn hand-rank "return value indicating how high hand ranks." [hand] (let [ranks (card-ranks hand)] (cond (and (straight ranks) (u-flush hand)) (-> [] (conj 8) (conj (apply max ranks))) (kind 4 ranks) (-> [] (conj 7) (conj (kind 4 ranks)) (conj (kind 1 ranks))) (and (kind 3 ranks) (kind 2 ranks)) (-> [] (conj 6) (conj (kind 3 ranks)) (conj (kind 2 ranks))) (u-flush hand) (-> [] (conj 5) (conj ranks)) (straight ranks) (conj [4] (apply max ranks)) (kind 3 ranks) (-> [3] (conj (kind 3 ranks)) (conj ranks)) (two-pair ranks) (-> [2] (conj (two-pair ranks)) (conj ranks)) (kind 2 ranks) (-> [1] (conj (kind 2 ranks)) (conj ranks)) :else (-> [0] (conj ranks)) ))) (defn winning-hand "return max hand of given poker hands." [hands] (let [min-count (count (apply min-key count (for [hand hands] (hand-rank hand))))] (reduce (fn [x y] (if (<= 0 (compare (subvec (vec (flatten (hand-rank x))) 0 min-count) (subvec (vec (flatten (hand-rank y))) 0 min-count))) x y)) hands))) (defn allmax "return list of items equals max of sequence." [coll] (let [maximum (winning-hand coll)] (for [x coll :when (= maximum x)] x))) (defn winning-list "return list of winning hands. poker([hand1, hand2, ...] => [hand, ..." [hands] (allmax hands))

the winning-list function works fine when there no tie, in case of tie, still returning 1 hand , not list of hands highest. e.g.: in case ["ac", "2c", "3c", "4c", "5c"] '["ah", "2h", "3h", "4h", "5h"] '["ad", "2d", "3d", "4d", "5d"] '["ac", "2s", "3h", "4d", "5h"]), should homecoming '["ac", "2c", "3c", "4c", "5c"] '["ah", "2h", "3h", "4h", "5h"] '["ad", "2d", "3d", "4d", "5d"]. tell me i'm doing wrong?

you testing equality on hand itself, not it's "value" (ie straight flush 1 through 5). want this.

(defn allmax "return list of items equals max of sequence." [coll] (let [maximum (winning-hand coll)] (for [x coll :when (= (hand-value maximum) (hand-value x)] x)))

an improve solution have implement comparator hands , utilize here , in other places.

clojure clojurescript

-

Comments

Post a Comment

Popular posts from this blog

formatting - SAS SQL Datepart function returning odd values -

formatting - SAS SQL Datepart function returning odd values - i'm having massive problem project can't seem right. i'm trying modify info variable in datetime format. first info 30mar12:00:00:00. i've been advised utilize code below returns value 30mar60:5:30:00. want date component , have no thought how info got exported in format wasn't in microsoft access. i've tried several mods code 1 time again comes blank or sends error message. proc sql; update dataset set date = datepart(date); quit; any advice appreciated. i'm guessing variable date numeric , formatted datetime. 1 time you've carried out conversion, alter format date9. sas datetime value number of seconds since 01 jan 1960, whereas dates number of days since 01 jan 1960. both stored numbers, using right format display value key. illustration below. data _null_; a='30mar12:00:00:00'dt; b=datepart(a); c=b; format b datetime. c date9.; set b c; run; ...
Read more

c++ - Apple Mach-O Linker Error(Duplicate Symbols For Architecture armv7) -

c++ - Apple Mach-O Linker Error(Duplicate Symbols For Architecture armv7) - here error: duplicate symbol _objc_metaclass_$_bfapplinkreturntorefererview in: /users/user/documents/facebooksdk/facebooksdk.framework/facebooksdk(bfapplinkreturntorefererview.o) /users/user/desktop/project/project/project/assets/facebook/editor/ios/facebooksdk/facebooksdk.a(bfapplinkreturntorefererview.o) ld: 889 duplicate symbols architecture armv7 clang: error: linker command failed exit code 1 (use -v see invocation) i have searched find solution of error couldn't. there tons of similar error this, 1 hasn't been asked yet. problem shows when add together "-objc" "other linker flags". need add together utilize admob service. problem? how can solve this? i faced same issue while integrating facebook-ios-sdk. because using 3rd party library had bolts.framework linked against it. solution found incorporate facebook-ios-sdk source code hosted on github. ...
Read more

php - Yii 2: Unable to find a class into the extension 'yii2-admin' -

php - Yii 2: Unable to find a class into the extension 'yii2-admin' - extension's github project: https://github.com/mdmsoft/yii2-admin i'm using advanced template of yii2, i've backend , frontend , common folders advanced folder. the advanced folder on same level of vendor folder. i've others extensions , working then installed yii2-admin composer php composer.phar require mdmsoft/yii2-admin "*" installation worked well. into vendor folder i've mdmsoft folder yii2-admin subfolder it. this actual content of v endor/yiisoft/extensions.php (modified composer installation, haven't manually touched it) <?php $vendordir = dirname(__dir__); homecoming array ( 'yiisoft/yii2-jui' => array ( 'name' => 'yiisoft/yii2-jui', 'version' => '2.0.0.0', 'alias' => array ( '@yii/jui' => $vendordir . '/yiisoft/yii2-jui', ...
Read more