Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Re^2: testing number of occurrences in a word

by grinder (Bishop)
on Sep 19, 2006 at 15:05 UTC ( [id://573746]=note: print w/replies, xml ) Need Help??


in reply to Re: testing number of occurrences in a word
in thread testing number of occurrences in a word

49, but then again I suck at golf.

sub isogram {
#234567890#234567890#234567890#234567890#234567890
my%h=map{($_,1)}split//,$_[0];keys%h==length$_[0]
}

print "$_ is ", (isogram($_) ? '' : 'not '), "an isogram\n" for @ARGV;

[download]

Duh, johngg had the right idea, except he wasn't greedy enough (nor was I. What's with the $_[0]? Sheesh.):

sub isogram {
#23456789
/(.).*\1/
}

print "$_ is ", (isogram() ? '' : 'not '), "an isogram\n" for @ARGV;

[download]

That makes for 9.

• another intruder with the mooring in the heart of the Perl

Replies are listed 'Best First'.
Re^3: testing number of occurrences in a word
by liverpole (Monsignor) on Sep 19, 2006 at 16:58 UTC
    Very nice, but your logic is reversed.  Remember, an isogram does NOT have any letters duplicated.

    To keep it golfed, either change the caller of the subroutine: 

    print "$_ is ", (isogram() ? 'not ' : ''), "an isogram\n" for @ARGV;

    [download]

    or, better yet, the subroutine name: 

    sub not_isogram {
    # ...
}
print "$_ is ", (not_isogram() ? '': 'not '), "an isogram\n" for @ARGV
+;

    [download]
    s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://573746]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others scrutinizing the Monastery: (6)
As of 2024-04-23 20:29 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found