Куча — Говнокод.ру

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

+126

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

ZipWith[f_, vector1_, vector2_] := Table[ f[ vector1[[i]], vector2[[i]] ], {i, Min[Length[vector1], Length[vector2]] } ]

UnZip[list_] := {Map[First, list], Map[Rest, list]}

Zip[vector1_, vector2_] :=  ZipWith[{#1, #2} &, vector1, vector2]
ZipWithIndex[vector_] := Zip[vector, Range[1, Length[vector]]]
ZipWithIndexed[f_, vector1_, vector2_] := Map[f @@ # &, Map[Flatten, Zip[vector1, ZipWithIndex[vector2]]]] 

Fold2[f_, initialState_, list1_ , list2_ ] := Fold[f @@ Prepend[#2, #1] &, initialState, Zip[list1, list2]]

ZipWith1[f_, {}, any_] := {}
ZipWith1[f_, any_, {}] := {}
ZipWith1[f_, {h1_, t1___}, {h2_, t2___}] := Prepend[ZipWith1[f, {t1}, {t2}], f[h1, h2]]; (*Extremal version, but recursion depth is 256 *)
 
GroupByIndex[list_, indexesOfGroup_] := (UnZip[#][[1]]) & /@ Gather[ZipWithIndex[list], (And @@ Map[(MemberQ[indexesOfGroup, #]) &, {#1[[2]], #2[[2]]}]) &]

Wolfram Mathematica

Говногость, 01 Февраля 2013

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

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

+116

1
2
3
4
5
6
7
8
9

//DELPHI
Hex:string

Hex:='FFF123'

for i to length (Hex)
StrToInt('$' + InttoHex(Ord(Hex[i]),2))
 
//Какую только хрень не изобретут люди, не удосужившиеся найти в справке HexToBin...

Действительно хорошая перекодировка.

Fruity418, 31 Января 2013

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

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

+125

1
2
3
4
5

EnumChildWindows function (Windows)
...
Return value
Type: BOOL
The return value is not used.

Никому не нужный бул. Неужели нельзя было написать The return value is TRUE, раз юзать void религия не позволяет?
Пруф: http://msdn.microsoft.com/library/windows/desktop/ms633494.

bormand, 31 Января 2013

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

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

+136

1
2
3
4
5
6
7

http://odnoklassniki.ru/dk
	?cmd=PopLayer
	&tkn=9739
	&st.cmd=error
	&st.stid=anonymPasswordRecovery
	&st.eclass=java.lang.IllegalStateException
	&st.layer.cmd=PopLayerSystemError

Парсер тоже видит ЭТО и предлагает положить в не «Кучу», а в «Java».

nsauk, 29 Января 2013

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

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

+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

.wrapper#container {
    background-color: #ffffff;
    border-style: hidden;
    -webkit-border-radius: 5px;
    -moz-border-radius: 5px;
    border-radius: 5px;
    -webkit-border-radius: 5px;
    -moz-border-radius: 5px;
    border-radius: 5px;
    -webkit-border-radius: 5px;
    -moz-border-radius: 5px;
    border-radius: 5px;
    -webkit-border-radius: 5px;
    -moz-border-radius: 5px;
    border-radius: 5px;
    margin: 0 auto 0;
    width: 672px;
    width: 672px;
    width: 672px;
    width: 672px;
    width: 672px;
    width: 672px;
    width: 672px;
    width: 672px;
    width: 672px;
    width: 672px;
    width: 672px;
    width: 672px;
    width: 672px;
    width: 672px;
    width: 672px;
    width: 672px;
    -webkit-box-shadow: 0 1px 5px rgba(0, 0, 0, 0.2);
    -moz-box-shadow: 0 1px 5px rgba(0, 0, 0, 0.2);
    box-shadow: 0 1px 5px rgba(0, 0, 0, 0.2);
    -webkit-box-shadow: 0 1px 5px rgba(0, 0, 0, 0.2);
    -moz-box-shadow: 0 1px 5px rgba(0, 0, 0, 0.2);
    box-shadow: 0 1px 5px rgba(0, 0, 0, 0.2);
    -webkit-box-shadow: 0 1px 5px rgba(0, 0, 0, 0.2);
    -moz-box-shadow: 0 1px 5px rgba(0, 0, 0, 0.2);
    box-shadow: 0 1px 5px rgba(0, 0, 0, 0.2);
    -webkit-box-shadow: 0 1px 5px rgba(0, 0, 0, 0.2);
    -moz-box-shadow: 0 1px 5px rgba(0, 0, 0, 0.2);
    box-shadow: 0 1px 5px rgba(0, 0, 0, 0.2);
    padding: 15px 20px 20px 30px;
}

Из сорса страницы Evernote, вообще там порядка 8к строк для 4 дивов....

nonamez, 28 Января 2013

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

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

+130

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

import std.stdio; 
class Parent{ } 
class Another{ } 
class Child: Parent
{
  Another data;
  alias data this;  
  this()
  {
  data = new Another;
  }
}
 void test(Parent t){writeln("Parent: ", t);}
 void test(Another t){writeln("Another: ", t);}
 void main() { 
    auto Me = new Child();    
    test(Me);
}

Интуитивного свежачка вам.
http://ideone.com/qEDzz
http://ideone.com/9mB8S

LispGovno, 27 Января 2013

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

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

+124

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

buildTree sentence graph =
    (M.lookup (0, length sentence - 1, DirLeft) finalGraph, finalGraph)
    where finalGraph = execState runEisner (M.fromList elementaryPathes)
          elementaryPathes =
             map (\(i, word) -> ((i, i, DirLeft), elementaryPath DirLeft word)) indexed ++
             map (\(i, word) -> ((i, i, DirRight), elementaryPath DirRight word)) indexed
          indexed = zip [0..] sentence

          runEisner = do
              let len = length sentence
              forM_ [1 .. len - 1] $ \l -> do
                  forM [0 .. len - 1 - l] $ \i -> do
                      matrix <- get
                      let j = i + l
                      let w1 = sentence !! i
                      let w2 = sentence !! j

                      let buildConcat dir = (catMaybes $ (zipWith (\p1 p2 -> join $ (liftM2 concatenatePath) p1 p2)
                                            [M.lookup (i, k, dir) matrix | k <- [i + 1 .. j - 1]]
                                            [M.lookup (k, j, dir) matrix | k <- [i + 1 .. j - 1]])) :: [Path]

                      let buildJoin dir key = fromMaybe [] $ M.lookup key graph >>= \link ->
                                              return (catMaybes (zipWith (\p1 p2 -> join $ (liftM2 (\f c -> joinPath f c link)) p1 p2)
                                              [M.lookup (i, k, dir) matrix | k <- [i .. j - 1]]
                                              [M.lookup (k, j, rev dir) matrix | k <- [i + 1 .. j]]))

                      let posR = (buildConcat DirRight ++ buildJoin DirRight (w1, w2)) :: [Path]

                      let newMatrix = if (not . null) posR
                                          then M.insert (i, j, DirRight) (minimumBy compWeight posR) matrix
                                          else matrix

                      let posL = buildConcat DirLeft ++ buildJoin DirRight (w2, w1)

                      let newMatrix' = if (not . null) posL
                                           then M.insert (i, j, DirLeft) (minimumBy compWeight posL) matrix
                                           else newMatrix

                      put newMatrix'

Кусок из диплома по NLP. Yuuri неделю как познал монаду State и сделал двумерный императивный цыкл.

Yuuri, 25 Января 2013

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

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

+129

1
2
3
4
5
6
7
8

> echo 1 >1.cp
> echo 1 >1.cpp
> echo 1 >1.cppp
> dir /b *.cp
1.cp
> dir /b *.cpp
1.cpp
1.cppp

Баг в FindFirstFile/FindNextFile, показан на виндовом dir для простоты демонстрации. Призрак DOS'а жив даже в семерке...

bormand, 18 Января 2013

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

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

+121

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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91

#Creates an array with the frequencies from C2 to C5, 37 notes in all
for j from 1 to 37
	if j = 1 
	notes [j] = 65.41 # лёгкие пути не нужны
	endif
	if j = 2
	notes [j] = 69.30
	endif
# ...дальше понятно...
endfor

# <...>

#Determining whether or not the scale contains C
#This determines how many notes of the 37 possible must be included.
noCList [1] = 3 # опа, а вот тут уже научились числовые индексы использовать
noCList [2] = 5
noCList [3] = 7
noCList [4] = 10
noCList [5] = 12
noC = 0
for n from 1 to 5
	if 'starter' = noCList['n']
		noC = 1
	endif
endfor
#If there is a C...
if noC = 0
#The for loop mathematically selects the scale notes to use
for m from 1 to 22
	if 'm' = 1
		noteind = 'starter'
	endif
	if 'm' = 2
		noteind = 'starter' + 2
		if 'noteind' > 37
			noteind = 'noteind' - 36
		endif
	endif
# ...ага-ага...
	scalenotes ['m'] = notes['noteind']
endfor
#If there is not a C...
else
for m from 1 to 21
	if 'm' = 1
		noteind = 'starter'
	endif
	if 'm' = 2
		noteind = 'starter' + 2
		if 'noteind' > 37
			noteind = 'noteind' - 36
		endif
	endif
# ...так точно...
	scalenotes ['m'] = notes['noteind']
endfor
endif

# <...>

#Add new pitch information
#For each point, we move the freq to the closest scale note
for q from 1 to 'numPoints'
	#The original freq of pitch
	currentfreq = pitches['q']
	#A starting threhold for difference between original and a musical note
	diff = 50
	#If there is C in the scale, making 22 possible notes to tune to...
	if 'noC' = 0
	#For loop finds the lowest difference between original pitch and a musical note
	for c from 1 to 22
		diff2 = abs('currentfreq' - scalenotes['c'])
		if 'diff2' < 'diff'
			diff = 'diff2'
			noteindex = 'c'
		endif
	endfor
	#Otherwise if there is not a C...
	else
	for c from 1 to 21
		diff2 = abs('currentfreq' - scalenotes['c'])
		if 'diff2' < 'diff'
			diff = 'diff2'
			noteindex = 'c'
		endif
	endfor
	endif
	#Add point at the original time with the new pitch
	Add point... times['q'] scalenotes['noteindex']
endfor

http://schyzm.wordpress.com/2012/12/05/fun-with-praat-a-script-for-auto-tune/
Скрипт питч-коррекции для речевого анализатора Praat на встроенном языке сценариев. Не знаю, это афтар так жжот или язык располагает к черезжопию, но что-то тут воняет однозначно.

telnet, 17 Января 2013

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

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

+127

1
2
3
4

<select name="animals">
		<option value="1" addTags="<div class='kv'></div>">Медведь</option>
		<option value="2" addTags="<input type='checkbox' />">Волк</option>
</select>

html в js - это прошлый век =)
http://www.xiper.net/collect/html-and-css-tricks/verstka-form/nice-select-jquery.html

RedMonkey, 14 Января 2013

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

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