use v6-alpha;
use Test;
=kwid
Solves A + B = AC
=cut
plan 4;
my $n;
sub is_it($a, $b, $c) {
$n++;
if ($a != $b && $b != $c && $a != $c &&
$a * 10 + $c == $a + $b ) {
return "$a + $b = $a$c";
} else {
return ();
}
}
my $answer = is_it(any(1..2), any(7..9), any(0..6));
#say "Got:";
#say $answer;
is($n, 42, "called lots of times :-)");
ok( $answer == "1 + 9 = 10", "found right answer");
my @array = <1 2 3 4 5 6 7 8>;
ok( all(@array) == one(@array), "all(@x) == one(@x) tests uniqueness(+ve)" );
push @array, 6;
ok( !( all(@array) == one(@array) ), "all(@x) == one(@x) tests uniqueness(-ve)" );