Хламидомонада / Говнокод #11510 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
t = 40000 -- количество итераций, чтобы выполнялось примерно 1 миллисекунду
                -- экспериментальным путем определено, что для ideone'вских машин это значение ~40000
 
sleep x = (apply (t*x) id x) `seq`
    ("I've waited ~" ++ show x ++ " milliseconds to tell this: 'pipisiunchik'.")

-- apply применяет ф-цию f к x n раз
apply 0 _ !x = x
apply !n !f !x = apply (n - 1) f (f x)
 
main = putStrLn $ sleep 1000

Спешу представить вам плод моего безделья: чистая ф-ция sleep на Haskell!

Тесты:
1sec - http://ideone.com/sLxRx
3.5sec - http://ideone.com/vn4Fd
10sec - http://ideone.com/U8s36

Запостил: zim zim, (Updated )

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

  • ava vistefan # Ссылка на оригинал 0

    Ну и как не считать это синтетикой, когда вы сами глаголите?
    Или это вынужденно на практике используется?
    Ответить

    • ava zim # Ссылка на оригинал 0 ⇈

      >Или это вынужденно на практике используется?
      Нет конечно, это просто мне делать нечего было.
      Ответить

        • ava guest # 0 ⇈

          ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО
          Ответить

          • ava PA3yMHblu_nemyx # Ссылка на оригинал 0 ⇈

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

            • ava guest # 0 ⇈

              >СПЕРМА

              Мне винда нравится, кстати. Иногда я читаю osronline и тку
              Ответить

  • ava guest # Ссылка на оригинал 0

    Новый бот HaskellGovno? Чтоб тебя по айпи забанили.
    Ответить

    • ava vistefan # Ссылка на оригинал 0 ⇈

      Так, уже третья версия. Кто больше? zim == fai раз, два, продано...
      Ответить

  • ava USB # Ссылка на оригинал 0

    И тут, откуда не возьмись, посреди sleep произошла сборка мусора.
    Ответить

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

Из-за тебя ушел bormand, guest!

    А не использовать ли нам bbcode?

    ↑
    8
    ↓