XP is just a number PerlMonks

Re: find-a-func

by grinder (Bishop)
 on Aug 29, 2001 at 16:46 UTC ( #108741=note: print w/replies, xml ) Need Help??

```\$; = 'perl';
map {
...
split(/[\s,]+/, \$_, 0) if /alpha.*\$;/i .. /wait/
} `\$;doc \$;toc`;
@[ = keys %_;
```
```\$; = 20;
\$: = 15;
foreach \$_ (0 .. \$; * \$: - 1) {
\$;[\$_] = '_';
}
```
```until (\$%++ > 3 * \$; or @] > 2 * \$: - 3) {
```
```    @_ = split(//, splice(@[, rand @[, 1), 0);
if (3 > @_) {
next;
}
```
```    \$~ = int rand \$;;
\$^ = int rand \$:;
\$- = \$~ + \$^ * \$;;
```
```    my \$Erudil = 0;
```
```    {
if (\$Erudil++ > 2 * \$:) {
next;
}
```
```        \$a = (-1, 0, 1)[rand 3];
\$b = (-1, 0, 1)[rand 3];
```
```        unless (\$a || \$b
and \$~ + \$a * @_ <= \$;
...
and \$^ + \$b * @_ >= 0) {
redo;
}
```
```        my \$llama = 0;
foreach \$_ (0 .. \$#_) {
...
last;
}
}
```
```        if (\$llama) {
redo;
}
```
```        push @], join('', @_);
foreach \$_ (0 .. \$#_) {
\$;[\$- + \$a * \$_ + \$b * \$; * \$_] = \$_[\$_];
}
```
```    }
}
...
@_ = sort(@]);
unshift @_, 'Find:', '-' x 5;
```
```foreach \$a (0 .. \$: - 1) {
```
```    foreach \$b (0 .. \$; - 1) {
```
```        \$~ = ('a'..'z')[rand 26];
\$_ = "\$;[\$a * \$; + \$b]" . \$";
s/_/\$~/;
print \$_;
}
```
```    \$_ = shift @_ || \$";
print \$", \$", \$_, \$/;
\$_ = shift @_ || \$";
print \$" x \$;, \$" x \$;, \$", \$", \$_, \$/;
}
```

Create A New User
Node Status?
node history
Node Type: note [id://108741]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (3)
As of 2021-05-10 00:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
Perl 7 will be out ...

Results (103 votes). Check out past polls.

Notices?