On Fri, 2004-09-03 at 16:53, Jose Alves de Castro wrote: > Hi, guys. > > I was trying to do a japh with a twist. Kind of a: > > print "Just another Perl highlander\n"; > > but not using each character more then once...
more *than* once
(sorry about that)
> This is what I got so far:
>
>
> #!/usr/bin/perl
> $_=lc(q{#uS69A0oThE4:%'R.?HIG*LaN&er});
> [EMAIL PROTECTED]<XVQZJYPd-v >,
>
>
> It does what I want it to do, but uses two "r"s and two "-"s. If anyone
> could offer me some other suggestion, I'd be much appreciated :-) (this
> has probably been tried before, but I couldn't find anything on it...)
>
>
> BTW, here's the script I used to validate the requirement:
>
>
> #!/usr/bin/perl -nw
> use strict;
>
> our %t;
>
> next if $. == 1;
> next if /^#/;
> last if /^__END__$/;
> chomp;
> $t{$_}++ for (split //);
>
> }{
>
> for (sort {$t{$a} <=> $t{$b}} grep {$t{$_} > 1} keys %t) {
> print "$_ -> $t{$_}\n";
> }
>
>
> (they're both being sent as attaches, too)
>
> Regards to all,
>
> jac
--
Jos� Alves de Castro <[EMAIL PROTECTED]>
http://natura.di.uminho.pt/~jac
signature.asc
Description: This is a digitally signed message part
