1. 1C / Говнокод #6161

    −135

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    "ВЫБРАТЬ РАЗРЕШЕННЫЕ ПЕРВЫЕ " + ПериодАнализаВРабочихДнях + "
|    РегламентированныйПроизводственныйКалендарь.ДатаКалендаря
|ИЗ
|    РегистрСведений.РегламентированныйПроизводственныйКалендарь КАК РегламентированныйПроизводственныйКалендарь
|ГДЕ
|    РегламентированныйПроизводственныйКалендарь.ДатаКалендаря <     &ДатаНач
|    И (РегламентированныйПроизводственныйКалендарь.ВидДня = &РабочийДень
|            ИЛИ РегламентированныйПроизводственныйКалендарь.ВидДня = &ПредпраздничныйДень)
|
|УПОРЯДОЧИТЬ ПО
|    РегламентированныйПроизводственныйКалендарь.ДатаКалендаря УБЫВ";
датаначала = Неопределено;
Выборка = запрос.выполнить().выбрать();
пока выборка.следующий() цикл
датаначала = выборка.ДатаКалендаря;
конеццикла;
возврат датаначала;

    и почему я не могу додуматься взять минимальное значение??

    drhihi, 31 Марта 2011

    Комментарии (2)

  2. PHP / Говнокод #6160

    +159

    1. 1
    echo file_get_contents("split('?')[1]");

    Смесь PHP & JavaScript. Честно, я не понимаю, какого результата хотел добиться автор.

    stuffort, 31 Марта 2011

    Комментарии (10)

  3. 1C / Говнокод #6159

    −124

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    "ВЫБРАТЬ
|	ТоварыНаСкладахОстатки.Номенклатура КАК Номенклатура,
|	СУММА(ТоварыНаСкладахОстатки.КоличествоОстаток) КАК КоличествоОстатокНаСкладах
|ИЗ
|	РегистрНакопления.ТоварыОрганизаций.Остатки(
|			,
|			Номенклатура В (&НоменклатураПоОтбору)
|				И Склад В (&СписокСкладов)
|				И Организация = (&Организация)) КАК ТоварыНаСкладахОстатки
|ГДЕ
|	ТоварыНаСкладахОстатки.Склад В(&СписокСкладов)
|
|СГРУППИРОВАТЬ ПО
|	ТоварыНаСкладахОстатки.Номенклатура

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

    drhihi, 31 Марта 2011

    Комментарии (6)

  4. 1C / Говнокод #6158

    −92

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    "ВЫБРАТЬ РАЗРЕШЕННЫЕ
|	Номенклатура.Ссылка КАК Номенклатура
|ИЗ
|	Справочник.Номенклатура КАК Номенклатура
|ГДЕ
|	Номенклатура.Ссылка В(&НоменклатураПоОтбору)
|
|СГРУППИРОВАТЬ ПО
|	Номенклатура.Ссылка

    Пусть 1с раздупляется, что тебе не нужны одинаковые элементы справочника "номенклатура"

    drhihi, 31 Марта 2011

    Комментарии (10)

  5. 1C / Говнокод #6157

    −100

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    //ВИНМАНИЕ Деление на 0
Если СтрокаЗаказа.КоличествоДнейНаличияНаСкладеЗаПериод = 0 Тогда
	СтрокаЗаказа.КоличествоСделокВДень = 0;
Иначе
	СтрокаЗаказа.КоличествоСделокВДень = СтрокаЗаказа.КоличествоСделокЗаПериод
		/ ?( СтрокаЗаказа.КоличествоДнейНаличияНаСкладеЗаПериод = 0, 1, СтрокаЗаказа.КоличествоДнейНаличияНаСкладеЗаПериод );
КонецЕсли;

    по условию 1с не догнала, что там 0...

    drhihi, 31 Марта 2011

    Комментарии (7)

  6. Си / Говнокод #6156

    +141

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    char *toScan;
    unsigned int IP1, IP2, IP3, IP4, IPMask;
    if(argc > 1) {
        toScan = argv[1];

        if(sscanf(toScan, "%u.%u.%u.%u/%u", &IP1, &IP2, &IP3, &IP4, &IPMask) != 5) {
            puts("Error parsing arguments.");
            return -1;
        } else {
            if(IP1 > 255 || IP2 > 255 || IP3 > 255 || IP4 > 255 || IPMask > 32) {
                puts("Incorrect values specified.");
                return -2;
            } else {
                baseIP |= IP1 & 0xFF;
                baseIP |= ((IP2 << 8) & 0xFF00);
                baseIP |= ((IP3 << 16) & 0xFF0000);
                baseIP |= ((IP4 << 24) & 0xFF000000);

                baseIP = ntohl(baseIP);

                intCountIP = (unsigned long) pow(2, 32-IPMask);
                //printf("Total IP's: %u\n", countIP());
            }
        }
    } else {
        return -1;
    }

    Парсинг аргументов из одного сетевого сканера. Программа выявляет выключенные хосты в указанной подсети.
    Несмотря на *это*, сканер работает весьма резво (350 IP в секунду)

    danilissimus, 31 Марта 2011

    Комментарии (9)

  7. Perl / Говнокод #6155

    −120

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    use strict;
use warnings;

my $expr = $ARGV[0] || die();
my $n = $ARGV[1] || die();
die if ($n < 1) || ($n > length($expr));

$expr =~ tr/[\xc0-\xdf]\xa8/[\xe0-\xff]\xb8/;   # lc
($expr =~ m/^[\xe0-\xff\xb8\-]+$/s) || die();


open(F, 'index') || die("failed to open 'index': $!");
while (<F>)
{
    chomp();
    print "$_\n" if (match($_, $expr, $n));
}
close(F);


sub match
{
    my ($str, $expr, $n) = @_;

    return if length($str) != $n;
    foreach my $letter (split(//, $str))
    {
        my $pos = index($expr, $letter);
        return if ($pos < 0);
        substr($expr, $pos, 1, '');
    }

    return 1;
}

    собирает из букв слова
    использовать совместно со словарем
    вот мой это индекс русского вики
    http://files.mail.ru/CNVUDS

    iliym, 31 Марта 2011

    Комментарии (0)

  8. Perl / Говнокод #6154

    −125

    1. 1
    2. 2
    3. 3
    4. 4
    use Date::Calc qw (Delta_Days);
use strict;
my $delta = Delta_Days(1601, 1, 1, 2008, 8, 12);
print "Delta is $delta\n";

    дни нашей жизни

    iliym, 31 Марта 2011

    Комментарии (0)

  9. PHP / Говнокод #6153

    +161

    1. 1
    2. 2
    $this->Object = Application::getObject();
$this->OBJECT = $this->Object->object;

    А Баден-Баден где-то в Европе...

    skubent, 31 Марта 2011

    Комментарии (1)

  10. JavaScript / Говнокод #6152

    +160

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    // NB: placing identical functions on both toggle events is required for proper functionality!
$("#manageButton").toggle(
	function () {
		$(this).toggleClass('current');
		$("#adminBar").slideToggle(50);
		$("#manageButtonIcon").attr("src", "/includes/images/icons/collapse.gif");
	},
	function () {
		$(this).toggleClass('current');
		$("#adminBar").slideToggle(50);
		$("#manageButtonIcon").attr("src", "/includes/images/icons/expand.gif");
	}
);

    С сайта luminous-landscape.com.

    sapegin, 31 Марта 2011

    Комментарии (0)