X-tender

The_Ice, гольф не разбирают) его интереснее снова сгольфить) а если по работе то перл может быть очень и очень понятен)

А вот дебильный пузырек у меня $_=<>;s#(\w+)\s(\w+)#($2=~m/A/g>$1=~m/A/g)?"$1 $2":"$2 $1"#ex;print

Подробнее распишу позже.

Продолжение "Perl рулит2": perl -aple ' $_="@{[sort{$b=~y/A//-$a=~y/A//}@F]}" '

print join(' ',sort{$b=~tr/aA/aA/<=>$a=~tr/aA/aA/}split(" ",<>)) или $,=" ";$_=<>;print sort{$b=~y/A/A/-$a=~y/A/A/}split Perl рулит Еще руби рулит puts gets.split.sort_by{|i|i.count 'A'}*' '

SOleg, и хотелось бы узнать, когда планируется проводить в район Терешковой-Геологической?

uuug поменять на U3G 3 - это куб

Кстати про материализованные вьюхи, они как раз и служат в том числе и для того чтобы облегчить запросы, т.к. в них хранятся агрегированные записи. То есть если есть определенный диапазон данных запрашиваемых чаще прочего, а общий объем данных слишком велик, то сразу стоит подумать именно о них в качестве ускорения выборок. Помимо этого варьируя ее параметры обновления можно оптимизировать и под конкретные характеристики обновляемости самих данных. Например, нужно выводить топ 100 пользователей по количеству сообщений понедельно и в целом, а новые записи появляются в секунду по 100 штук, тогда создадим вьюху и установим ее обновление по запросу, а запрос будем выполнять еженедельно по планировщику.

Lucky, не совсем верно. Если роль позволяет лишь читать, то напакостить не сможет в таблице. Другое дело, что вьюха может представляют более ограниченный набор данных. Например, запретить пользователям просматривать информации не его уровня. Уровень будет в поле access_level. И вьюхи будут выбирать именно с определнным access level'ом.

Baium, выполняй из консоли mysql -u username -p database -h localhost < dump.sql

dibar, то есть изначально я уже плохой админ?) Не надо фанатизма

Имхо с его дикцией вообще ничего вести нельзя...

Честно говоря до сих пор не въеду, где у меня ошибка может быть в коде к Сундуку мертвеца. Никак 8-й тест не проходило... import java.util.Locale; import java.util.Scanner; public class Main { static double hord(double r, double al){ return al<=0?0:2*r*Math.sin(Math.PI*al/360); } public static void main(String[] args) { Locale.setDefault(Locale.ENGLISH); Scanner in = new Scanner(System.in); double r=in.nextFloat(); double a=in.nextFloat(); double rem=360-2*a*Math.floor(360/(2*a)); double l=r+hord(r,(2*a))*(Math.floor(180/a)-1)+hord(r,rem); System.out.printf("%.6f",l); } }

Пусть ) лишь бы use bigint в перле можно было)

А я даже ворд с экселем не знаю...

IntelliJ IDEA обычно для java используют, она сейчас, кстати, есть в бесплатной версии

Andrej, ага, очень жаль... Сейчас вообще только с/с++/java... Хотя на http://acm.mipt.ru интересно сорвеноваться еще и между языками.(Мне интересно Perl vs Ruby)

Andrej, хехъ я универовскую формулу для числа перестановок то выводил сам, т.к. не помнил и не гуглил для чистоты рез-та, а тут школу вспомнить... (12лет прошло со школы то) Кому интересно, скидываю свои решения на перле: print length($k*(10**($m-length($k)))+$k)==$m?$k*(10**($m-length($k)))+$k:$k*(10**($m-length($k)))-$k;($k,$m)=split/\s+/,<>; ($k,$n)=split/\s+/,<>; if ($k>$n) {print 0;exit(0);} $s=$d=1; for($i=0;$i<$k;$i++) {$s*=$n-$i if $n!=$i;$d*=$i+1;} printf("%.0f", $s/$d); while(/([a-zA-Z]+)/ig) { $w{$1}++; $c++; } } for my $key ( keys %w ) {$s+=$w{$key}**2;} print ($c**2-$s); while($_=<>){ $_=<>; for(/\d/g){ $b+=$a=$_; } print $b%3==0 && $a%5==0?"YES":"NO";

Рекуррентную формулу для числа перестановок, видимо, надо было гуглить...

0xDEADBEEF, да бог с ним. Хотя условие следует понимать БУКВАЛЬНО, а в условии буквально написано 1 из них может находиться на территории другого, а говорится про 3 круга. И самое главное: Как насчет этого? Добавлено спустя 1 минуту 40 секунд: Кроме того, хотелось бы увидеть тесты. Нужно, но библиотеки нужной не было...

Задача B: В задаче четко написано 1 из них может находиться на территории другого, а не каждый. Более того, в случае если точки находятся на одной прямой, то существует бесконечное кол-во решений. Добавлено спустя 10 минут 4 секунды: Хехъ, а где уравнивание языков? Как-то не совсем честно получается. Более того в моем решении даже меньше операций.

Homie Holmie, ты делаешь кучу лишних операций. l содержит t. Просто делается одним циклом до k: if ($k>$n) {print 0;exit(0);} $s=1; for($i=0;$i<$k;$i++) {$s*=$n-$i if $n!=$i;$d*=$i+1;} printf("%.0f", int($s/$d));

Я честно говоря так и не понял, где закавыка в задаче В, та что про радиусы окружностей.

Andrej, для перла use bigint не дали использовать

Да уже понял из-за чего)