Hoon101/101/week6/cards.hoon

:: Hoon 101 - Week 6
:: ~bannum-magtus || s@p7.co.nz
::
:-  %say
|=  [[* eny=@uvJ *] [x=@ y=@ ~] ~]
:-  %noun
?:  (gth (mul x y) 52)
  !!
=<
:: Im so sorry
(take-hands x y new-deck)
|%
++  take-hands
  |=  [x=@ y=@ d=(list tape)]
  ^-  (list (list tape))
  =/  hands=(list (list tape))  ~
  |-
  ?:  =(x 0)
    hands
  %=  $
    hands  :-((scag y d) hands)
    d      (slag y d)
    x      (dec x)
  ==
++  suit-store
  ^-  (list tape)
  ["H" "D" "C" "S" ~]
++  suit-donnees
  ^-  (list tape)
  ["A" "2" "3" "4" "5" "6" "7" "8" "9" "10" "J" "Q" "K" ~]
++  new-deck
  =/  nd=(list tape)  ~
  =/  s  0
  |-
  ?:  (gte s 4)
    (shuffle-deck nd eny)
  =/  v  0
  |-
  ?.  (lth v 13)
    ^$(s +(s))
  %=  $
    v  +(v)
    nd  :-((weld (snag v suit-donnees) (snag s suit-store)) nd)
  ==
++  shuffle-deck
  |=  [unshuffled=(list tape) entropy=@]
  ^-  (list tape)
  =|  shuffled=(list tape)
  =/  random  ~(. og entropy)
  =/  remaining  (lent unshuffled)
  |-
  ?:  =(remaining 1)
    :_  shuffled
    (snag 0 unshuffled)
  =^  index  random  (rads:random remaining)
  %=  $
    shuffled      (snag index unshuffled)^shuffled
    remaining     (dec remaining)
    unshuffled    (oust [index 1] unshuffled)
  ==
--