1. Список говнокодов пользователя HaskellGovno

    Всего: 56

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

    +362

    1. 1
    http://www.crunchzilla.com/code-maven

    Визуальная новелла по манге JS

    HaskellGovno, 18 Августа 2016

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

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

    −14

    1. 1
    2. 2
    #collapse_me
test

    #collapse_me
    test

    HaskellGovno, 15 Августа 2016

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

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

    +103

    1. 1
    http://we.easyelectronics.ru/uploads/images/00/40/39/2016/05/16/ad076cf168.jpg

    HaskellGovno, 06 Августа 2016

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

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

    +127

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    let inline id a = a 
let inline const1 value _ = value
let inline applyNTimes f n s =
    let fs = Seq.init n <| const1 f
    let fa = Seq.fold (>>) id fs
    fa s

    HaskellGovno, 04 Мая 2014

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

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

    +126

    1. 1
    2. 2
    printfn "%A" <| [1,2,3,4,5].Length
printfn "%A" <| [1..5].Length

    F#
    http://ideone.com/A2DZPr

    HaskellGovno, 03 Мая 2014

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

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

    +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
    open System
 
let inline un激辛カレー<'a> (f:obj) (tuple:obj) =
  match tuple with
  | :? ('a * 'a * 'a) as tuple -> 
    let a , b , c = tuple
    match f with
    | :? ('a -> 'a -> 'a -> 'a) as f -> f a b c
    | _ -> failwith "type did not matched! 3"
  | :? ('a * 'a) as tuple ->
    let a,b = tuple
    match f with
    | :? ('a -> 'a -> 'a) as f -> f a b
    | _ -> failwith "type did not matched! 2"
  | :? 'a as tuple ->
    let a = tuple
    match f with
    | :? ('a -> 'a) as f -> f a
    | _ -> failwith "type did not matched! 1"
  | _ -> failwith "type did not matched! tuple"
 
printfn"%A"<| un激辛カレー<float> (fun x->x + 1.) 2.
printfn"%A"<| un激辛カレー<int> (+) (10,10)
printfn"%A"<| un激辛カレー<string> (fun (x:string) y z->x + y + z) ("How ","are ","you?")

    HaskellGovno, 03 Мая 2014

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

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

    +118

    1. 1
    f g l = hylo l (.) (\n -> (g, n-1)) (==0)

    Этот пример использует hylomorphism.
    Композируем функцию типа (.) g(l) пока не наступит n==0

    HaskellGovno, 04 Апреля 2014

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

  9. C++ / Говнокод #14189

    +16

    1. 1
    2. 2
    3. 3
    function<future<int> (int)> f = [](int a){ cout << a << '\n'; return mreturn(a + 6); };
int a = (mreturn(5) >>= f).get();
cout << a;

    HaskellGovno, 06 Декабря 2013

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

  10. Haskell / Говнокод #13849

    −94

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    sel :: Int -> Int -> Expr
sel i n = lam [pvar "x"] (caseE (var "x") [alt])
where alt :: Match
alt = simpleM pat rhs
pat :: Patt
pat = ptup (map pvar as)
rhs :: Expr
rhs = var (as !! (i-1)) -- !! is 0 based
as :: [String]
as = ["a"++show i | i <- [1..n] ]

    [quote]The code for sel is more verbose than that for printf because it
    uses explicit constructors for expressions rather than implicit ones.[/quote]
    Сообственно это все объяснение к данному коду:
    http://research.microsoft.com/en-us/um/people/simonpj/papers/meta-haskell/meta-haskell.pdf
    , так как и это все очень очевидно для автора, в то время как printf был и без объяснений очевиден даже мне. Автор хоть бы одно значение сокращения потрудился объяснить. Впрочем сокращениями стандартная библиотека хаскеля любит страдать...

    HaskellGovno, 24 Сентября 2013

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

  11. C++ / Говнокод #13446

    +3

    1. 1
    typedef std::vector/*deque recommended*/<index_history_item> index_history;

    Как понимать этот комментарий?

    HaskellGovno, 18 Июля 2013

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