会python真的可以为所欲为0(回)
353天前
这里还有人吗1(回)
538天前这里还有人吗0(回)
538天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
763天前到处都是羊，不想上班0(回)
843天前
鸽子
0(回)
847天前#----------------------------- |
$c1 = mkcounter(20); |
$c2 = mkcounter(77); |
printf "next c1: %d\n", $c1->{NEXT}->(); # 21 |
printf "next c2: %d\n", $c2->{NEXT}->(); # 78 |
printf "next c1: %d\n", $c1->{NEXT}->(); # 22 |
printf "last c1: %d\n", $c1->{PREV}->(); # 21 |
printf "old c2: %d\n", $c2->{RESET}->(); # 77 |
#----------------------------- |
sub mkcounter { |
my $count = shift; |
my $start = $count; |
my $bundle = { |
"NEXT" => sub { return ++$count }, |
"PREV" => sub { return --$count }, |
"GET" => sub { return $count }, |
"SET" => sub { $count = shift }, |
"BUMP" => sub { $count += shift }, |
"RESET" => sub { $count = $start }, |
}; |
$bundle->{"LAST"} = $bundle->{"PREV"}; |
return $bundle; |
} |
#----------------------------- |
