Re: Comparison by position and value


Welcome to the Monastery
	PerlMonks

Re: Comparison by position and value

by ccn (Vicar)

on Jan 02, 2005 at 11:29 UTC ( #418778=note: print w/replies, xml )

Need Help??

in reply to Comparison by position and value

having spaces instead of underscores:

#!/usr/bin/perl -wl
use strict;

sub is_compatible {
    local $_ = $_[0] ^ $_[1];
    return  not (/[\001-\017]/ or /([\020-\031]).*?\1/s);
}

print is_compatible (' 8  3  19',
                     '48    7  ') ? 'yes' : 'no';


print is_compatible (' 8  3  19',
                     '4 8   7  ') ? 'yes' : 'no';


print is_compatible (' 8  3  19',
                     '48     7 ') ? 'yes' : 'no';

__END__
# output
yes
no
no
[download]