[Moscow.pm] * ** *

[Andrew Shitov]

А вот просто так - без повода - примеры кода на 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
______________________________________________________________________
andy на shitov.ru | http://shitov.ru