20 lines
185 B
Raku
20 lines
185 B
Raku
|
#!/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;
|
||
|
}
|