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

Всего: 340

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

+138

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
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)

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

+135

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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)

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

+131

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
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)

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

+129

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
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)

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

+133

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
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)

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

+132

01
02
03
04
05
06
07
08
09
10
11
12
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)

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

+73

1

http://bnw.im/p/JCBN9N

https://bnw.im/u/j123123

j123123, 04 Мая 2014

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

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

+133

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
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)

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

+134

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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)

Си / Говнокод #15628

+136

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21

#include <stdio.h>
#include <inttypes.h>

inline uint8_t mid_ch (uint8_t a, uint8_t b, uint8_t res)
{
  if (b == 0){ if (a >= 2) return mid_ch (a-2, b  , res+1); else return res;}
  if (a == 0){ if (b >= 2) return mid_ch (a  , b-2, res+1); else return res;}
  return mid_ch (a-1, b-1, res+1);
}

uint64_t mid_0_ch (uint64_t a, uint64_t b)
{
  return mid_ch(a, b, 0);
}


int main(void)
{
  printf("%u %u", mid_0_ch (253, 123), (253+123)/2);
  return 0;
}

Нахождение среднего арифметического двух чисел через рекурсию. Сначала сделал для uint64_t чтобы это имело смысл, ведь сложение двух 64-битных чисел с записью результата в третье может привести к целочисленному переполнению (для 64-битных чисел, сложение которых может привести к переполнению, этот код работал чрезвычайно медленно, поэтому я ограничился 8-битными). При таком наркоманско-рекурсивном алгоритме этого переполнения не будет. 128-битные типы есть только как нестандартное расширение, но тогда еще возникает вопрос, как найди среднее арифметическое двух таких 128-битных чисел? А если есть 256-битные, то как тогда их них находить среднеарифметическое... ну и так далее.
Можно эту проблему еще решать через битовые маски т.е. убрать из обеих чисел самые старшие биты (предварительно сохранив их), сложить эти два числа, поделить на два, потом уже эти сохраненные биты вида 10000... или 0000... оба поделить на 2(сдвинуть на один разряд) и прибавить. Наркоманство какое-то.
Почему бы не сделать в С некий особый целочисленный тип, в котором любая фигня влезет, но который бы использовался только временно для промежуточных вычислений, чтобы не делать бэкапы битиков всяких?

j123123, 31 Марта 2014

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

Говнокод: по колено в коде.