Решение: Четно, нечетно или нула

Ето едно възможно решение на задачата.

Код

my $n = 12;

given $n {
    when 0      { say 'zero' }
    when $_ %% 2 { say 'even' }
    default     { say 'odd' }
}

🦋 Можете да намерите изходния код във файла sign-of-a-number.raku.

even

when 0 съвпада с единичната стойност нула. Тя е на първо място, защото нулата също е четна и искаме да я отчетем отделно.
when $_ %% 2 е условие, където $_ е темата, зададена от given: операторът %% проверява дали числото се дели без остатък на две. Стойността 12 не е нула, но се дели на две, така че програмата отпечатва even.
default покрива всичко останало — числата, които не са нито нула, нито четни, тоест нечетните.