4,494
edits
Ranking poker hands: Difference between revisions
Jump to navigation
Jump to search
m
Text replacement - " ⊢( *[^∘])" to " ⎕←$1"
m (Essays category) |
m (Text replacement - " ⊢( *[^∘])" to " ⎕←$1") |
||
| (3 intermediate revisions by one other user not shown) | |||
| Line 113: | Line 113: | ||
<source lang=apl> | <source lang=apl> | ||
r s ← ↓⍉sort hand 'A♠2♠3♣4♠5♢' | r s ← ↓⍉sort hand 'A♠2♠3♣4♠5♢' | ||
⎕←ranks ← sort {(≢⍵),⍺}⌸ r | |||
1 13 | 1 13 | ||
1 4 | 1 4 | ||
| Line 119: | Line 119: | ||
1 2 | 1 2 | ||
1 1 | 1 1 | ||
⎕←sf ← (8|@1⊢2-/r)s∧.=¨1,⊃s | |||
1 0 | 1 0 | ||
</source> | </source> | ||
| Line 228: | Line 228: | ||
</source> | </source> | ||
[[Category: | [[Category:Examples]][[Category:Dyalog APL examples]] | ||