AlexMcLean: Difference between revisions
Jump to navigation
Jump to search
No edit summary |
No edit summary |
||
| Line 1: | Line 1: | ||
<pre> | |||
sub bang {# | sub bang {# | ||
my $self = shift; | my $self = shift; | ||
| Line 12: | Line 14: | ||
## | ## | ||
#### | #### | ||
</pre> | |||
http://yaxu.org/ | http://yaxu.org/ | ||
Revision as of 22:25, 31 July 2005
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;#
}#
##
####