kyuu1999

use strict;
use warnings;
use feature qw/say/;

use HTTP::Request::Common;
use LWP::UserAgent;
use Time::HiRes;
use JSON;

my $ua = LWP::UserAgent->new;

kyuu1999

my (@price,@day);
<STDIN> =~ /(\d+) (\d+)/;
$price[$_] = <STDIN> for (0..($1-1));
$day[$_] = <STDIN> for (0..($2-1));
@price = sort {$a <=> $b} @price;

for my $setprice (@day){
    my @tmp = grep { $_ <=  $setprice - $price[0] } @price;
    my $check = 0;