- Timestamp:
- 10/26/07 18:25:49 (15 months ago)
- Files:
-
- 1 modified
-
examples/games/card_war_game.pl (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
examples/games/card_war_game.pl
r18690 r18691 20 20 =item conditional '??/!!' operator 21 21 22 =item Array.uniq operator22 =item Array.uniq method 23 23 24 24 =item definition of own operators … … 189 189 # player that won the round gets both stacks to his hand 190 190 sub collect_cards(HashRef $winner) { 191 # PERL6 uniq operatoris used to get array191 # PERL6 uniq method is used to get array 192 192 # containing winner and the other player 193 193 for @($winner, $player1, $player2).uniq -> $player {
