cwchen icon

[Perl 6] proceed and succeed

cwchen | PRO | 10/06/17 03:04:09 AM UTC | 0 ⭐ | 1017 👁️ | Never ⏰ | []
Perl 6 |

0 B

|

None

|

0 👍

/

0 👎

my $w = Date.today.day-of-week;
 
given $w {
    when 1 {
        proceed;
    }
    when 2 {
        proceed;
    }
    when 4 {
        "Week".say;
    }
    when 3 {
        "Hump day".say;
    }
    when 5 {
        "Thank God It's Friday".say;
    }
    when 6 {
        proceed;
    }
    when 7 {
        "Weekend".say;
    }
    default {
    die "Unknown day";
    }
}

Comments