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-&...') |
||
| (5 intermediate revisions by 4 users not shown) | |||
| Line 4: | Line 4: | ||
my $self = shift; | my $self = shift; | ||
## | ## | ||
$self- | $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;# | |||
}# | |||
## | |||
#### | |||
</pre> | |||
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;#
}#
##
####