1. Куча / Говнокод #18939

    +2

    1. 1
    2. 2
    3. 3
    4. 4
    l =: 3 :  'LF,~":<./(*/,*/"1)(i.2){(\:~,./:~)t=.}.".y rplc LF,'' -_'''

l&.stdin ''
exit ''

    Запостил: Abbath, 29 Октября 2015

    Комментарии (33) RSS

    • ava inkanus-gray 29.10.2015 19:16 # +3

      Офтопик. Напомнило C=}>;*{)) — пьяный злой чёрт в парике, надетом наоборот, с усами и с двойным подбородком.
      Ответить

    • ava kegdan 29.10.2015 19:27 # 0

      а можно суть того, что оно делает?
      Ответить

      • ava Abbath 29.10.2015 19:43 # 0

        Ищет минимальное произведение
        #include <iostream>
#include <vector>
#include <algorithm>
#include <iterator>
using namespace std;
int main() {
	int n,i=0;
	cin >> n;
	vector<double> v(n);
	for(istream_iterator<double> it(cin); i < n; v[i] = *it++, i++);
	sort(begin(v), end(v));
	vector<double> t{v[0]*v[1], v[n-1]*v[n-2], v[0]*v[n-1]};
	cout << *min_element(begin(t), end(t));
	return 0;
}
        Ответить

        • ava kegdan 29.10.2015 19:45 # 0

          Лень читать код - минимальное произведение из всех возможных элементов вектора?
          Ответить

          • ava Abbath 29.10.2015 19:52 # 0

            Да, возможных пар элементов.
            Ответить

            • ava kegdan 29.10.2015 20:01 # 0 

              v=:({.@}.*{.)@/:~ 
   v 5 59 34 6 1
5


              так или туплю?
              Ответить

              • ava 1024-- 29.10.2015 20:06 # 0

                С отрицательными работает? Со смесью положительных и отрицательных? С нулём?
                Ответить

                • ava kegdan 29.10.2015 20:10 # +1

                  не, так работает

                  v =:<./@((#~(-.@= <./))*<./)
   
   v 5 59 34 6 1 _100 _10
_5900


                  или так

                  v =:<./@(}.*{.)@/:~
                  Ответить

        • ava CHayT 29.10.2015 19:57 # 0

          хуйня логлинейная
          Ответить

          • ava CHayT 29.10.2015 20:09 # 0

            .
            Ответить

          • ava Abbath 29.10.2015 20:42 # +4

            Теперь линейная
            #include <iostream>
#include <algorithm>
#include <iterator>
#include <list>
using namespace std;
int main() {
	int n,i=0;
	cin >> n;
	list<double> v;
	for(istream_iterator<double> it(cin); i < n; v.push_back(*it++), i++);
	auto p1 = minmax_element(begin(v), end(v));
	auto p = make_pair(*(p1.first), *(p1.second));
	v.erase(p1.first);
	v.erase(p1.second);
	p1 = minmax_element(begin(v), end(v));
	list<double> t{p.first*p.second, *(p1.first)*p.first, *(p1.second)*p.second};
	cout << *min_element(begin(t), end(t));
	return 0;
}
            Ответить

            • ava Xom94ok 30.10.2015 18:58 # +1

              Хуясе код от веткардиохирурга. Я к вам лечиться пойду, когда прижмёт.
              А если в первой крестовой версии заменить sort на partial_sort, сложность же будет не намного хуже?
              Ответить

              • ava Abbath 30.10.2015 21:40 # 0

                Нам и конец вектора нужен. Так что partial_sort не прокатит. Зато можно так:
                #include <iostream>
#include <vector>
#include <algorithm>
#include <iterator>
using namespace std;
int main() {
	int n,i=0;
	cin >> n;
	vector<double> v(n);
	for(istream_iterator<double> it(cin); i < n; v[i] = *it++, i++);
	nth_element(begin(v), begin(v), end(v));
	nth_element(begin(v), begin(v)+1, end(v));
	nth_element(begin(v), end(v)-2, end(v));
	nth_element(begin(v), end(v)-1, end(v));
	vector<double> t{v[0]*v[1], v[n-1]*v[n-2], v[0]*v[n-1]};
	cout << *min_element(begin(t), end(t));
	return 0;
}
                Ответить

    • ava gost 29.10.2015 19:33 # +1

      Нихуя непонятно...
      Ответить

    • ava imihajlov 30.10.2015 10:10 # +2

      Это J/K? Не понимаю упорышей, которые на нем пишут. Причем даже коммерческие проекты на нем есть.
      Ответить

      • ava inkanus-gray 30.10.2015 10:25 # 0

        А я никогда не понимал тех, кто говорит на китайском.
        Ответить

        • ava imihajlov 30.10.2015 10:30 # +5

          Неверная аналогия. Правильнее бы было так: кто-то выучил арабский алфавит и решил использовать его вместо кириллицы в русском языке, а еще убрал пробелы и переносы строк, потому что они не нужны.
          Ответить

          • ava inkanus-gray 30.10.2015 10:48 # +1

            Пожалуй, соглашусь. Проблема J не столько в семантике, сколько в нечитаемых знаках препинания. Если бы в нём, как в SQL, каждый оператор обозначался словом на каком-нибудь естественном языке (например, на английском), читалось бы намного легче.
            Ответить

            • ava Abbath 30.10.2015 14:12 # 0

              Такое есть. Каждую закорючку можно поменять на ее название. Это есть где-то в стандартной либе.
              Ответить

      • ava TarasB 30.10.2015 12:13 # +3

        Коммерческие проекты на J?!
        Ответить

        • ava imihajlov 30.10.2015 12:35 # +1

          Да, меня однажды приглашали биржевых роботов каких-то писать на нем. Якобы, это быстрее, чем на нормальных языках.
          Ответить

          • ava roman-kashitsyn 30.10.2015 12:49 # +4

            И защита от конкурентов
            Ответить

          • ava Vasiliy 30.10.2015 13:03 # +4

            я думаю пишется на нем там. 1 . готовятся тесты. 2. подключается генератор символов. 3. арендуется овердохуя серверов. запускается.
            После каждой генерации запускаются тесты, если тесты проходят значит программа написана. Все довольны.
            Ответить

    Добавить комментарий