nota LXVIII. ?? et !!

#!/usr/bin/perl6
my $num=1;
say $num < 4 ?? $num !! 'много';
$num=5;
say $num < 4 ?? $num !! 'много';

#!/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;
	}