20 lines
185 B
Raku
Executable file
20 lines
185 B
Raku
Executable file
#!/usr/bin/env raku
|
|
|
|
use v6.d;
|
|
|
|
sub plus-one {
|
|
$*number++;
|
|
|
|
say $*number;
|
|
|
|
return if 100 < $*number;
|
|
|
|
plus-one;
|
|
}
|
|
|
|
sub MAIN {
|
|
my Int $*number = 42;
|
|
|
|
plus-one;
|
|
}
|