Problem:
Score : 100 points

Problem Statement

Based on some criterion, Snuke divided the integers from 1 through 12 into three groups as shown in the figure below.
Given two integers x and y (1 ≤ x < y ≤ 12), determine whether they belong to the same group.

Constraints

x and y are integers.

1 ≤ x < y ≤ 12

Input

Input is given from Standard Input in the following format:

x y

Output

If x and y belong to the same group, print Yes; otherwise, print No.

Sample Input 1

1 3

Sample Output 1

Yes

Sample Input 2

2 4

Sample Output 2

No

Solution in Perl (v5.18.2) (judge verdict: Runtime Error)

use List::Util qw/first any/;
my $input = <STDIN>;
chomp($input);
my ($x, $y) = split(' ', $input);
my @groupe = (
    [qw/1 3 5 7 8 10 12/],
    [qw/4 6 9 11/],
    [qw/2/],
);
sub group_id {
    my ($v) = @_;
    return (first {any {$_ == $v} @{$groupe[$_]}} (0..$#groupe));
}
print (group_id($x) == group_id($y) ? 'Yes' : 'No');