1. bash / Говнокод #12198

    −108

    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
    # For bash and ksh, we can use faster builtin routines to do manipulation,
# otherwise (ash) fall back to slower method using `expr'.
# The extra level of indirection using `eval' is necessary a) for ksh, and
# b) to get past ash.

if [ "$RANDOM" != "$RANDOM" ]
then
    math () {
        eval echo "\$(($*))"
    }
    index () {  # index string c
        eval "I=\${1%$2*}"
        eval echo "\${#I}"
    }
    ...
else
    math () {
        expr "$@"
    }
    index () {  # index string c
        expr $1 : ".*$2" - 1
    }
    ...
fi

    Отличный способ определения шелла из старослакварского /dev/MAKEDEV.

    bormand, 26 Ноября 2012

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

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

    +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
    #include<stdio.h>
#include<math.h>
 
int main()
{
long long a1,a2,a3,a4,t,p,l,m1,m,d1,d2,d3,d4,c1,c2,c3,c4,n,r;
double po;
 
m=1000000006;
scanf("%lld",&t);
while(t--)
     {scanf("%lld",&n);
     a1=1;a2=1;a3=1;a4=0;
     d1=1;d2=0;d3=0;d4=1;
     
     p=n-2;
while(p>0)
     {    if(p%2!=0)
        { c1=((d1*a1)%m+(d3*a3)%m);
          c2=((d1*a2)%m+(d2*a4)%m);
          c3=((d3*a1)%m+(d4*a3)%m);
          c4=((d3*a2)%m+(d4*a4)%m);
          d1=c1;d2=c2;d3=c3;d4=c4;
        }
          c1=((a1*a1)%m+(a2*a3)%m);
          c2=((a1*a2)%m+(a2*a4)%m);
          c3=((a3*a1)%m+(a4*a3)%m);
          c4=((a3*a2)%m+(a4*a4)%m);
          a1=c1;a2=c2;a3=c3;a4=c4;
          p=p/2;
     }
 l=((d1*1)%m+(d2*1)%m)%m;m1=((d3*1)%m+(d4*1)%m)%m;
 
po=pow(2,l);
r=llrintl(po)%(m+1);
 
 
printf("%lld\n",r);
}
return 0;
   }

    Fai, 26 Ноября 2012

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

  3. Objective C / Говнокод #12196

    −1050

    1. 1
    2. 2
    3. 3
    - (void) closeApp {
   int closer = 1 / 0;
}

    Закрываем программу легкой арифметикой.
    Найдено в рабочем проекте.

    itruf, 25 Ноября 2012

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

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

    +120

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    <style>
.pitalic {
    font-style:italic;
}
</style>
<p class = 'pitalic'>блаблабла</p>

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

    Snickers, 25 Ноября 2012

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

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

    +124

    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
    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)

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

    +125

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 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)

  7. Python / Говнокод #12191

    −100

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    size = 3
lines = ["___", "bcd", "___"]
board = [[None]*size]*size
for x in range(0, size):
  for y in range(0, size):
    if lines[x][y] != '_':
      board[x][y] = lines[x][y]
print(board)

    я бы, очевидно, хотел видеть результат:
    [[None, None, None], ['b', 'c', 'd'], [None, None, None]]
    но питоша выводит:
    [['b', 'c', 'd'], ['b', 'c', 'd'], ['b', 'c', 'd']]

    serpinski, 24 Ноября 2012

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

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

    +133

    1. 1
    2. 2
    3. 3
    #include <math.h>
 ...
result = (thisCos ? cos : sin)(3.140);

    Коллега занимается инновациями в Сколково, так они там изобрели операцию NOT на континууме.

    serpinski, 24 Ноября 2012

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

  9. JavaScript / Говнокод #12189

    +161

    1. 1
    2. 2
    3. 3
    function toInt(number) {
    return number && + number | 0 || 0;
}

    http://ideone.com/igo7ag

    Минут 10 назад меня ошарашили фразой о методе toInt(), который, якобы, есть в javascript. Гугл выдал всего одну ссылочку, в которой говорится о нем: http://javascript.ru/forum/misc/22100-funkciya-toint-razyasnite-pozhalujjsta-neskolko-momentov.html. Увидев данный код, я просто не мог не выложить его сюда.

    bormand, 23 Ноября 2012

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

  10. Python / Говнокод #12188

    −94

    1. 1
    $class = (preg_match("/^[0-9]+$/", $i/2)) ? "cssBgHex0F0F0F" : "cssBgHexAFAFAF";

    ПХП-коллега выдал: подсветка чётных номеров строк :)

    serpinski, 23 Ноября 2012

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