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

nota XLIV. Восклицательный знак


       Восклицательный знак служит для отрицания чего-то.
    
#!/usr/bin/perl6
my $check=5;
if !$check {"$check not checked".say} else {"$check checked".say}
$check=0;
if !$check {"$check not checked".say} else {"$check checked".say}
$check=-99;
if !$check {"$check not checked".say} else {"$check checked".say}
$check='';
if !$check {"$check not checked".say} else {"$check checked".say}
$check='Brain';
if !$check {"$check not checked".say} else {"$check checked".say}
$check=' ';
if !$check {"$check not checked".say} else {"$check checked".say}
$check='checked';
if !($check ne 'checked') {"checked".say} else {"not checked".say}
if !$check ne 'checked' {"checked".say} else {"not checked".say}
5 checked
0 not checked
-99 checked
 not checked
Brain checked
  checked
checked
checked

       Пробел - истинен.
       Отрицаемое суждение не обязательно заключать в скобки, хотя для большей ясности желательно.
# mutatio postrema: 2 Sep 2010

   if, !      charta situs       nota XLIII <<     >> nota XLV   

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