Skip to main content

Perl (62)

Perl, 62 bytes

This function takes the strings as arguments and returns true or false.

sub f{my@a;for$.(1,-1){$a[ord]+=$.for split//,pop}!grep{$_}@a} 

Stores the ASCII values in an array and checks if it evens out. Increments for the first word and decrements for the second word.

Perl (62)

This function takes the strings as arguments and returns true or false.

sub f{my@a;for$.(1,-1){$a[ord]+=$.for split//,pop}!grep{$_}@a} 

Stores the ASCII values in an array and checks if it evens out. Increments for the first word and decrements for the second word.

Perl, 62 bytes

This function takes the strings as arguments and returns true or false.

sub f{my@a;for$.(1,-1){$a[ord]+=$.for split//,pop}!grep{$_}@a} 

Stores the ASCII values in an array and checks if it evens out. Increments for the first word and decrements for the second word.

added 73 characters in body
Source Link
user475
user475

Perl (62)

This function takes the strings as arguments and returns true or false.

sub f{my@a;for$.(1,-1){$a[ord]+=$.for split//,pop}!grep{$_}@a} 

Stores the ASCII values in an array and checks if it evens out. Increments for the first word and decrements for the second word.

Perl (62)

sub f{my@a;for$.(1,-1){$a[ord]+=$.for split//,pop}!grep{$_}@a} 

Stores the ASCII values in an array and checks if it evens out. Increments for the first word and decrements for the second word.

Perl (62)

This function takes the strings as arguments and returns true or false.

sub f{my@a;for$.(1,-1){$a[ord]+=$.for split//,pop}!grep{$_}@a} 

Stores the ASCII values in an array and checks if it evens out. Increments for the first word and decrements for the second word.

Source Link
user475
user475

Perl (62)

sub f{my@a;for$.(1,-1){$a[ord]+=$.for split//,pop}!grep{$_}@a} 

Stores the ASCII values in an array and checks if it evens out. Increments for the first word and decrements for the second word.