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.

--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org

Ответить