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

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

+127

1
2
3
4
5
6
7
8

val arr = new Array[Int](3)
val arr2 = arr

arr(0) = 100
arr(1) = 200
arr(2) = 300

//arr2 == Array(100, 200, 300)

Не говнокод конечно, хотя как посмотреть.

Это нормально, учитывая, что val предполагает неизменяемость значения, или в данном случае считается, что только присвоить новое значение нельзя, а изменять внутреннюю структуру массива можно как захочешь?

Ведь наже в C++ нельзя изменить значения const std::vector.

Fai, 01 Декабря 2012

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

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

+130

1
2
3
4
5
6

perft :: Int -> Position -> Int
perft depth pos 
	| depth <= 0 = 1
	| otherwise  = sum . map (perft $ depth - 1) $ legalPositions where
		legalPositions = filter isLegalPosition nextpositions
		nextpositions = map (\move -> makeMove move pos) $ (moves pos)

Fai, 28 Ноября 2012

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

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

+120

1
2
3
4
5
6

<style>
.pitalic {
    font-style:italic;
}
</style>
<p class = 'pitalic'>блаблабла</p>

прям новый супергерой...

Snickers, 25 Ноября 2012

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

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

+124

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

samples = [(1,14),(2,-66),(3,-414),(4,-1180),(5,-2370),(6,-3726),(7,-4606),(8,-3864),(9,270)]
 
-- Бесконечная система уравнений для МНК
system s = zip (matrix s) (column s) where
    matrix = iterate tail . foldr1 (zipWith (+)) . map (\(x,y) -> iterate (*x) 1)
    column = foldr1 (zipWith (+)) . map (\(x,y) -> iterate (*x) y)
 
-- Сведение бесконечной системы к треугольному виду (первый шаг гаусса)
triangle (eq:eqs) = (eq : triangle (map (sub eq) eqs)) where
    sub eq1@(a1:as, ae) eq2@(b1:bs, be) = (zipWith f as bs, f ae be) where
        f a b = b - a * b1 / a1
 
-- Вычисление иксов (второй шаг гаусса)
calcX n = foldr calc [] . take n where
    calc (a:as, b) xs = ((b - sum (zipWith (*) as xs)) / a : xs)
 
-- метод наименьших квадратов
mnk n = reverse . calcX n . triangle . system

Метод наименьших квадратов.

http://ideone.com/CsD0ku

bormand, 25 Ноября 2012

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

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

+125

01
02
03
04
05
06
07
08
09
10

splitOn :: (a -> Bool) -> [a] -> [[a]]
splitOn _ [] = []
splitOn f xs = removeEmpty $ takeWhile (not . f) xs: splitOn f (dropWhile (f) $ dropWhile (not . f) xs) where
	removeEmpty [] 	= []
	removeEmpty (x:xs) 
		| null x 	= removeEmpty xs 
		| otherwise = x: removeEmpty xs

words' :: String -> [String]
words' = splitOn (flip elem " \n\r\f\t\v\160")

Еще один words'

Fai, 25 Ноября 2012

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

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

+123

1

val ret = method.invoke(this, args:_*)

Превращаем Array[Any] в жабовый Object[] в Scala.

myaut, 23 Ноября 2012

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

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

+128

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

data Mode = Start | Read | Skip | End
data State = State Mode String String [String]

space c = elem c [' ', '\n', '\r', '\f', '\t', '\v', '\160']

end r     = State End "" "" r
skip t r  = State Skip t "" r
get t w r = State Read t w r
start t   = State Start t "" []

step (State Start at@(t:ts) w r)
	| space t   = step $ skip at r
	| otherwise = step $ get at w r

step (State Read at@(t:ts) w r)
	| space t   = step $ skip at $ r ++ [w]
	| otherwise = step $ get ts (w ++ [t]) r

step (State Skip at@(t:ts) _ r)
	| space t   = step $ skip ts r
	| otherwise = step $ get at "" r

step (State Start "" _ r) = step $ end r
step (State Read "" w r)  = step $ end $ r ++ [w]
step (State Skip "" _ r)  = step $ end r

step (State End _ _ r) = r

words' text = step $ start text

Решил все-таки выложить этот позор. Если есть предложения по улучшению - с радостью выслушаю.

Fai, 23 Ноября 2012

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

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

+117

1
2
3
4
5
6
7

data Pitch = Pitch Integer

pitch t o = Pitch (o*12 + t)

freq (Pitch p) = a4 * 2**(i/12) where
	i = fromIntegral (p - 57)
	a4 = 440

Fai, 20 Ноября 2012

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

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

+139

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

<div class="slogan">
  <table>
    <tbody>
      <tr>
        <td>В</td>
        <td class="r"> </td>
        <td>с</td>
        <td class="r"> </td>
        <td>ё</td>
        <td> </td>
        <td class="r"> </td>
        <td>ч</td>
        <td class="r"> </td>
        <td>т</td>
        <td class="r"> </td>
        <td>о</td>
        <td> </td>
        <td class="r"> </td>
        <td>д</td>
        <td class="r"> </td>
        <td>в</td>
        <td class="r"> </td>
        <td>и</td>
        <td class="r"> </td>
        <td>ж</td>
        <td class="r"> </td>
        <td>е</td>
        <td class="r"> </td>
        <td>т</td>
        <td class="r"> </td>
        <td>с</td>
        <td class="r"> </td>
        <td>я</td>
      </tr>
    </tbody>
  </table>
</div>

Разрядка слогана "ВСЁ ЧТО ДВИЖЕТСЯ" на motor.ru

Yurik, 18 Ноября 2012

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

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