20 lines
181 B
Raku
Executable file
20 lines
181 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;
|
|
}
|