Here's my attempt, at 39:

#!/usr/bin/perl
$_=pop;print if(/[a-z]{3,}/i&&/\d{2,}/)

I skipped the first constraint, because if rules 2 and 3 are true, 1 will
always be true... right?

--
Patrick

> -----Original Message-----
> From: Kim Schulz [mailto:[EMAIL PROTECTED]] 
> Sent: Thursday, December 13, 2001 8:29 AM
> To: [EMAIL PROTECTED]
> Subject: test a password string for correctness
> 
> 
> hi guys
> 
> How short kan you make a program (oneliner?) that:
> 
> * checks if a password is 5 characters long or more
> * checks if the password contains at least 3 alpha chars (a-zA-Z)
> * checks if the password contains at least 2 numbers (0-9)
> 
> I needed 5 lines of code how about you guys?
> 
> later..
> Kim Schulz
> 

Reply via email to