PWC #236, Task 1

Run Settings
Language	Raku
Language Version
Run Command

1
2
3
4
5
6
7
8
9
10
11
# URL: https://theweeklychallenge.org/blog/perl-weekly-challenge-236/#TASK1
my %change is BagHash;
put so $*IN.words».&can-pay(%change).all;
my method can-pay($bill : %change --> Bool:D) {
    my $remain = $bill - 5;
    return False if $remain < 0;
    while $remain > 0 {
        my $bill_ = %change.keys.sort(-*).first(* ≤ $remain);
 
 
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Editor Settings
Theme
Key bindings
Full width
Lines	10

Snippet Metadata
Owner	seaker
Created	2 years ago
Modified	2 years ago
Visibility	Public