RosettaCodeData/Task/Even-or-odd/Perl-6/even-or-odd.pl6
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

6 lines
155 B
Raku

subset Even of Int where * %% 2;
subset Odd of Int where * % 2;
say 1 ~~ Even; # false
say 1 ~~ Odd; # true
say 1.5 ~~ Odd # false ( 1.5 is not an Int )