rulinux.net - Форум - Development - просто оставлю это тут

Re: просто оставлю это тут

Sat, 20 Nov 2010 15:59:24 +0300

> да порадовался красоте языка
вот красота же, "а у тебя болесь какая-то" (С) самизнаетечей:

sbcl --noinform --eval "(print (sort '(35 10 0 27 100 -4) #'<))" --eval "(quit)"

Sat, 20 Nov 2010 14:10:38 +0300

Я нихуя не понял.

Sat, 20 Nov 2010 12:28:58 +0300

да порадовался красоте языка, в свой сборник всяких полезностей по перлу решил занести, т.к. сижу не на том месте чтобы занести прямо в лоб.

и кстати двигло сожрало знак больше, потом равно и потом знак меньше. межу $a и $b еслиб жэто былиб строки, надо былоб поставить cmp, но это числа.

Sat, 20 Nov 2010 12:20:15 +0300

А обосновать, почему так ?

//Id

Sat, 20 Nov 2010 10:50:31 +0300

Убери немедленно. Это же перл!

Sat, 20 Nov 2010 08:39:47 +0300

))) )))

Sat, 20 Nov 2010 08:20:44 +0300

Смотри, чтобы НЕВЕСТЬ_КТО не стырил. Мне кажется, что он плутоват.

Sat, 20 Nov 2010 07:04:00 +0300

perl





#!/usr/bin/perl -w

use strict;

my @L=(35,10,0,27,100,-4);

sub numeric { $a  $b; }

@L = sort numeric @L;

print @L;