11 lines
84 B
Perl
11 lines
84 B
Perl
|
use utf8;
|
||
|
|
use v5.10;
|
||
|
|
|
||
|
|
sub Δ () : lvalue {
|
||
|
|
state $val;
|
||
|
|
}
|
||
|
|
|
||
|
|
Δ = 1;
|
||
|
|
Δ++;
|
||
|
|
say Δ;
|