1. Куча / Говнокод #10330

    +119

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    s f g x = f x (g x)
k x y   = x
b f g x = f (g x)
c f g x = f x g
y f     = f (y f)
cond p f g x = if p x then f x else g x
fac  = y (b (cond ((==) 0) (k 1)) (b (s (*)) (c b pred)))

    HaskellGovno, 20 Мая 2012

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

  2. Куча / Говнокод #10329

    +116

    1. 1
    append x = foldr (map (:) x) id

    HaskellGovno, 20 Мая 2012

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

  3. Куча / Говнокод #10328

    +119

    1. 1
    2. 2
    import Control.Monad.Reader
head >>= (:)

    HaskellGovno, 20 Мая 2012

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

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

    +119

    1. 1
    foldr ((.) . (:)) id

    HaskellGovno, 20 Мая 2012

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

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

    +130

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

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

    -EZ-, 17 Мая 2012

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

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

    +126

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 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)

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

    +115

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 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)

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

    +131

    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
    #------------обрабатываем окончания 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)

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

    +128

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 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)

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

    +123

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 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)