如何在Perl 6中控制循環的嵌套？

Question

這個程序應該已經寫了有總和小於或等於7指數三元：

for ((1..7) X (1..7)) X (1..7) { 
.say if [+] $_ <= 7; 
} 

我以爲它只會在列表的頂部水平（和代碼迴路將有一個錯誤循環體然後，但它不是重點），但它只是循環遍歷個別數字，這是令人沮喪的:(是否有一個巧妙的技巧來避免它？而且順便說一句，有沒有辦法做一個n-ary直接產品？

Answer 1

來命名參考的最簡單的方法

for (1..7) X (1..7) -> $a, $b { }