1. Haskell / Говнокод #11510

    −79

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    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, 31 Июля 2012

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

    • Ну и как не считать это синтетикой, когда вы сами глаголите?
      Или это вынужденно на практике используется?
      Ответить
      • показать все, что скрыто>Или это вынужденно на практике используется?
        Нет конечно, это просто мне делать нечего было.
        Ответить
        • Тогда повторяю свой первый вопрос.
          Ответить
          • показать все, что скрыто*Уклоняюсь от ответа*
            Ответить
          • ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО ПРЫЩИ СПЕРМА ПАРАШКА ХУЙЛО
            Ответить
            • Посмотри в самую середину абзаца. Первое прочитанное слово охарактеризует твоё будущее.
              Ответить
              • >СПЕРМА

                Мне винда нравится, кстати. Иногда я читаю osronline и тку
                Ответить
    • Новый бот HaskellGovno? Чтоб тебя по айпи забанили.
      Ответить
    • sleep не потребляет ресурсов, а это жрёт процессор
      Ответить
    • (zim == fai)?
      Ответить
      • Так, уже третья версия. Кто больше? zim == fai раз, два, продано...
        Ответить
    • И тут, откуда не возьмись, посреди sleep произошла сборка мусора.
      Ответить
    • >экспериментальным
      Ответить
    • показать все, что скрытоЯ СОСУ ХУИ.
      Ответить

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