Select Code to Download

use v5.12;
use warnings;
...
sub s1 {
    $x >= $a == $x <= $b;
}

c:/tmp/pm/clever_intervall.pl 
fails for 2 in [4 2] with <1>,<>
fails for 4 in [4 2] with <1>,<>