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

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

+3

1
2
3
4
5

Вакансия: Программист Java
Требования:
    ....
    знание компьютерных программ: Java, pl/sql, Eclipse, Oracle Repotrs приветствуется;
    ....

Не совсем то, но не мог пройти мимо.

-EZ-, 17 Мая 2012

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

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

+4

1
2
3
4
5
6

IF NOT SY-SUBRC IS INITIAL.
*  Do nothing
ELSE.
*  MESSAGE 'Дебитор не найден'(040) TYPE 'S' DISPLAY LIKE 'E'. 
*  Do nothing xD
ENDIF.

Пускай всё идёт своим чередом ^_^

niko, 15 Мая 2012

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

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

−7

1
2
3
4
5
6
7
8
9

count c l = length $ filter (c==) l
 
main = do 
        l <- getLine
        let
                f = count '(' l
                s = count ')' l
        in
        print $ f s (f==s)

Посоны, как смешивать монадический код и не монадический?
http://ideone.com/yRGDk
Чистый код let in не хочет в монду.

HaskellGovno, 14 Мая 2012

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

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

+6

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

#------------обрабатываем окончания html-------------
RewriteEngine on
Options +FollowSymlinks
RewriteBase /
RewriteRule ^([A-Za-z0-9-]+)/(.*).html?$ /$1/$2 [NC,L]
RewriteRule ^(.*).html?$ /$1 [NC,L]

<IfModule mod_charset.c>
CharsetRecodeMultipartForms off
</IfModule>
#------------разбор URL для админки------------------
RewriteEngine on
RewriteRule ^([a-zA-Z0-9_-]+).html$ ([a-zA-Z0-9_-]+) [L]
RewriteRule ^([a-zA-Z0-9_-]+)/*([a-zA-Z0-9_-]*)/*([a-zA-Z0-9_-]*)/*([a-zA-Z0-9_-]*)/*([a-zA-Z0-9_-]*)/*([a-zA-Z0-9_-]*)/*([a-zA-Z0-9_-]*)/*([a-zA-Z0-9_-]*)/*([a-zA-Z0-9_-]*)$ /index.php?%{QUERY_STRING}&param[0]=$1&param[1]=$2&param[2]=$3&param[3]=$4&param[4]=$5&param[5]=$6&param[6]=$7&param[7]=$8&param[8]=$9

Apache .htaccess
Смотрите сами :D

oooZinka, 14 Мая 2012

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

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

+5

1
2
3
4
5
6

<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>По колено в коде —  Говнокод.ру</title>

<!-- Пару десятков строчек спустя -->

<li><script type="text/javascript" src="http://reformal.ru/tab.js?title=%C3%EE%E2%ED%EE%EA%EE%E4.%F0%F3%3A+%EF%EE+%EA%EE%EB%E5%ED%EE+%E2+%EA%EE%E4%E5&amp;domain=govnokod&amp;color=adadad&amp;align=left&amp;charset=cp1251&amp;ltitle=%CE%F2%E7%FB%E2%FB&amp;lfont=Verdana, Geneva, sans-serif&amp;lsize=11px&amp;waction=0&amp;regime=1"></script></li>

Чтобы решить проблему с кодировкой - нужно просто поменять charset=cp1251 на charset=utf8, вестимо.
Но страйко который год не может.

7ion, 13 Мая 2012

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

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

+1

1
2
3
4
5
6

import Data.Array.IO
main = do arr <- newArray (1,10) 37 :: IO (IOArray Int Int)
          a <- readArray arr 1
          writeArray arr 1 64
          b <- readArray arr 1
          print (a, b)

Вот такое вот говно приходится терпеть, если хочешь работать в хаскеле с массивами. Дальше будет только нос закрывай. To be continued...

HaskellGovno, 11 Мая 2012

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

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

+1

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

minChunksSize=1000.0 -- 100.0
 
facbig :: Integer -> Integer
facbig n = 
        let 
                divisionProportion = 0.9 -- 2.0/3.0
                amountOfChunk = truncate $ logBase divisionProportion $ minChunksSize/fromIntegral n
                proportions = map (divisionProportion^) [amountOfChunk, amountOfChunk-1 .. 1]
                centralChunkResults = map product [
                        let
                                begin = proportionToItemNumber 1 beginRangeProportion
                                end = proportionToItemNumber 0 endRangeProportion
                        in
                        [begin..end] | (endRangeProportion, beginRangeProportion) <- zip proportions $ tail proportions ]
                beginChunkResult = product [1 .. proportionToItemNumber 0 $ last proportions]
                endChunkResult = product [proportionToItemNumber 1 $ head proportions .. n]
        in product $ beginChunkResult:endChunkResult:centralChunkResults
        where
                proportionToItemNumber shift proportion =
                        shift + truncate ((1.0-proportion)*fromIntegral n)
 
fac n = if n <= (truncate $ 3.0*minChunksSize)
        then product [1..n]
        else facbig n
 
main = print $ length $ show $ fac 100000

Вот так вот школота считают число цифр в факториале числа.

HaskellGovno, 10 Мая 2012

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

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

+5

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

<table border="0" id="table" width="800" align="center">
<tr><td colspan="5" align="center">Ваш заказ:</td></tr>

<? $query=mysql_query("Select * from `$name`");
for ($c=0; $c<mysql_num_rows($query);$c++){
?><?
$result=mysql_fetch_array($query);
$a=$result['menu_id'];
$query1=mysql_query("SELECT * FROM menu WHERE id=$a");
$result1=mysql_fetch_array($query1);
?>

<tr><td width="50"><? echo $c+'1'; ?></td><td width="50" align="center"><img src="img/tira.png" style="height:20px; width:20px;"/></td><td><? echo $result1['name'];?></td><td><a href="#">-</a><input type="text" min="1" value="<? echo $result['count'];?>" max="40" size="2" /><a href="#" onclick="up()">+</a></td><td>удалить</td></tr>
<script language="javascript" type="application/javascript">
var a=parseInt("<? echo $result['count'];?>");
function up(){
var b = a + 1;
document.write(b);
}
</script>
<?
}
?>

"Создаю корзину покупателя! Формирую таблицу выбранных пользователем товаров и его кол-во в цикле! добавил функцию на OnClick с выводом значение в ячейке! при нажатии выводит только значение последнего товара из цикла." Слов нет.

zloirock, 06 Мая 2012

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

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

−3

01
02
03
04
05
06
07
08
09
10
11

data (,) a b = (,) a b
    deriving Generic
data (,,) a b c = (,,) a b c
    deriving Generic
data (,,,) a b c d = (,,,) a b c d
    deriving Generic
.......
data (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) a b c d e f g h i j k l m n o p q r s t u v w x y z a_ b_ c_ d_ e_ f_ g_ h_ i_ j_ k_ l_ m_ n_ o_ p_ q_ r_ s_ t_ u_ v_ w_ x_ y_ z_ a__ b__ c__ d__ e__ f__ g__ h__ i__ j__
 = (,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,) a b c d e f g h i j k l m n o p q r s t u v w x y z a_ b_ c_ d_ e_ f_ g_ h_ i_ j_ k_ l_ m_ n_ o_ p_ q_ r_ s_ t_ u_ v_ w_ x_ y_ z_ a__ b__ c__ d__ e__ f__ g__ h__ i__ j__
    -- deriving Generic
{- Manuel says: Including one more declaration gives a segmentation fault.

Вот такая вот реализация туплов:
http://www.haskell.org/ghc/docs/7.4.1/html/libraries/ghc-prim-0.2.0.0/src/GHC-Tuple.html

bormand, 05 Мая 2012

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

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

+4

1

http://www.haskell.org/hoogle/?hoogle=%60

:P

wvxvw, 05 Мая 2012

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

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