AlexMcLean: Difference between revisions

From Toplap
Jump to navigation Jump to search
No edit summary
No edit summary
Line 4: Line 4:
     my $self = shift;
     my $self = shift;
##
##
     $self->code->[9] .= "#";##
     $self-
    $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/

Revision as of 10:35, 22 June 2007


sub bang {#
    my $self = shift;
##
    $self-