А вот просто так - без повода - примеры кода на 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
--
Andrew Shitov
______________________________________________________________________
[email protected] | http://shitov.ru
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
