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

    +126

    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
    ZipWith[f_, vector1_, vector2_] := Table[ f[ vector1[[i]], vector2[[i]] ], {i, Min[Length[vector1], Length[vector2]] } ]

UnZip[list_] := {Map[First, list], Map[Rest, list]}

Zip[vector1_, vector2_] :=  ZipWith[{#1, #2} &, vector1, vector2]
ZipWithIndex[vector_] := Zip[vector, Range[1, Length[vector]]]
ZipWithIndexed[f_, vector1_, vector2_] := Map[f @@ # &, Map[Flatten, Zip[vector1, ZipWithIndex[vector2]]]] 

Fold2[f_, initialState_, list1_ , list2_ ] := Fold[f @@ Prepend[#2, #1] &, initialState, Zip[list1, list2]]

ZipWith1[f_, {}, any_] := {}
ZipWith1[f_, any_, {}] := {}
ZipWith1[f_, {h1_, t1___}, {h2_, t2___}] := Prepend[ZipWith1[f, {t1}, {t2}], f[h1, h2]]; (*Extremal version, but recursion depth is 256 *)
 
GroupByIndex[list_, indexesOfGroup_] := (UnZip[#][[1]]) & /@ Gather[ZipWithIndex[list], (And @@ Map[(MemberQ[indexesOfGroup, #]) &, {#1[[2]], #2[[2]]}]) &]

    Wolfram Mathematica

    Запостил: Говногость, 01 Февраля 2013

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

    • ava guest 01.02.2013 10:52 # +1

      омск
      Ответить

    • ava guest 01.02.2013 12:25 # +5

      Омг. Хаскель добрался до математиков!
      Ответить

      • ava guest 01.02.2013 12:42 # +2

        Добрался? Они же его и придумали
        Ответить

        • ava absolut 01.02.2013 12:55 # +6

          Франкенштейн добрался до своего создателя
          Ответить

          • ava TarasB 01.02.2013 14:39 # 0

            Доктор, доктор, я ваш гормональный мутант, доктор.
            Ответить

        • ava guest 01.02.2013 18:52 # 0

          Не, математики не любят Хаскелль. Это миф. Только если псевдоматематики с их ложными рекурсивными богами.
          Ответить

          • ava roman-kashitsyn 01.02.2013 21:55 # +2

            Математики и физики любят FORTRAN 77 и сишечку, это факт. Во всяком случае те из них, которые умеют пользоваться компьютером.
            Ответить

            • ava defecate-plusplus 01.02.2013 22:01 # +2

              программу на фортране можно написать на любом языке (с)
              Ответить

              • ava LispGovno 02.02.2013 14:46 # −1

                Математики пишут свои расчеты на матлабе. Остальные матпакеты для школьниц.
                Ответить

          • ava LispGovno 02.02.2013 15:04 # −4

            Плюсую. Математики не используют хаскель просто потому, что он не удобен для расчетов, а ещё и тормозит. Ну что значит язык, в котором не работает мутабильный массив в немутабильной среде (DiffArray)? Такой язык хорошо подойдет для развлекающегося школьника-девственника, но не более. Если ему нужно трахать бабу, то с таким языком это не получится, так как максимум затрахаешь мамку и получишь борщ, а не деньги. В то время как твои собратья С++-альфачи уже выебут и не одну девственицу.
            Регулярно слышу, как хаскелисты себя называют математиками, но на самом деле хаскель - дешевый способ примазаться к области математики. Ведь для этого то всего лишь достаточно быть школьником и знать пару монад и всё - ты уже математик. Но не попадайтесь на эту удочку пасаны. Чтобы бы быть математиком, нужно знать весь курс матанализа, линейной алгебры, теории оптимизации, статистика, системы уравнений с частными производными и много много всего остального. Я считаю, если ты написал пару рекурсивных функций, но не знаешь всех этих разделов математики, то 265!
            Ответить

    • ava HaskellGovno 01.02.2013 15:36 # −1

      Хаскелл отаке!
      Ответить

    • ava guest 01.02.2013 18:50 # 0

      А в масематике своих штоли функций внешнего порядка нет?
      Ответить

    • ava guest 01.02.2013 18:53 # 0

      Сколько всяких закорючек. Я ничего прочитать не могу почти. Только UnZip понял.
      Ответить

    • ava Говногость 01.02.2013 18:55 # 0

      GroupByIndex работал не всегда верно. Поправил и стало так:
      inIndexGroup[indexesOfGroup_, pairOfIndexes_] := Or @@ Map[(And @@ Map[(MemberQ[pairOfIndexes, #]) &, #]) &, indexesOfGroup]
GroupByIndex[list_, indexesOfGroup_] := (UnZip[#][[1]]) & /@ Gather[ZipWithIndex[list], (inIndexGroup[indexesOfGroup, {#1[[2]], #2[[2]]}]) &]
      Ответить

      • ava LispGovno 02.02.2013 14:45 # +1

        Ты из говнокода сделал ещё больше говнокода.
        Ответить

    • ava roman-kashitsyn 01.02.2013 21:56 # +3

      Увидел Zip UnZip подумал, зачем из математики работать с архиватором, потом дошло
      Ответить

      • ava LispGovno 01.02.2013 22:07 # −1

        http://zvon.org/other/haskell/Outputprelude/zip_f.html
        http://zvon.org/other/haskell/Outputprelude/unzip_f.html
        На тебя сейчас заагрились настоящие математики всего мира, типа меня.
        Ответить

      • ava LispGovno 01.02.2013 22:14 # −1

        Посмотрел сейчас на код ZipWith и UnZip. Это код из стандартной библиотеки?
        Что-то тут не чисто.

        UnZip отстегивает только первый элемент кортежа каждого элемента списка в отдельный список, а остальные элементы кортежа оставляет во втором списке. Хаски так не делает.

        ZipWith вообще какаято императивная питушня с изменяющейся переменной i. Интересно, а как ZipWith реализуют в других нормальных языках? Выражают через другие функции высшего порядка?
        Ответить

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