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

Всего: 56

Куча / Говнокод #11944

+129

1

arr <- return $ map (2*) lst

Я тут читал раздел на одном форуме по решению задач для школьников и наткнулся на такое говно.
- let?
- Не, не слышал.
Подозреваю, что автор не понял, что let нужно писать без in в монадах, чтобы скомпилировалось.

HaskellGovno, 17 Октября 2012

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

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

+28

1
2

std::size_t _;
std:size_t __;

http://ideone.com/Ie1AY

HaskellGovno, 13 Сентября 2012

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

Куча / Говнокод #11656

+119

1
2
3
4
5
6
7

> Наша фирма разрабатывает серьезный софт на CL, Scheme и
некоторых других языках. Но в последнее время в нашей продукции
часто стали находить эксплоиты (что-бы не пугать наших клиентов -
подробнее не скажу). Нам для LISP-подобных языков необходима
DEP (Data Execution Prevention). Есть ли подобные наработки в этой области?
Пока ничего побобного для языков этого семейства мы не находили и очень
расстроены сложившимися обстоятельствами.

Не мог ни запостить.

HaskellGovno, 27 Августа 2012

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

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

+39

1
2
3
4
5
6

extern const TSafeFloat Pi;//Не использовать до входа в main!!! Возможно она ещё не инициализированна!!!
//#define PI		3.14159265358979323846

#ifndef M_PI
                         #define M_PI		3.14159265358979323846
#endif

Форматирование сохранено. Файл PiConsts.h

HaskellGovno, 24 Августа 2012

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

Куча / Говнокод #11633

+115

1
2
3
4

-- Настало время запостить самое главное гавно Хаскеля:
-- http://www.johndcook.com/blog/2010/05/18/pure-functions-have-side-effects/
-- У чистых функций всегда есть side-effects, которые выражаются в пожирании памяти и CPU. 
-- Очевидно конечно, но почему об этом не орут на первой странице каждой книги по функциональному программированию?

Я проверил, код компилируется:
http://ideone.com/sozuV

HaskellGovno, 23 Августа 2012

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

C# / Говнокод #11630

+116

01
02
03
04
05
06
07
08
09
10
11
12
13

delegate β ƒ<α, β>(α x);
delegate α γ<α>(γ<α> f);
 
static ƒ<α, β> Y<α, β>(ƒ<ƒ<α, β>, ƒ<α, β>> f) {
  return new γ<ƒ<α, β>>(h => F => f(h(h))(F))(h => F => f(h(h))(F));
}

static ƒ<int, int> Fact(ƒ<int, int> fact) {
  return n => (n == 0) ? 1 : n * fact(n - 1);
}
...
var fact = Y<int, int>(Fact);
Console.WriteLine("fact(6) = {0}", fact(6));

HaskellGovno, 22 Августа 2012

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

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

+19

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

??=include <iostream>
 
template <typename T> class TSingleton: public T
??<
   public:
      static T& instance(void)
      ??<
         static T instance;
         return instance;
      ??>;
??>;
 
class TOscillStatisticko
??<
   protected:
        TOscillStatisticko(void):_countNewInSmallPool(0), _countDeleteInSmallPool(0) ??<??>;
        
        friend class TSingleton <TOscillStatisticko>;
 
   private:
      int _countNewInSmallPool;
      int _countDeleteInSmallPool;
 
   public:
      void addCountNewInSmallPool(void)
      ??<
         _countNewInSmallPool++;
      ??>
 
      int countNewInSmallPool(void)
      ??<
         return _countNewInSmallPool;
      ??>
??>;
 
typedef TSingleton <TOscillStatisticko> TOscillStatistic;
 
int main() 
??<
    TOscillStatistic::instance().addCountNewInSmallPool();
    std::cout<<TOscillStatistic::instance().countNewInSmallPool()<<std::endl;
    std::cout<<"ko"<<std::endl;
??>

http://ideone.com/dt9L9
Ладно, раз уж я так палюсь, то придется признаться: у меня просто сломалась клавиатура, потому сегодня пришлось написать немного странно...
Так вот вопрос:, почему, если закомментировать строку

friend class TSingleton <TOscillStatisticko>;

http://ideone.com/4WBGh

HaskellGovno, 20 Августа 2012

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

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

+20

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

#include <iostream>
#include <boost/noncopyable.hpp>
#include <assert.h>

using namespace std;

class noncopyable
  {
   protected:
      noncopyable() {}
     virtual ~noncopyable() {}
   private:  // emphasize the following members are private
      noncopyable( const noncopyable& );
      virtual const noncopyable& operator=( const noncopyable& )final = delete;
  };

class T: public noncopyable
{
public:
   const T& operator=( const T& ){return *this;}
};

int main() {
   T a;
   a=T();
   std::cout<<"kokoko"<<std::endl;
   return 0;
}

http://liveworkspace.org/code/15b5716e7618cc75a6881dfdd46982d5

В чем смысл =delete, если запретить копировать T все равно не удается? Или это ошибка не стандарта, а реализации gcc?

HaskellGovno, 20 Августа 2012

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

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

+23

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

%:include <iostream>
 
int main(int argc, char *argv<::>) 
<%
    if (argc > 1 and argv<:1:> not_eq '\0') <%
        std::cout << "Hello " << argv<:1:> << '\n';
    %>
    std::cout<<"ko"<<std::endl;
%>
 
 

??=include <iostream>
 
int main(int argc, char *argv??(??)) 
??<
    if (argc > 1 and argv??(1??) not_eq '\0') ??<
        std::cout << "Hello " << argv??(1??) << '\n';
    ??>
    std::cout<<"ko"<<std::endl;
??>

http://liveworkspace.org/code/150ad59b81b309bbffed963829f4fc9e
http://liveworkspace.org/code/c64104e4272af4d89f2f74c35c5c2ee3
Просто оставлю это здесь.

HaskellGovno, 20 Августа 2012

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

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

+24

1

masko xor_eq mask;

А вообще жаль, что эту дельфитню включили в стандарт.

HaskellGovno, 20 Августа 2012

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

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