perl6.suОсвоим perl6 к 2015 году!

nota XII. Инкремент-декремент


       Очевидно, инкремент ++ и декремент -- работает как и раньше. Попробуем
    
#!/usr/bin/perl6
my $num=10;
say ++$num;
say $num;
say $num++;
say $num;
say --$num;
say $num;
say $num--;
say $num;
11
11
11
12
11
11
11
10

       Вот и хорошо. А что если в одной строке несколько декрементов или инкрементов одной переменной?
    
#!/usr/bin/perl6
my $num=10;
say $num,' ',++$num,' ',$num,' ',++$num,' ',$num,' ',++$num,' ',$num,' ',++$num,' ',$num;
say $num;
14 11 14 12 14 13 14 14 14
14

       То есть все возможные инкременты в строке сначала подсчитались, потом уже сработала say.
       N.B. Лучше избегать использования в одной строке сразу двух или более инкрементов-декрементов одной переменной. Во избежание сюрпризов.
# mutatio postrema: 14 Aug 2010

   инкремент-декремент      charta situs       nota XI <<     >> nota XIII   

    RSS     stdin@perl6.su    © Alexius Karmanov, 2010-2011