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) RSS

    • ava HaskellGovno 20.05.2012 22:39 # 0

      Подсчёт факториала без введения параметра факториала. (То есть функция факториала возвращает функцию для подсчёта факториала).
      Ответить

      • ava 3.14159265 21.05.2012 14:31 # 0

        >Подсчёт факториала без введения параметра факториала.
        Когда-то на С видел такое. ЧСХ кода было меньше.
        Ответить

        • ava unu-foja 21.05.2012 17:16 # +4

          > кода было меньше
          Сударь, позвольте: тут хаскель-то использется как псевдо-язык для определения комбинаторов, более идиоматчино было бы, например:
          import Control.Monad.Fix

fac = fix $ \ f n -> if n == 0 then 1 else n * f (n - 1)
          Ответить

      • ava 3.14159265 21.05.2012 15:25 # 0

        Примерно так:
        http://ideone.com/TsUN5
        Ответить

        • ava bormand 21.05.2012 15:37 # +1

          Хм, ну тогда уж замутить функцию без аргументов, которая просто вернет функцию вычисления факториала. Это ближе к топику.

          // эту функцию мы никому не дадим
static int function fac_private(int n) {
  int res = 1, i;
  for (i=2; i<=n; i++) res *= i;
  return res;
}
// а эта доступна
(int (*)(int)) fac() { return fac_private; }

fac()(5);
          Ответить

          • ava 3.14159265 21.05.2012 15:42 # 0

            Вся фишка в том, что аргументы функции для подсчета не используются (unused).
            Ответить

            • ava bormand 21.05.2012 15:57 # +2

              _AddressOfReturnAddress это майкрософтизм. Да и немного смущает "результат: Ошибка выполнения время: 0.02s память: 1720 kB сигнал: -1 ".
              Вердикт - не труъ.
              Ответить

              • ava 3.14159265 21.05.2012 16:24 # 0

                >_AddressOfReturnAddress это майкрософтизм
                >Вердикт - не труъ.
                Кто бы спорил. Сначала же сказал, что "видел" - следовательно сей говнохак не мой.
                Я кстати нашел тот тред:
                http://govnokod.ru/5561
                Ответить

    • ava Vindicar 21.05.2012 00:21 # 0

      Но зачем?
      Ответить

      • ava HaskellGovno 21.05.2012 01:25 # +3

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

        • ava guest 21.05.2012 23:03 # +3

          Это могло бы быть круто, если код был бы за авторством тс,
          на что посимвольное совпадение с http://www.willamette.edu/~fruehr/haskell/evolution.html уж никак не намекает.

          Этот боян чуть ли не 3 раза на том же лоре появлялся, и в контексте всей заметки смотрится как (само)ирония. А здесь - как вброс.
          Ответить

          • ava HaskellGovno 21.05.2012 23:39 # −1

            На говнокоде этого говнокода ещё не было.
            Ответить

            • ava guest 21.05.2012 23:57 # +2

              Какая у тебя мотивация-то? Может лучше прочитать, скажем, http://learnyouahaskell.com/chapters ? (вроде был и русский перевод, но за монетку).
              Ответить

    • ava bormand 21.05.2012 05:45 # +1

      Факториал на Y комбинаторе?
      Ответить

    • ava TarasB 21.05.2012 11:43 # 0

      А, через Y-кокомбинатор?
      Ответить

    • ava bormand 21.05.2012 12:23 # +3

      Кстати cond, == и * тут не рулят. Нужно было юзать вместо них нумералы Чёрча:
      true x y = x
false x y = y
0 x y = x
1 x y = y x
2 x y = y (y x)
...
      Ответить

    • ava HaskellGovno 21.05.2012 22:33 # −1

      Можно использовать Хаскел для обфускации программ или как естественная матан-защита кода от быдлокодеров, клинических идиотов пользователей других быдло языков.
      Ответить

      • ava bormand 22.05.2012 05:22 # +1

        Нельзя, потому что в IO монаде на нем можно писать как на фортране :)

        А настоящий индус никогда не будет читать код предшественника, он просто будет прикручивать к нему свои велосипеды и костыли.
        Ответить

      • ava Steve_Brown 22.05.2012 10:16 # +1

        Мне почему-то померещилось в тексте слово "капча". А что, хорошая идея...
        Ответить

        • ava HaskellGovno 22.05.2012 10:36 # +2

          На говнокоде нужно добавить Хаскел-Капчу. Притом чтобы не сменялась, пока правильно не ответишь.
          Ответить

          • ava bormand 22.05.2012 13:33 # +1

            Нет, лучше генерить рандомную каждый раз. Чтобы не повторялась и не списывали.
            Ответить

          • ava roman-kashitsyn 22.05.2012 14:01 # 0

            Можно пример?
            Ответить

            • ava guest 22.05.2012 15:06 # +1

              [color=grey][Cмеха ради][/color] написать [1,1,1,1,1,1,1,1,1,1] не длиннее, чем 12 символов.
              [0..9]>>[1] или 1<$[0..9]
              Ответить

              • ava roman-kashitsyn 22.05.2012 15:13 # 0

                > не длиннее, чем 12 символов
                > 1<$[0..9]
                Это только если не считать 
                import Control.Applicative
                Если бы мне такая хрень понадобилась, я бы написал 
                take 10 [1,1..]
                Но тут 15 символов
                Ответить

                • ava guest 22.05.2012 15:21 # +3

                  Но первый-то вариант подходит? :Р
                  А если для людей - лучше сразу replicate 10 1.
                  Ответить

                • ava guest 22.05.2012 16:56 # 0

                  А можно что-нибудь поинтереснее, например однострочник для:
                  http://vimgolf.com/challenges/4d6f45b938c0aa691b000003
                  Правда vim обогнать не получилось.
                  Ответить

              • ava HaskellGovno 22.05.2012 16:02 # 0

                Первым делом подумал написать replicate 10 1, но потом понял, что тогда на говнокод со своим знанием Хаскела не прошел бы. 14 символов. :(
                Ответить

                • ava guest 22.05.2012 16:37 # 0

                  А нефиг эзотерическую, даешь матан-капчу! Не осилил матан - идешь на метан.
                  Ответить

              • ava TarasB 22.05.2012 16:51 # +3

                Что означает в хахахаскеле доллар и битовый сдвиг вправо?
                Ответить

                • ava roman-kashitsyn 22.05.2012 16:58 # +1

                  Это означает "замапь константу слева на функтор справа".
                  В нашем случае получается тоже самое, что 
                  map (\x -> 1) [0..9] -- или
const 1 `map` [0..9]
                  только <$ работает с любыми функторами: деревьями, Maybe и т.п.
                  Ответить

          • ava rat4 22.05.2012 15:19 # +1

            C++ капча может быть не менее увлекательной:
            http://stackoverflow.com/questions/9515327/default-constructors-initialization-of-pod-and-implicit-type-conversions-in-c
            Ответить

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