Even or odd: Difference between revisions

=={{header|Picat}}==

{{works with|Picat}}

<lang Picat>

% Bitwise and

is_even_bitwise(I) = cond(I /\ 1 == 0, true, false).

% Modulo

is_even_mod(I) = cond(I mod 2 == 0, true, false).

% Remainder

is_even_rem(I) = cond(I rem 2 == 0, true, false).

yes_or_no(B) = YN =>

B = true, YN = "Yes";

B = false, YN = "No".

main :-

foreach (I in 2..3)

printf("%d is even? %s\n", I, yes_or_no(is_even_bitwise(I))),

printf("%d is even? %s\n", I, yes_or_no(is_even_mod(I))),

printf("%d is even? %s\n", I, yes_or_no(is_even_rem(I)))

end.

</lang>

{{out}}

<pre>

2 is even? Yes

2 is even? Yes

2 is even? Yes

3 is even? No

3 is even? No

3 is even? No

</pre>