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

??


       Посмотрим что делает конструкция "условие ?? тогда это !! или это".
    
#!/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

       O sancta simplicitas!
# mutatio postrema: 18 Sep 2010

   ??, !!      charta situs       nota LXVIII   

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