Re: Digit Density

$_=join'',<>;
@p=(0)x10;
$p[$&]++for/\d/g;
[download]

The rest is up to you. I'm just golfing the actual tallying.

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;

Comment on Re: Digit Density Download Code

Replies are listed 'Best First'.
Re: Re: Digit Density by termix (Beadle) on Dec 27, 2001 at 21:40 UTC
Shoot. I am missing something here. I tried your code. It loops the right number of times, but it seems to only see the last character (the first match in a greedy match). So an input of '12345' looks like '55555'. To test I tried `$x="12345"; for ($x=~ /./g) { print $&; } print "\n";` [download] but this gives me "55555" again. I notice, I should be using a while and I try: `$x="12345"; while ($x=~ /./g) { print $&; } print "\n";` [download] which works. So I changed your code to use a while loop also and it works. -- termix	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re: Re: Digit Density
by termix (Beadle) on Dec 27, 2001 at 21:40 UTC

Shoot. I am missing something here. I tried your code. It loops the right number of times, but it seems to only see the last character (the first match in a greedy match). So an input of '12345' looks like '55555'.

To test I tried

$x="12345";
for ($x=~ /./g) {
  print $&;
}
print "\n";
[download]

but this gives me "55555" again. I notice, I should be using a while and I try:

$x="12345";
while ($x=~ /./g) {
  print $&;
}
print "\n";
[download]

which works. So I changed your code to use a while loop also and it works.

-- termix

[reply]
[d/l]
[select]