Talk:770: All the Girls

2013-05-04T04:36:17Z

31.110.88.49: Glaring typo. Others will certainly remain. (Oh, and I generally assume I'm gonna use Strict; and warnings;)

The reasons why this algorithm wouldn't work so well in producing stable marriages are
* the people preferences may change (especially if they know someone better)
* people may prefer not having marriage at all (when rejected by some of their choices)
Still, it's not like there is better algorithm. -- [[User:Hkmaly|Hkmaly]] ([[User talk:Hkmaly|talk]]) 10:02, 17 April 2013 (UTC)

sub BetterThanNothing { my (@everyone,@m,@f,@o,@r,@Ps) = @_; while (my $person = shift @everyone) { push(@m, $person)&&next if _isMale($person); push(@f, $person)&&next if _isFemale($person); push @o, $person } my $priority =(@m>=@f)?[\@f,\@m]:[\@m,\@f]; while (@{$priority[0]}) { push @Ps, [splice(@{$priority[0]},rnd(@{$priority[0]}),1), splice(@{$priority[1]},rnd(@{$priority[1]}),1)] } } @r = (@m,@f,@o); while (@r>1) { push @Ps, [splice(@r,rnd(@r),1), splice(@r,rnd(@r),1)] } } @r && push @Ps, [(shift @r) x 2]; return @Ps } # Totally untested Perl for when you /really/ don't care too much... ;) [[Special:Contributions/31.110.88.49|31.110.88.49]] 04:34, 4 May 2013 (UTC)

Talk:770: All the Girls

2013-05-04T04:34:09Z

31.110.88.49:

The reasons why this algorithm wouldn't work so well in producing stable marriages are
* the people preferences may change (especially if they know someone better)
* people may prefer not having marriage at all (when rejected by some of their choices)
Still, it's not like there is better algorithm. -- [[User:Hkmaly|Hkmaly]] ([[User talk:Hkmaly|talk]]) 10:02, 17 April 2013 (UTC)

sub BetterThanNothing ( my (@everyone,@m,@f,@o,@r,@Ps) = @_; while (my $person = shift @everyone) { push(@m, $person)&&next if _isMale($person); push(@f, $person)&&next if _isFemale($person); push @o, $person } my $priority =(@m>=@f)?[\@f,\@m]:[\@m,\@f]; while (@{$priority[0]}) { push @Ps, [splice(@{$priority[0]},rnd(@{$priority[0]}),1), splice(@{$priority[1]},rnd(@{$priority[1]}),1)] } } @r = (@m,@f,@o); while (@r>1) { push @Ps, [splice(@r,rnd(@r),1), splice(@r,rnd(@r),1)] } } @r && push @Ps, [(shift @r) x 2]; return @Ps } # Totally untested Perl for when you /really/ don't care too much... ;) [[Special:Contributions/31.110.88.49|31.110.88.49]] 04:34, 4 May 2013 (UTC)

explain xkcd - User contributions [en]

Talk:770: All the Girls

Talk:770: All the Girls