
while
Теперь вместо for ($i=0; $i<10; $i++) введен loop ( то же )
| | #!/usr/bin/perl6
my $i;
loop ($i=0; $i < 10; $i++) {$i.say} | | 0
1
2
3
4
5
6
7
8
9 |
Ну, что ж. Главное про это не забыть. Как написано на blog.perl6doc.ru, теперь loop пригоден для бесконечных циклов.| | #!/usr/bin/perl6
my $rand;
loop { # это было бы вечно, если не условие внутри
$rand=1000.rand;
last if $rand < 1;
}
$rand.say; | | 0.971776528093216 |
Bene. А как же while?| | #!/usr/bin/perl6
my $rand;
while ('вечность') {
$rand=1000.rand;
last if $rand < 1;
}
$rand.say; | | 0.0956970331529305 |
Работает, как и раньше.Extra http://blog.perl6doc.ru
# mutatio postrema: 24 Aug 2010
|