My work for Hoon 101.
Will remain private until the class is over.
Vous ne pouvez pas sélectionner plus de 25 sujets
Les noms de sujets doivent commencer par une lettre ou un nombre, peuvent contenir des tirets ('-') et peuvent comporter jusqu'à 35 caractères.
|
- :: 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)
- ==
- --
|