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

    +124

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    import Control.Applicative
import Data.List
isSimple n | n > 0 = not $ or $ map (\n1 -> n `rem` n1 == 0) [2..n-1]
isNaturalAndSimple n = n > 0 && isSimple n
generateSource b e = map (flip replicate $ [b..e]) [2..]
splitAll = groupBy $ \_ _->False
splitedNumberRangesToNumberSequence l = foldl (liftA2 (++)) (head l) (tail l)
toNumberSequences = map $ splitedNumberRangesToNumberSequence . map splitAll
onlySimple = map $ filter $ isNaturalAndSimple . sum
main = print $ take 4 $ onlySimple $ toNumberSequences $ generateSource 2 3

    Запостил: HaskellGovno, 20 Февраля 2013

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

    • ava HaskellGovno 21.02.2013 10:29 # 0 

      import Control.Applicative
import Data.List
isSimple n | n > 0 = not $ or $ map (\n1 -> n `rem` n1 == 0) [2..n-1]
isNaturalAndSimple n = n > 0 && isSimple n
generateSource b e = map (flip replicate $ [b..e]) [2..]
splitAll = groupBy $ \_ _->False
splitedNumberRangesToNumberSequence l = foldl (liftA2 (++)) (head l) (tail l)
toNumberSequences = map $ splitedNumberRangesToNumberSequence . map splitAll
onlySimple = map $ filter $ isNaturalAndSimple . sum
main = do
    l a
    print a
    where
        a = concat $ onlySimple $ toNumberSequences $ generateSource 2 3 
        l t = do
                print $ take 100 t
                l $ drop 100 t

      Оптимизатор Хаскель не умеет определять unreachable code. В результате в этом примере используемая память бесконечно растет из-за того что компилятор держит голову списка, а вот если --print a закомментировать, то все как и говорил борманд: Не растет, тк сборщик мусора его собирает. ПС: Запускать на всяких онлайнкомпиляторах бесполезно, тк цил бесконечный
      Ответить

    • ava HaskellGovno 21.02.2013 13:39 # 0

      Так, я не понял! Говнокоды ниже на Хаскеле проминусовали, а этот посчитали говном. Почему? Написано идеально
      Ответить

      • ava roman-kashitsyn 21.02.2013 14:04 # +1

        > Написано идеально
        > foldl (liftA2 (++)) (head l) (tail l)
        ну ну
        Ответить

        • ava HaskellGovno 21.02.2013 15:06 # 0

          А что ты предлагаешь взамен? Ради этого места, а именно функции liftA2 даже splitAll написан
          Ответить

          • ava roman-kashitsyn 21.02.2013 15:20 # +2

            возьми тогда для начала foldl1
            Ответить

            • ava HaskellGovno 21.02.2013 18:12 # +1

              splitedNumberRangesToNumberSequence = foldl1 (liftA2 (++))
              Стало так. Больше говна не вижу.
              Ответить

              • ava guest 22.02.2013 03:16 # +3

                > generateSource b e = map (flip replicate $ [b..e]) [2..]
                tail $ iterate ([b..e]:) []

                > splitAll = groupBy $ \_ _->False
                map (:[])

                для затравки
                Ответить

                • ava HaskellGovno 22.02.2013 06:18 # 0

                  > tail $ iterate ([b..e]:) []
                  Этот код портит результат программы

                  Второй я даже понял и он работает.
                  Ответить

                  • ava guest 22.02.2013 12:34 # +1

                    > Этот код портит результат программы
                    ну не суть: tail -> drop 2, недоглядел

                    > Второй я даже понял и он работает.
                    а предлагаешь людям свой "читабельный" код, не стыдно ли?
                    по сабжу: (:[]) это return для списка / \x -> [x]

                    btw: or $ map .. это any, и в смысл кода целиком не вникал, очень вероятно, что можно переписать)
                    Ответить

    • ava HaskellGovno 22.02.2013 07:02 # 0 

      import Control.Applicative
import Data.List
isNaturalAndSimple n = (n > 0 && (not $ or $ map (\n1 -> n `rem` n1 == 0) [2..n-1]))
ifSumSimple b e = 
   map 
   ((filter $ isNaturalAndSimple . sum) .
      (foldl1 (liftA2 (++))) .
         (map $ map (:[])) .
            (flip replicate $ [b..e]))
               [2..]
main = print $ take 4 $ ifSumSimple 2 3
      Кто ликвидирует isNaturalAndSimple?
      Ответить

      • ava HaskellGovno 22.02.2013 07:13 # 0

        в isNaturalAndSimple && ликвидируется через &&&. Лямбда тоже легко, но вот как [2..n-1] в point free переписать... не знаю. стоп, нет же. лямбда тоже с кровью будет уходить... не ушла
        Ответить

      • ava guest 22.02.2013 13:53 # +3

        Вы реально из омска, если можете писать такую хуйню. Бредогенератор явно прокачен
        Ответить

        • ava 3.14159265 22.02.2013 14:05 # +5

          For Your Information
          Гумно ничего само не пишет.
          Оно даже бред берет чужой.
          Ответить

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