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

    +136

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    public override int GetHashCode()
    {
      if (this.FileName == null)
      {
        return base.GetHashCode();
      }

      return this.FileName.GetHashCode() + 13;
    }

    почему 13?

    taburetka, 02 Января 2013

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

  2. 1C / Говнокод #12383

    −119

    1. 001
    2. 002
    3. 003
    4. 004
    5. 005
    6. 006
    7. 007
    8. 008
    9. 009
    10. 010
    11. 011
    12. 012
    13. 013
    14. 014
    15. 015
    16. 016
    17. 017
    18. 018
    19. 019
    20. 020
    21. 021
    22. 022
    23. 023
    24. 024
    25. 025
    26. 026
    27. 027
    28. 028
    29. 029
    30. 030
    31. 031
    32. 032
    33. 033
    34. 034
    35. 035
    36. 036
    37. 037
    38. 038
    39. 039
    40. 040
    41. 041
    42. 042
    43. 043
    44. 044
    45. 045
    46. 046
    47. 047
    48. 048
    49. 049
    50. 050
    51. 051
    52. 052
    53. 053
    54. 054
    55. 055
    56. 056
    57. 057
    58. 058
    59. 059
    60. 060
    61. 061
    62. 062
    63. 063
    64. 064
    65. 065
    66. 066
    67. 067
    68. 068
    69. 069
    70. 070
    71. 071
    72. 072
    73. 073
    74. 074
    75. 075
    76. 076
    77. 077
    78. 078
    79. 079
    80. 080
    81. 081
    82. 082
    83. 083
    84. 084
    85. 085
    86. 086
    87. 087
    88. 088
    89. 089
    90. 090
    91. 091
    92. 092
    93. 093
    94. 094
    95. 095
    96. 096
    97. 097
    98. 098
    99. 099
    100. 100
    Функция РазобратьКодыНеисправностей(СтрокаКодов, ТипКода)
	СпрКодов = СоздатьОбъект("Справочник.КодыГарантийныхНеисправностей");
	ГруппаТ1 = СпрКодов.НайтиПоКоду("0",0);
	ГруппаТ2 = СпрКодов.НайтиПоКоду("00",0);
	ГруппаТ3 = СпрКодов.НайтиПоКоду("000",0);
	Если СтрокаКодов <> "" Тогда
		Разд1 = Найти(СтрокаКодов, ";");
		Разд2 = Найти(Прав(СтрокаКодов,СтрДлина(СтрокаКодов) - Разд1), ";") + Разд1;
		Разд3 = Найти(Прав(СтрокаКодов,СтрДлина(СтрокаКодов) - Разд2), ";") + Разд2;
		Разд4 = Найти(Прав(СтрокаКодов,СтрДлина(СтрокаКодов) - Разд3), ";") + Разд3;
		Разд5 = Найти(Прав(СтрокаКодов,СтрДлина(СтрокаКодов) - Разд4), ";") + Разд4;
		Разд6 = Найти(Прав(СтрокаКодов,СтрДлина(СтрокаКодов) - Разд5), ";") + Разд5;
		Разд7 = Найти(Прав(СтрокаКодов,СтрДлина(СтрокаКодов) - Разд6), ";") + Разд6;
		Разд8 = Найти(Прав(СтрокаКодов,СтрДлина(СтрокаКодов) - Разд7), ";") + Разд7;
		Разд9 = Найти(Прав(СтрокаКодов,СтрДлина(СтрокаКодов) - Разд8), ";") + Разд8;
		Разд10 = Найти(Прав(СтрокаКодов,СтрДлина(СтрокаКодов) - Разд9), ";") + Разд9;
		Разд11 = Найти(Прав(СтрокаКодов,СтрДлина(СтрокаКодов) - Разд10), ";") + Разд10;
		Если ТипКода = "Т1" Тогда
			Если Разд1 > 1 Тогда
				СпрКодов.ИспользоватьРодителя(ГруппаТ1);
				Если СпрКодов.НайтиПоКоду("0/" + Лев(СтрокаКодов,Разд1-1),2)  = 1 Тогда 
					ПолучТ1 = СпрКодов.ТекущийЭлемент();
					Возврат ПолучТ1;
				КонецЕсли;
			КонецЕсли;
		ИначеЕсли ТипКода = "Т2" Тогда
			Если Разд2-Разд1 > 1 Тогда
				СпрКодов.ИспользоватьРодителя(ГруппаТ2);
				Если СпрКодов.НайтиПоКоду("00/" + Лев(Прав(СтрокаКодов, СтрДлина(СтрокаКодов) - Разд1), Разд2 - Разд1 - 1), 2) = 1 Тогда
					ПолучТ2 = СпрКодов.ТекущийЭлемент();
					Возврат ПолучТ2;
				КонецЕсли;
			КонецЕсли;
		ИначеЕсли ТипКода = "Т3_1" Тогда
			Если Разд3-Разд2 > 1 Тогда
				СпрКодов.ИспользоватьРодителя(ГруппаТ3);
				Если СпрКодов.НайтиПоКоду("000/" + Лев(Прав(СтрокаКодов, СтрДлина(СтрокаКодов) - Разд2), Разд3 - Разд2 - 1), 2) = 1 Тогда
					ПолучТ3_1 = СпрКодов.ТекущийЭлемент();
					Возврат ПолучТ3_1;
				КонецЕсли;
			КонецЕсли;
		ИначеЕсли ТипКода = "Т3_2" Тогда
			Если Разд4-Разд3 > 1 Тогда
				СпрКодов.ИспользоватьРодителя(ГруппаТ3);
				Если СпрКодов.НайтиПоКоду("000/" + Лев(Прав(СтрокаКодов, СтрДлина(СтрокаКодов) - Разд3), Разд4 - Разд3 - 1), 2) = 1 Тогда
					ПолучТ3_2 = СпрКодов.ТекущийЭлемент();
					Возврат ПолучТ3_2;
				КонецЕсли;
			КонецЕсли;
		ИначеЕсли ТипКода = "Т3_3" Тогда
			Если Разд5-Разд4 > 1 Тогда
				СпрКодов.ИспользоватьРодителя(ГруппаТ3);
				Если СпрКодов.НайтиПоКоду("000/" + Лев(Прав(СтрокаКодов, СтрДлина(СтрокаКодов) - Разд4), Разд5 - Разд4 - 1), 2) = 1 Тогда
					ПолучТ3_3 = СпрКодов.ТекущийЭлемент();
					Возврат ПолучТ3_3;
				КонецЕсли;
			КонецЕсли;
		ИначеЕсли ТипКода = "Т3_4" Тогда
			Если Разд6-Разд5 > 1 Тогда
				СпрКодов.ИспользоватьРодителя(ГруппаТ3);
				Если СпрКодов.НайтиПоКоду("000/" + Лев(Прав(СтрокаКодов, СтрДлина(СтрокаКодов) - Разд5), Разд6 - Разд5 - 1), 2) = 1 Тогда
					ПолучТ3_4 = СпрКодов.ТекущийЭлемент();
					Возврат ПолучТ3_4; 
				КонецЕсли;
			КонецЕсли;
		ИначеЕсли ТипКода = "Т3_5" Тогда
			Если Разд7-Разд6 > 1 Тогда
				СпрКодов.ИспользоватьРодителя(ГруппаТ3);
				Если СпрКодов.НайтиПоКоду("000/" + Лев(Прав(СтрокаКодов, СтрДлина(СтрокаКодов) - Разд6), Разд7 - Разд6 - 1), 2) = 1 Тогда
					ПолучТ3_5 = СпрКодов.ТекущийЭлемент();
					Возврат ПолучТ3_5;
				КонецЕсли;
			КонецЕсли;
		ИначеЕсли ТипКода = "Т3_6" Тогда
			Если Разд8-Разд7 > 1 Тогда
				СпрКодов.ИспользоватьРодителя(ГруппаТ3);
				Если СпрКодов.НайтиПоКоду("000/" + Лев(Прав(СтрокаКодов, СтрДлина(СтрокаКодов) - Разд7), Разд8 - Разд7 - 1), 2) = 1 Тогда
					ПолучТ3_6 = СпрКодов.ТекущийЭлемент();
					Возврат ПолучТ3_6; 
				КонецЕсли;
			КонецЕсли;
		ИначеЕсли ТипКода = "Т3_7" Тогда
			Если Разд9-Разд8 > 1 Тогда
				СпрКодов.ИспользоватьРодителя(ГруппаТ3);
				Если СпрКодов.НайтиПоКоду("000/" + Лев(Прав(СтрокаКодов, СтрДлина(СтрокаКодов) - Разд8), Разд9 - Разд8 - 1), 2) = 1 Тогда
					ПолучТ3_7 = СпрКодов.ТекущийЭлемент();
					Возврат ПолучТ3_7; 
				КонецЕсли;
			КонецЕсли;
		ИначеЕсли ТипКода = "Т3_8" Тогда
			Если Разд10-Разд9 > 1 Тогда
				СпрКодов.ИспользоватьРодителя(ГруппаТ3);
				Если СпрКодов.НайтиПоКоду("000/" + Лев(Прав(СтрокаКодов, СтрДлина(СтрокаКодов) - Разд9), Разд10 - Разд9 - 1), 2) = 1 Тогда
					ПолучТ3_8 = СпрКодов.ТекущийЭлемент();
					Возврат ПолучТ3_8; 
				КонецЕсли;
			КонецЕсли;
		ИначеЕсли ТипКода = "Т3_9" Тогда
			Если Разд11-Разд10 > 1 Тогда
				СпрКодов.ИспользоватьРодителя(ГруппаТ3);

    ещё один высер от автодилера.
    1. начнём сначала, там есть строки:
    ...
    ГруппаТ1 = СпрКодов.НайтиПоКоду("0",0);
    ..., обращаю внимание автора, что функция НайтиПоКоду не возвращает элемент справочника, она лишь говорит есть он или нет, для позиционирования на элементе не хватает строк типа ГруппаТ1 = СпрКодом.ТекущийЭлемент(); и т.д.
    2. дальше. в функцию передаётся параметр СтрокаКодов - это строка с запятыми в качестве разделителей. я конечно понимаю, что в 1С нет встроенной функции для получения массива частей строки типа split в java, но написать свою вообще не сложно, но видимо у автора не хватило мозг..., извините, времени.
    3. теперь смотрим на подобные (их несколько в функции) блоки кода типа:
    СпрКодов.ИспользоватьРодителя(ГруппаТ1);
    Если СпрКодов.НайтиПоКоду("0/" + Лев(СтрокаКодов,Разд1-1),2) = 1 Тогда
    ПолучТ1 = СпрКодов.ТекущийЭлемент();
    Возврат ПолучТ1;
    КонецЕсли;
    строка СпрКодов.ИспользоватьРодителя(ГруппаТ1); не имеет смысла, т.к. ГруппаТ1 содержит значение 1 (см. п.1), а не ссылку на элемент справочника, код работает только благодаря второму параметру - 2, т.к. он заставляет функцию НайтиПоКоду искать по всему справочнику, используя полный код.

    VladC, 02 Января 2013

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

  3. Perl / Говнокод #12382

    −103

    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
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    # save all blocks to %blocks. Replace first block with <block blockname />
	sub _parse_block {
		my $tag = $_[1];
		
		last unless $_[0]=~s#($tag->[0]block +([^ /]*?) *$tag->[1])((.*?)$tag->[0]/?block$tag->[1])#
				my($opentag,$source,$bname,$bcode, $retval) = ($1,$3, $2, $4, '');
				if( $bcode =~m|$tag->[0]block +[^ /]*? *$tag->[1]|){
					_parse_block($source, $tag);
					$retval =  $opentag.$source;
				}else{
					$retval = "$tag->[0]block $bname /$tag->[1]" unless exists $blocks{$bname};
					
					$bcode=~s%$tag->[0](:? |/)*parent(:? |/)*$tag->[1]%$blocks{$bname}%g;
					
					$blocks{$bname} = $bcode; 
				}
				$retval;
		#seg;
	}
	
	foreach my $tag( @{$self->{tag_symbols}} ){
		_parse_block($code,$tag) while(1);
	}

	
	
	#if <blockmode> turned on, delete all data that not in blocks until </blockmode> or end of code
	
	foreach my $tag( @{$self->{tag_symbols}} ){
		$code=~s%$tag->[0] *blocks?(?:mode?)? *$tag->[1](.*?)(?:(?:$tag->[0] *\/ *blocks?(?:mode?)? *$tag->[1])|(';#end of code))%
			$_ = $1; my $end_of_code = $2;
			my $retval;
			$retval .= $1 while( m/($tag->[0]block +[^ ]*? *\/.*?$tag->[1])/g ); 
			
			$retval.$end_of_code;
		%esg;
		#
	}
	
	
	# replace <block blockname /> with a code block
	foreach my $tag( @{$self->{tag_symbols}} ){
		while($code=~s|$tag->[0]block +([A-zА-я0-9_-]*?) */.*?$tag->[1]|$blocks{$1}|eg){};
	};

    Кусок шаблонизатора. Парсинг вложенных тегов регулярками.

    nyaknyan, 02 Января 2013

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

  4. Perl / Говнокод #12381

    −119

    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
    sub merge_data_struct { # to, from, bless coderefs as
	for(keys %{$_[1]}){
		if(ref($_[1]->{$_}) eq 'HASH'){
			merge_data_struct($_[0]->{$_},$_[1]->{$_},$_[2]) 
		}
		elsif(ref($_[1]->{$_}) eq 'CODE')
		{
			warn "Merge datastruct conflict at $_[2] - key $_" if $_[0]->{$_};
			$_[0]->{$_} = $_[1]->{$_};
			bless ($_[0]->{$_},$_[2]) if($_[2]);
		}
		else
		{
			$_[0]->{$_} = $_[1]->{$_};
		}
	}
}

    $_[]{}

    nyaknyan, 02 Января 2013

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

  5. Си / Говнокод #12380

    +137

    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
    GePolygon newPoly;
int c_ai = 0, n_pi = 0;
int fac[GE_MAX_POLY_VERTEX];
newPoly.n = 0;
    
Pt diff = ccpSub(end, bgn);
    
int f = 0;
do
   newPoly.p[newPoly.n] = ai[c_ai] == (n_pi - 1) ? (f = 1, a[c_ai++]) : (f = 0, inp->p[n_pi++]),
   fac[newPoly.n++] = f ? 0 : (ccpCross(ccpSub(newPoly.p[newPoly.n - 1], newPoly.p[newPoly.n - 2]), diff) > 0 ? 1 : -1 );
while(n_pi < inp->n);
if(c_ai < ac)
   newPoly.p[newPoly.n] = a[c_ai], fac[newPoly.n++] = 0;

    Из личной коллекции. Не помню, что конкретно делает, что-то вроде классификации точек полигона относительно линии...

    tirinox, 02 Января 2013

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

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

    +135

    1. 001
    2. 002
    3. 003
    4. 004
    5. 005
    6. 006
    7. 007
    8. 008
    9. 009
    10. 010
    11. 011
    12. 012
    13. 013
    14. 014
    15. 015
    16. 016
    17. 017
    18. 018
    19. 019
    20. 020
    21. 021
    22. 022
    23. 023
    24. 024
    25. 025
    26. 026
    27. 027
    28. 028
    29. 029
    30. 030
    31. 031
    32. 032
    33. 033
    34. 034
    35. 035
    36. 036
    37. 037
    38. 038
    39. 039
    40. 040
    41. 041
    42. 042
    43. 043
    44. 044
    45. 045
    46. 046
    47. 047
    48. 048
    49. 049
    50. 050
    51. 051
    52. 052
    53. 053
    54. 054
    55. 055
    56. 056
    57. 057
    58. 058
    59. 059
    60. 060
    61. 061
    62. 062
    63. 063
    64. 064
    65. 065
    66. 066
    67. 067
    68. 068
    69. 069
    70. 070
    71. 071
    72. 072
    73. 073
    74. 074
    75. 075
    76. 076
    77. 077
    78. 078
    79. 079
    80. 080
    81. 081
    82. 082
    83. 083
    84. 084
    85. 085
    86. 086
    87. 087
    88. 088
    89. 089
    90. 090
    91. 091
    92. 092
    93. 093
    94. 094
    95. 095
    96. 096
    97. 097
    98. 098
    99. 099
    100. 100
    #include <stdio.h>
#include <malloc.h>
#include <sys/time.h>
#include <pthread.h>

#define MAXPRIME 10000001
char sieve[MAXPRIME];

typedef struct {
    int id, min, max, step;
    unsigned long long result;
} Task;

void primes() {
    printf("Searching prime numbers ...\n");
    sieve[0] = sieve[1] = 1;
    for (int i=2; i<MAXPRIME; i++)
        sieve[i] = 0;
    int i = 2;
    while (1) {
        while (i<MAXPRIME && sieve[i])
            i++;
        if (i >= MAXPRIME)
            break;
        for (int j=i*2; j<MAXPRIME; j+=i)
            sieve[j] = 1;
        i++;
    }
}

double utime() {
    struct timeval tv;
    gettimeofday(&tv, NULL);
    return tv.tv_sec + tv.tv_usec / 1000000.0;
}

unsigned long long calc(int thread, int min, int max, int step) {
    unsigned long long sum = 0;
    double start = utime();
    int nextshow = max+1;
    for (int n=max; n>=min; n-=step) {
        if (!sieve[n]) {
            sum += 1;
            continue;
        }
        if (n <= nextshow && n > min) {
            double elapsed = utime() - start, eta = elapsed/(max-n)*(n-min);
            printf("Thread %d: current=%d elapsed=%lfs eta=%lfh\n", thread, n, elapsed, eta/3600);
            nextshow = n < 10000 ? 0 : n - 10000;
        }
        int b;
        asm("movl %1, %%ecx\n"
            "1: dec %%ecx\n"
            "movl %%ecx, %%eax\n"
            "imull %%eax\n"
            "idivl %1\n"
            "cmpl %%ecx, %%edx\n"
            "jnz 1b\n"
            "movl %%ecx, %0"
            : "=g"(b)
            : "r"(n)
            : "%eax", "%ecx", "%edx");
        sum += b;
    }
    return sum;
}

void * thread(void *arg) {
    Task *task = arg;
    printf("Thread %d: working from %d to %d step %d\n", task->id, task->min, task->max, task->step);
    task->result = calc(task->id, task->min, task->max, task->step);
    printf("Thread %d: partial result is %llu\n", task->id, task->result);
    return NULL;
}

int main() {
    primes();

    int threads = 4;
    int max = 10000000;
    pthread_t tid[10];
    Task tasks[10];

    for (int i=0; i<threads; i++) {
        tasks[i].id = i;
        tasks[i].min = 1;
        tasks[i].max = max-i;
        tasks[i].step = threads;
        pthread_create(&tid[i], NULL, thread, &tasks[i]);
    }

    unsigned long long sum = 0;
    for (int i=0; i<threads; i++) {
        pthread_join(tid[i], NULL);
        sum += tasks[i].result;
    }

    printf("Result: %llu\n", sum);
    return 0;
}

    Мое ужасное решение вот этой задачки: http://projecteuler.net/problem=407

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

    model name: Pentium(R) Dual-Core CPU E5400 @ 2.70GHz
    real 286m45.890s
    user 545m44.926s

    bormand, 01 Января 2013

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

  7. Куча / Говнокод #12377

    +84

    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
    >                          +
                          +++
                        +++++++
                     ++---[>++++++
                  +>+++++ +++ ++>++++
                         +++++
                       ++>++++++
                    +++++>+++++++++
               +++>+++>++ +++ +++>++++++
                         ++++>
                      +++++++++++
                  +>+++>+++++++++>+++
             +++++++>++++++++++>++++++++++
       +>+++><<<<<<<<<<<<<<<<-]>++>--->++>++>+>+
                         +>-->
                         +>->+
+>->+>--->++++>+++><<<<<<<<<<<<<<<<>.>.>.>.>.>.>.>.>.>.+
->.>.>.>.>.[-]++++++++++.>[-]<[>+++<-]>++.....>+++++++++
+[>+++++>+++++>+++++>+++++><<<<<-]>>-->->+><<<<<>.>.>.>.

    С новым 2013м годом!

    Пусть в новом году вас обойдут стороной индусизмы, баги и крестобатхерты,
    а красивые решения, чистый код и годные фичи не заставят себя ждать!

    bormand, 31 Декабря 2012

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

  8. C++ / Говнокод #12376

    +19

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    template<typename T>
static json_string _itoa(T val) json_nothrow {  
        /*...*/
        long value = (long)val;
    
        /*...*/
}

    Продолжаю бороться с поддержкой 64-битных чисел в libjson :/

    myaut, 30 Декабря 2012

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

  9. Pascal / Говнокод #12375

    +90

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    program Project1;
Var
  i,j : Integer;
begin
    i := 300001; j := 300002;
    asm
     MOV EAX, I;
     XCHG EAX,j
     MOV I, EAX;
    end;
    Write(i,' ',j); Readln;
end.

    Ещё один кулхацкерный метод перестановки значений двух чисел местами.

    Govnocoder#0xFF, 30 Декабря 2012

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

  10. C++ / Говнокод #12374

    +23

    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
    #include <iostream>
using namespace std;
 
class Class {
public:
    explicit Class(int a) : m_int(a) {}
    
    int get() const { return m_int; }
    
    void swapThis(int a) {
        delete this;
        Class **thisptr = reinterpret_cast<Class**>(&a);
        thisptr--;
        *thisptr = new Class(a);
        cout << "this: " << this << endl
             << "that: " << *thisptr << endl;
    }
private:
    int m_int;
};
 
int main() {
    Class *s = new Class(13);
    s->swapThis(42);
    cout << s->get() << endl;
    delete s;
    
    return 0;
}

    Что творит хакингкостылинг + инлайн методы.
    http://ideone.com/5Kyitw

    Elvenfighter, 29 Декабря 2012

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