AlexMcLean: Difference between revisions
Jump to navigation
Jump to search
(test) |
(Replacing page with '<pre> sub bang {# my $self = shift; ## $self->code->[9] .= "#";## $self->code->[4] =~ s/[\d\.]+/int(rand(@{$self->code}))/e;# $self-&...') |
||
(7 intermediate revisions by 5 users not shown) | |||
Line 4: | Line 4: | ||
my $self = shift; | my $self = shift; | ||
## | ## | ||
$self-& | $self->code->[9] .= "#";## | ||
$self-& | $self->code->[4] =~ s/[\d\.]+/int(rand(@{$self->code}))/e;# | ||
$self-& | $self->code->[14] =~ s/\#\#.*//;# | ||
$self-& | $self->code->[7] =~ s/[\d\.]+/int(rand(@{$self->code}))/e; | ||
## | ## | ||
$self-& | $self->modified;# | ||
}# | }# | ||
## | ## | ||
Line 16: | Line 16: | ||
</pre> | </pre> | ||
http://yaxu.org/ | http://yaxu.org/ | ||
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;# }# ## ####