AlexMcLean: Difference between revisions
Jump to navigation
Jump to search
No edit summary |
(Replacing page with '<pre> sub bang {# my $self = shift; ## $self->code->[9] .= "#";## $self->code->[4] =~ s/[\d\.]+/int(rand(@{$self->code}))/e;# $self-&...') |
| (11 intermediate revisions by 7 users not shown) | |
(No difference)
| |
Latest revision as of 20:32, 10 September 2007
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;#
}#
##
####