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.