Cursus Raku / Provectus / Ordo exsecutionis / Praefixae sententiae / do et valor bloci
Quiz — do
Quid sequens programma imprimit?
my $s = do given -3 {
when $_ < 0 { 'neg' }
default { 'nonneg' }
};
say $s;| 1 | neg |
| 0 | nonneg |
| 0 | -3 |
| 0 | Nil |
do ante structuras fluxus controllandi operatur, non
solum copias nudas. Hic do given totum
given/when in expressionem convertit. Topicum
-3 condicioni $_ < 0 congruit, ergo
expressio 'neg' producit, quod in $s
reponitur.