On 10/21/10 18:06, Andrew Shitov wrote:
> А вот просто так - без повода - примеры кода на Perl 6 :-)
>
> $ perl6 -e'(1..10).sort(* * *).join(" ").say'
> 6 1 7 3 8 5 9 4 10 2
>
> $ perl6 -e'(1..10).sort(* ** *).join(" ").say'
> 6 1 7 3 8 5 9 4 10 2
>
> $ perl6 -e'(1..10).sort(* ~** *).join(" ").say'
> 10 1 2 3 4 5 6 7 8 9
>
>
>
Это точно не лисп?...
Alex.