in reply to IBM Cloud Challenge.

Initially I thought that in the change problem they gave you denominations, but the way I read it now seems to mean they give you a list of coins, so that you can't use two of a denomination if they only list it once. In the sample data you don't need more than one coin of each denomination. So that makes the difference if you have say 7,5,2:14 Is that using all coins or two 7s?

Mojolicious::Lite just shines when it comes to making small encapsulated web apps

Question 2:

#!/usr/bin/env perl
use Mojolicious::Lite;

sub makeChange {
        my $line = shift;
        my @available = split /[,:]/,$line;
        my $changeNeeded = pop @available;
        @available = sort { $b <=> $a } @available;
        my %coins;
        while ($changeNeeded > 0 && @available > 0 ) {
                my $denom = shift @available;
                if ($denom <= $changeNeeded) {
                        $changeNeeded -= $denom;
                        $coins{$denom}++;
                        #unshift @available,$denom; #Multiple larger c
+oins?
                }
        }
        warn "Could not make change correctly: $line" if ($changeNeede
+d != 0);
        return %coins;
}

get '/' => sub {
        my $c = shift;
        $c->render(template => 'index');
};

post '/make/change' => sub {
        my $c = shift;
        my $changeToMake = $c->param('data');
        my @lines = split /\r?\n/, $changeToMake;
        my @answer = map { { makeChange($_) } } @lines;
        my @formattedAnswers;
        for my $coin (sort { $b <=> $a } @answer) {
                my @formatted;
                for (sort { $b <=> $a } keys %{$coin}) {
                        push @formatted, "$_". 'x' . "$coin->{$_}";
                }
                unshift @formattedAnswers, [ @formatted ];
        }
        $c->render(
                answer => \@answer,
                formatted=>\@formattedAnswers,
                template => 'makeChange'
        );
};


app->start;

__DATA__
@@ index.html.ep
% layout 'default';
% title 'Welcome';
        <h2>Question 2 Data Input</h2>
        <form action="/make/change" method="post" >
<textarea rows=30 cols=80 name="data" id="comment" value="" required >
</textarea>
        <input type="submit" value="Run"></input>
        </form>

@@ makeChange.html.ep
<h2>Question 2 Results</h2>
% for my $answer (@{$formatted}) {
        %== join ',',@{$answer}
        <br>
% }


@@ layouts/default.html.ep
<!DOCTYPE html>
<html>
        <head><title><%= title %></title></head>
        <body><%= content %></body>
</html>

[download]

Replies are listed 'Best First'.
Re^2: IBM Cloud Challenge.
by BrowserUk (Patriarch) on Aug 30, 2015 at 17:00 UTC

    I think you were right first time:

    The line begins with a comma-separated list of coin denominations available (in pence), followed by a colon, followed by the amount of money (in pence) that needs to be served to the customer.
    With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
    Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
    "Science is about questioning the status quo. Questioning authority". I knew I was on the right track :)
    In the absence of evidence, opinion is indistinguishable from prejudice.
    I'm with torvalds on this Agile (and TDD) debunked I told'em LLVM was the way to go. But did they listen!
[reply]
      that makes cents
[reply]
        You can't just subtract the biggest remaining coin. doesn't always give you the best answer.
[reply]

In Section Meditations