use v6;
my $insert = "insert into `ald_stay_logs` (`id`, `app_key`, `day`, `day_after`, `new_people_left`, `people_left`) values";
my @app_key = <2323423dsfds 21e689e6bb76 f05883cf4dd8 7c8ccee05d025>; # 要遍历的 app_key
my @date = Date.new('2016-11-22') .. Date.new('2016-11-28'); # 上一周
my @day_after = 0..30; # 多少天以后的数据, 最大查看30天的数据
my @init_nums = <5500 5800 8000 9500>; # 新增用户的起始值
#my @init_peoples = <6000 7000 8000 9000>; # 活跃用户的起始值
for @app_key.kv -> $idx, $app_key {
my $init = @init_nums[$idx];
#my $start = @init_peoples[$idx];
my @step = 15, 20, 40;
my @new_people_left = lazy $init, $init-$init*0.15, $init-$init*0.20, $init-$init*0.40, {$^a - @step.pick} ... 0;
#my @people_left = lazy $start, $start-$start*0.15, $start-$start*0.20, $start-$start*0.40, {$^a - @step.pick} ... 0;
for @date -> $day {
for @day_after.kv -> $idx, $day_after {
say $insert, "(null,'$app_key', '$day', '$day_after', '@new_people_left[$idx]', '')";
}
}
}
2018 年哪些日子是周六:
enum DoW < Sunday Monday Tuesday Wednesday Thursday Friday Saturday >;
say (Date.new("2018-01-01")..Date.new("2018-12-31")).grep( *.day-of-week == Saturday );
网友评论