Changeset 17422

Timestamp:

08/11/08 17:49:34 (5 years ago)

Author:

daisuke

Message:

implement sorting

Files:

• lang/perl/Acme-Mahjong/trunk/lib/Acme/Mahjong/Hand.pm (modified) (1 diff)

lang/perl/Acme-Mahjong/trunk/lib/Acme/Mahjong/Hand.pm

@@ -41 +41 @@
 }
 
+sub sort {
+    my $self = shift;
+
+    my %suit;
+    my %dragon;
+    my %wind;
+
+    foreach my $tile (@{ $self->tiles }) {
+        if ($tile->isa('Acme::Mahjong::Tile::Suited')) {
+            $suit{ $tile->suit } ||= [];
+            push @{ $suit{ $tile->suit } }, $tile;
+        } elsif ( $tile->isa('Acme::Mahjong::Tile::Dragon')) {
+            $dragon{ $tile->suit } ||= [];
+            push @{ $dragon{ $tile->label } }, $tile;
+        } elsif ( $tile->isa('Acme::Mahjong::Tile::Wind')) {
+            $wind{ $tile->suit } ||= [];
+            push @{ $wind{ $tile->label } }, $tile;
+        } else {
+            confess "Don't know what to do with $tile";
+        }
+    }
+
+    return (
+        (map { sort @{ $suit{ $_ } } } keys %suit),
+        (map { @{$dragon{$_}} } keys %dragon),
+        (map { @{$wind{$_}} } keys %wind),
+    );
+}
+
 1;