diff options
author | Jesse Luehrs <doy@tozt.net> | 2009-10-06 00:33:12 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2009-10-06 00:33:12 -0500 |
commit | 28e3171b60e9ad338fe3b2b6b2e66c346d95ffd4 (patch) | |
tree | ec6c32024ad12676d768cf36c1d600e6d6c864e4 /lib | |
parent | c3620dea795b1f2f774949ceb582d09bfeef1f84 (diff) | |
download | games-smtnocturne-fusion-28e3171b60e9ad338fe3b2b6b2e66c346d95ffd4.tar.gz games-smtnocturne-fusion-28e3171b60e9ad338fe3b2b6b2e66c346d95ffd4.zip |
eliminate duplicate results
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Games/SMTNocturne/Fusion/Chart.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/Games/SMTNocturne/Fusion/Chart.pm b/lib/Games/SMTNocturne/Fusion/Chart.pm index dd21ec5..5bbea86 100644 --- a/lib/Games/SMTNocturne/Fusion/Chart.pm +++ b/lib/Games/SMTNocturne/Fusion/Chart.pm @@ -88,6 +88,7 @@ method fusions_for (ClassName $self: SMTDemon $demon is coerce) { my @type2_demons = Demon->lookup(type => $combo->[1]); for my $demon1 (@type1_demons) { for my $demon2 (@type2_demons) { + next if $demon2->level < $demon1->level; my $fusion = $self->fuse($demon1, $demon2); push @found, [$demon1, $demon2] if defined $fusion && $fusion->name eq $demon->name; |