1. Список говнокодов пользователя j123123

    Всего: 331

  2. Си / Говнокод #17821

    +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
    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 "mono-math.h"

#ifndef HAVE_SIGNBIT

int
mono_signbit_float (float x)
{
	union { float f; int i; } u;

	u.f = x;

	return u.i < 0;
}

int
mono_signbit_double (double x)
{
	union { double d; int i[2]; } u;

	u.d = x;

#if G_BYTE_ORDER == G_LITTLE_ENDIAN
	return u.i [1] < 0;
#else
	return u.i [0] < 0;
#endif
}

#endif

    Говно тут в том, что int далеко не везде будет 32 бит.
    https://github.com/mono/mono/blob/master/mono/utils/mono-math.c оттуда

    j123123, 19 Марта 2015

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

  3. Си / Говнокод #17804

    +138

    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
    #define poff    acurp + curp * (nSQs+2)        /*probs: offset*/
long psum() {return  c(poff+ 1);}    long pmax()    {return c(poff+2);}
long pn     (long n)                {return          c(poff+2+n);   }
void setp   (long n, long x){set    (poff+2+n, x);} /*prob changes:*/ 
void setmax         (long x){set    (poff+2,   x);} /*metasearching*/
void setsum         (long x){set    (poff+1,   x);}
long get2ndmax()    {long n= poff+2, x=pmax(), m=n,  s=0,end=n+nSQs;   
     do     {n++;}   while  (c(n) != x);  /*find 2nd-highest <=pmax*/     
     do     {m++;    if (s < c(m) && m !=n) s= c(m);}/*jue tncheck?*/
             while      (s < x    && m < end);       return  s;}
void addtoSQ(long i, long val) {long x;   /*increase prob of ith SQ*/
     if  (val < 1 || i >nSQs || i<1) return;        /*not possible!*/
     x =  psum()+val;if (x > maxint) return;   /*has max normalizer*/
     setsum (x);    /*normalizer +*/ x =  pn(i)+val; setp(i, x); 
     if (x > pmax()) setmax (x);}   /*maximal SQprob has increased */    
void subofSQ(long i, long val) {long x;   /*decrease prob of ith SQ*/
     if  (val < 1 || i >nSQs || i<1) return;        /*not possible!*/
     x =  pn(i)-val; if (x < 0)      return;/*no neg probabilities!*/
     setsum (psum()- val);           setp(i,x);/*don't check if =0!*/   
     if (x + val  == pmax()) setmax (get2ndmax());} /*change of max*/
void incSQ()        {long i= top();  addtoSQ(i,1);} /*top, not pop!*/
void decSQ()        {long i= top(),  x,y,z; /*decrem prob of the SQ*/
     if  (i> nSQs   || i< 1) return;/*no such search Q number known*/
     x =  pn(i);     if     (x==0)   return;        /*SQ: already 0*/
     y  = psum();    z =     pmax();              
     if  (x == 1 &&  y    <= z+1)    stop    /*leave at least 2 SQs*/
     if  (x == z)    setmax         (get2ndmax());  /*change of max*/
     setp(i, x-1);   setsum (y-1);}                 /*normalizer -1*/
long upSQ;          /*SQ probability:enumerator  +=  upSQ: increase*/
void oldSQ()   {long a=pop()+ndecl,  n,i; if(a<0||a> oldp)stop/*bad*/
     n=old[a].size;  a=old[a].start;/*all SQs of old nondecl: +upSQ*/
     tncheck  n+=a;  for(i=a;i<n;i++)addtoSQ(SQ[q[i].Q],     upSQ);}

void setpat()       {long i= pop(); /*instantiate my search pattern*/
     if  (i<0 || i > patp)     stop /*no such search pattern exists*/
     set (acurp,i);}/*next SQ-search defined via new probabilities!*/
void pupat()        {long    i  =    apatp;   /*push search pattern*/ 
     if  (i>maxpat)  stop    i++;    set(apatp,i);  /*not too many?*/
     cpabn  (poff+1, acurp + 1 + i *(2+ nSQs),       2 + nSQs,  
                                     acurp + 1,      aendpats);     }  
void popat()        {long i= apatp;  if(i==0)   stop
     set(apatp,i-1); push(i); }                /*pop search pattern*/

    Полный исходник http://www.idsia.ch/~juergen/oopscode.c

    j123123, 17 Марта 2015

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

  4. Си / Говнокод #16026

    +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
    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
    // Hammer the CFG with large numbers of overlapping variable scopes, which
// implicit destructors triggered at each edge.

#define EXPAND_BASIC_STRUCT(i) struct X##i { X##i(int); ~X##i(); };
#define EXPAND_NORET_STRUCT(i) struct X##i { X##i(int); ~X##i() __attribute__((noreturn)); };
EXPAND_BASIC_STRUCT(0000); EXPAND_NORET_STRUCT(0001);
EXPAND_BASIC_STRUCT(0010); EXPAND_BASIC_STRUCT(0011);
EXPAND_BASIC_STRUCT(0100); EXPAND_NORET_STRUCT(0101);
EXPAND_NORET_STRUCT(0110); EXPAND_BASIC_STRUCT(0111);
EXPAND_BASIC_STRUCT(1000); EXPAND_NORET_STRUCT(1001);
EXPAND_BASIC_STRUCT(1010); EXPAND_BASIC_STRUCT(1011);
EXPAND_NORET_STRUCT(1100); EXPAND_NORET_STRUCT(1101);
EXPAND_BASIC_STRUCT(1110); EXPAND_BASIC_STRUCT(1111);

#define EXPAND_2_VARS(c, i, x)  const X##i var_##c##_##i##0(x), &var_##c##_##i##1 = X##i(x)
#define EXPAND_4_VARS(c, i, x)  EXPAND_2_VARS(c, i##0, x);  EXPAND_2_VARS(c, i##1, x)
#define EXPAND_8_VARS(c, i, x)  EXPAND_4_VARS(c, i##0, x);  EXPAND_4_VARS(c, i##1, x)
#define EXPAND_16_VARS(c, i, x) EXPAND_8_VARS(c, i##0, x);  EXPAND_8_VARS(c, i##1, x)
#define EXPAND_32_VARS(c, x)    EXPAND_16_VARS(c, 0, x);    EXPAND_16_VARS(c, 1, x)

#define EXPAND_2_INNER_CASES(i, x, y)    INNER_CASE(i, x, y);             INNER_CASE(i + 1, x, y);
#define EXPAND_4_INNER_CASES(i, x, y)    EXPAND_2_INNER_CASES(i, x, y)    EXPAND_2_INNER_CASES(i + 2, x, y)
#define EXPAND_8_INNER_CASES(i, x, y)    EXPAND_4_INNER_CASES(i, x, y)    EXPAND_4_INNER_CASES(i + 4, x, y)
#define EXPAND_16_INNER_CASES(i, x, y)   EXPAND_8_INNER_CASES(i, x, y)    EXPAND_8_INNER_CASES(i + 8, x, y)
#define EXPAND_32_INNER_CASES(i, x, y)   EXPAND_16_INNER_CASES(i, x, y)   EXPAND_16_INNER_CASES(i + 16, x, y)

#define EXPAND_2_OUTER_CASES(i, x, y)    OUTER_CASE(i, x, y);             OUTER_CASE(i + 1, x, y);
#define EXPAND_4_OUTER_CASES(i, x, y)    EXPAND_2_OUTER_CASES(i, x, y)    EXPAND_2_OUTER_CASES(i + 2, x, y)
#define EXPAND_8_OUTER_CASES(i, x, y)    EXPAND_4_OUTER_CASES(i, x, y)    EXPAND_4_OUTER_CASES(i + 4, x, y)
#define EXPAND_16_OUTER_CASES(i, x, y)   EXPAND_8_OUTER_CASES(i, x, y)    EXPAND_8_OUTER_CASES(i + 8, x, y)
#define EXPAND_32_OUTER_CASES(i, x, y)   EXPAND_16_OUTER_CASES(i, x, y)   EXPAND_16_OUTER_CASES(i + 16, x, y)

    Рекурсивное (EXPAND_... ) макроговно из clang и генератор (EXPAND_..._STRUCT) структур через какую-то непонятную жопу
    https://github.com/llvm-mirror/clang/blob/master/INPUTS/cfg-nested-var-scopes.cpp

    j123123, 21 Мая 2014

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

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

    +131

    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
    #include <stdio.h>
#include <stdint.h>

#define ARR_L 11
#define INS_P (arr[0])
#define MOD_L(a) ((a) % ARR_L)
#define INS_P_M (MOD_L(INS_P))
#define ARR_ACS(a) (arr[MOD_L(a)]) //access to arr


void foo (uint8_t *arr)
{
  if (ARR_ACS(0) == 0)
  {
    printf("%u ", ARR_ACS(1));
    ARR_ACS(1) += ARR_ACS(2);
    ARR_ACS(0) = 1;
  }
  else
  {
    printf("%u ", ARR_ACS(2));
    ARR_ACS(2) += ARR_ACS(1);
    ARR_ACS(0) = 0;
  }

}

int main(void) {
  uint8_t arr[ARR_L] = {1,1,1,0,0,0,0,0,0,0,0};
  for (size_t a = 0; a < 13; a++)
  {
    foo(arr);
  }
  return 0;
}

    Считалка чисел Фибоначчи на основе фигни, придуманной в http://govnokod.ru/15967
    Надо сделать метаязык для удобного составления набора инструкций для этой штуки. И еще надо осилить длинную арифметику, ну это вообще круто будет

    j123123, 14 Мая 2014

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

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

    +129

    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
    #include <stdio.h>
#include <stdint.h>

#define ARR_L 11
#define INS_P (arr[0])
#define MOD_L(a) ((a) % ARR_L)
#define INS_P_M (MOD_L(INS_P))
#define ARR_ACS(a) (arr[MOD_L(a)]) //access to arr


void foo (uint8_t *arr)
{
  ARR_ACS(3) = INS_P * ARR_ACS(INS_P);
  ARR_ACS( MOD_L( INS_P_M + 1 ) ) = ((INS_P * INS_P) * 2);
  if (INS_P != 0) {ARR_ACS(INS_P_M)++;};
  INS_P = INS_P_M + 1;

  // tut voobche lubaya fignya, kotoraya chtoby izmenyala
  // figny v massive v zavisimosti ot sostoyania massiva
}

int main(void) {
  uint8_t arr[ARR_L] = {0,2,6,3,2,62,7,113,0,26,13};
  for (size_t a = 0; a < 10000; a++)
  {
    foo(arr);
    printf 
    (
      "%.3u %.3u %.3u %.3u %.3u "
      "%.3u %.3u %.3u %.3u %.3u %.3u\n",
      INS_P,arr[1],arr[2],arr[3],arr[4],
      arr[5],arr[6],arr[7],arr[8],arr[9],arr[10]);
  }
  return 0;
}

    Машина Тьюринга с лентой конечной длины - конечный автомат. Состояние обязательно зациклится, какие бы правила преобразования над конечным алфавитом мы не вводили и каким бы ни было начальное состояние ленты.

    В сишке есть возможности вменяемо сделать вывод чисел из массива подряд для N-ного количества аргументов?
    Цикл не предлагать

    j123123, 12 Мая 2014

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

  7. Си / Говнокод #15944

    +133

    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
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    #include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <unistd.h>

void my_char_plus(const void *a, const void *b, void *c)
{
  char tmp =  (*(char*)a + *(char*)b);
  memcpy(c,(void*)(&tmp),sizeof(char));
}

void my_char_minus(const void *a, const void *b, void *c)
{
  char tmp =  (*(char*)a - *(char*)b);
  memcpy(c,(void*)(&tmp),sizeof(char));
}



void operation(const void *funct(const void*,const void*,void*),
                      const void *a, const void *b, void *c )
{
  funct(a,b,c);
}

char ret_last_arg(const void *funct(const void*,const void*,void*),
                      const void *a, const void *b)
{
  char c;
  funct(a,b,(void*)&c);
  return c;
}



int main(void)
{

  char a, b;
  a = 5; b = 7;
  
  
  void *plus = &my_char_plus; char c;
  operation(plus, (const void*)&a, (const void*)&b, (void*)&c);
  printf("5 + 7 = %i\n", c);
  
  
  void *minus = &my_char_minus;
  char d = ret_last_arg(minus, (const void*)&a, (const void*)&b);
  printf("5 - 7 = %i\n", d);
  
  
// LISP LISP LISP
#define LISP(ar,aa,bb) ret_last_arg(ar, (const void*)&(char){aa}, (const void*)&(char){bb} )

  char e = LISP(plus,2,LISP(plus,2,2));
  printf("(+ 2 (+ 2 2 ) ) = %i\n", e);
  
  return 0;
}

    Лиспопрограммирование на сишке через макрос (префиксная запись)
    Только оно кривовато тут, т.е. получаем трехадресный код (не как в лиспе)
    http://masters.donntu.edu.ua/2006/fvti/svyezhentsev/library/article2.htm
    Можно делать интерпретаторы фигни всякой, шитый код. Я упорот короче

    j123123, 08 Мая 2014

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

  8. Си / Говнокод #15895

    +132

    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
    #include <stdio.h>

unsigned int mid (unsigned int a, unsigned int b)
{
	if (a > b) {unsigned int c = a; a = b; b = c;}
	for(; a < b; a--, b++) {;};
	return a;
}

int main(void) {
	printf("%u %u %u %u", mid(2,2), mid(3,2), mid(2,3), mid(3,3));
	return 0;
}

    Это я хочу найти середину. Где-то я туплю

    j123123, 04 Мая 2014

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

  9. C++ / Говнокод #15893

    +73

    1. 1
    http://bnw.im/p/JCBN9N

    https://bnw.im/u/j123123

    j123123, 04 Мая 2014

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

  10. Си / Говнокод #15707

    +133

    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
    #ifndef ORDER32_H
#define ORDER32_H

#include <limits.h>
#include <stdint.h>

#if CHAR_BIT != 8
#error "unsupported char size"
#endif

enum
{
    O32_LITTLE_ENDIAN = 0x03020100ul,
    O32_BIG_ENDIAN = 0x00010203ul,
    O32_PDP_ENDIAN = 0x01000302ul
};

static const union { unsigned char bytes[4]; uint32_t value; } o32_host_order =
    { { 0, 1, 2, 3 } };

#define O32_HOST_ORDER (o32_host_order.value)

#endif

    Говнокод из http://stackoverflow.com/questions/2100331/c-macro-definition-to-determine-big-endian-or-little-endian-machine
    Мало того, что писать в один тип из юниона и потом читать из другого это UB, так еще компилятор (в случае GCC) из

    int main(void)
    
{return O32_HOST_ORDER == O32_LITTLE_ENDIAN;}

    нагенерирует код
    main:
    
	xor	eax, eax
    
	cmp	DWORD PTR o32_host_order[rip], 50462976
    
	sete	al
    
	ret
    
o32_host_order:
    
	.byte	0
    
	.byte	1
    
	.byte	2
    
	.byte	3

    т.е. всякий раз, когда надо узнать endianess, мы лезем в константную статическую переменную и сравниваем ее с константой

    j123123, 08 Апреля 2014

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

  11. Си / Говнокод #15638

    +134

    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
    
/* A C statement or statements which output an assembler instruction
   opcode to the stdio stream STREAM.  The macro-operand PTR is a
   variable of type `char *' which points to the opcode name in its
   "internal" form--the form that is written in the machine description.

   GAS version 1.38.1 doesn't understand the `repz' opcode mnemonic.
   So use `repe' instead.  */

#undef ASM_OUTPUT_OPCODE
#define ASM_OUTPUT_OPCODE(STREAM, PTR)	\
{									\
  if ((PTR)[0] == 'r'							\
      && (PTR)[1] == 'e'						\
      && (PTR)[2] == 'p')						\
    {									\
      if ((PTR)[3] == 'z')						\
	{								\
	  fputs ("repe", (STREAM));					\
	  (PTR) += 4;							\
	}								\
      else if ((PTR)[3] == 'n' && (PTR)[4] == 'z')			\
	{								\
	  fputs ("repne", (STREAM));					\
	  (PTR) += 5;							\
	}								\
    }									\
  else									\
    ASM_OUTPUT_AVX_PREFIX ((STREAM), (PTR));				\
}

    Костыль из GCC. Ассемблер GAS версии 1.38.1 не переваривает мнемоники repz и repnz. Эта макрохрень перекодирует их в repe и repne соответственно
    https://github.com/mirrors/gcc/blob/master/gcc/config/i386/gas.h#L81

    j123123, 02 Апреля 2014

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