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

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

+119

1

foldr ((.) . (:)) id

HaskellGovno, 20 Мая 2012

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

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

+130

1
2
3
4
5

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

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

-EZ-, 17 Мая 2012

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

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

+126

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, 14 Мая 2012

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

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

+115

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

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

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

+131

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

+128

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

+123

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

+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

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

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

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

+123

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)

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

+117

1

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

:P

wvxvw, 05 Мая 2012

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

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

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

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

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

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

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

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

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

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

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

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