Не катит. Они просили математически доказать


2009/12/24 Павел Купцов <[email protected]>

> Уф.. ну наспамили - пришел - смотрю 29 сообщений с листа пришло :)..
> Все же про ноль, я бы доказал так:
>
> #!/usr/bin/perl -w
>
> use strict;
> use warnings;
> use diagnostics;
>
> my $var1 = 1;
> my $var0 = 0;
>
> eval { print $var1/$var0; };
>
> if($@) {
>        print "Делить нельзя - доказано Perl";
> }
>        else { print "Делить можно!";
> }
>
>

-- 
Alexander
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org

Ответить