Risinājums: Atkārtot katru skaitli

Šeit ir iespējams risinājums uzdevumam.

Kods

my @result = gather for 1..4 -> $n {
    take $n for 1..$n;
};

say @result;

🦋 Atrodiet programmu failā collect-the-evens.raku.

[1 2 2 3 3 3 4 4 4 4]

Nekas neliek katrā iterācijā izsaukt take tieši vienu reizi. Šeit iekšējais take $n for 1..$n izsauc take dažādu reižu skaitu katrā piegājienā, un tieši šī elastība padara gather/take jaudīgāku par vienkāršu map.
Ārējais cikls ar nolūku izmanto nosauktu mainīgo -> $n. Ja iekšējo ciklu rakstītu ar $_, iekšējais for piesaistītu $_ savam skaitītājam, un mēs ņemtu skaitītāju, nevis pašreizējo skaitli.
gather vienkārši savāc katru paņemto vērtību secībā, tāpēc @result beigās satur 1, tad divus 2, tad trīs 3, tad četrus 4.