Re: Re: Re: Re[4]: Популяризация

[Alex Varyanick]

2010/8/8 Евгений Карпенко <notformat at gmail.com>:
> Когда то давно это было задание на олимпиаду.
> Вот пример программы на паскале:
> type
>    my_type: 0..maxint;
> var
>   a: my_type;
> begin
>    a:=-1;
> end;
> ... которая идентичная
>>>
>>> % perl6 -e 'subset Positive of Int where { $_ > 0 }; my Positive $x =
>>> -1;'
>>> Type check failed for assignment
>
> В Си можно использовать тип данных unsigned.
> В джаве только писать класс-обертку идентичную unsigned.

в п6, это нечто больше:
% perl6 -e 'multi sub nu ($x where {$_ > 0}) { say "positive $x" };
multi sub nu($x) { say "negative $x" }; nu(5); nu(-1);'
positive 5
negative -1

-- 
Varyanick I. Alex
icq: 102 575 440
skype: cono..
q at cono.org.ua