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

    +137

    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
    {- Haskell -}
bruteforceGeneratorWithEasySimplication :: Description d => d -> [StandartTable]
bruteforceGeneratorWithEasySimplication description =
    let width = size_h description; height = size_v description; vHeader = headerV description in
        do
            table <- genListBasedOn (map lineVariants vHeader)
            return (ST table)
    where
        lineVariants :: [Int] -> [[Bool]]
        lineVariants headerLine = let
            всё_я_задолбался_однако = True -- K.O.
            количество_цельных_блоков = length headerLine
            число_промежутков = количество_цельных_блоков - 1
            число_свободных_пробелов_которые_нам_нужно_распихать_между_цельными_блоками = ширина_поля - суммарная_длина_цельных_блоков
            ширина_поля = size_h description
            суммарная_длина_цельных_блоков = sum headerLine
            
            возможная_строка_использующая :: [Int] -> [Bool]
            возможная_строка_использующая разбиение = replicate (head разбиение) False ++ 
                concat (zipWith (\x y -> replicate y True ++ replicate x False) (tail разбиение) headerLine)
            
            и = and
            по = undefined
            
            in do
                разбиение <- получить_разбиение_для_строки по (число_свободных_пробелов_которые_нам_нужно_распихать_между_цельными_блоками) и (число_промежутков)
                return (возможная_строка_использующая разбиение :: [Bool])

получить_разбиение_для_строки по числу_свободных_элементов и числу_промежутков = do ...

    Из раннего.

    По-видимому, задолбался писать на тарабарщине, захотелось выражаться родными русскими словами.

    Запостил: Jean-Esther, 16 Сентября 2012

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

    • ava movaxbx 16.09.2012 20:10 # +11

      Haskell Бухгалтерия v8.0
      Ответить

    • ava LispGovno 16.09.2012 20:13 # −1

      Это не я.
      Ответить

      • ava Jean-Esther 16.09.2012 21:35 # −1

        Судя по Вашему нику, Ваши говнокоды насыщены провокационным духом.
        Этот же код вполне рабочий. Даже можно понять, что происходит.

        Ещё, http://habrahabr.ru/post/149945/ решается задача подобным образом. Там всё кратко, понятно. Я б даже сказал, красиво.
        Ответить

        • ava LispGovno 16.09.2012 22:43 # +3

          >Ваши говнокоды насыщены провокационным духом.
          О, это вы ещё моих братьев-акробатьев не видели.
          Ответить

    Добавить комментарий