Посмотрим что делает конструкция "условие ?? тогда это !! или это".
#!/usr/bin/perl6 my $num=1; say $num < 4 ?? $num !! 'много'; $num=5; say $num < 4 ?? $num !! 'много';
1 много
#!/usr/bin/perl6 my ($a,$b)=(7,4); my $c=$a-$b; say simplicitas($a) ~ ' - ' ~ simplicitas($b) ~ ' = ' ~ simplicitas($c); sub simplicitas($num) { # $num - readonly. Поэтому ее менять нельзя my $tmp=$num < 0 ?? 0 !! $num; $tmp=$tmp < 4 ?? floor($tmp) !! 'много'; return $tmp; }
много - много = 3
RSS stdin@perl6.su © Alexius Karmanov, 2010-2011