My work for Hoon 101.
Will remain private until the class is over.
Du kan inte välja fler än 25 ämnen
Ämnen måste starta med en bokstav eller siffra, kan innehålla bindestreck ('-') och vara max 35 tecken långa.
|
- :: 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)
- ==
- --
|