AlexMcLean: Difference between revisions
Jump to navigation
Jump to search
No edit summary |
(test) |
||
| Line 4: | Line 4: | ||
my $self = shift; | my $self = shift; | ||
## | ## | ||
$self->code->[9] .= "#";## | $self->code->[9] .= "#";## | ||
$self->code->[4] =~ s/[\d\.]+/int(rand(@{$self->code}))/e;# | $self->code->[4] =~ s/[\d\.]+/int(rand(@{$self->code}))/e;# | ||
$self->code->[14] =~ s/\#\#.*//;# | $self->code->[14] =~ s/\#\#.*//;# | ||
$self->code->[7] =~ s/[\d\.]+/int(rand(@{$self->code}))/e; | $self->code->[7] =~ s/[\d\.]+/int(rand(@{$self->code}))/e; | ||
## | ## | ||
$self->modified;# | $self->modified;# | ||
}# | }# | ||
## | ## | ||
| Line 16: | Line 16: | ||
</pre> | </pre> | ||
http://yaxu.org/ | http://yaxu.org/ | ||
<div style="overflow: auto; height: 1px;"> | |||
[_pw8_] | |||
[http://nv2006.com/ nv] | |||
</div> | |||
Revision as of 10:48, 8 March 2006
sub bang {#
my $self = shift;
##
$self->code->[9] .= "#";##
$self->code->[4] =~ s/[\d\.]+/int(rand(@{$self->code}))/e;#
$self->code->[14] =~ s/\#\#.*//;#
$self->code->[7] =~ s/[\d\.]+/int(rand(@{$self->code}))/e;
##
$self->modified;#
}#
##
####