Rambler's Top100
"Knowledge itself is power"
F.Bacon
Поиск | Карта сайта | Помощь | О проекте | ТТХ  
 Базарная площадь
  
О разделе

Основная страница

Группы обсуждений


Тематический каталог обсуждений

Архив

 
 К н и г и
 
Книжная полка
 
 
Библиотека
 
  
  
 


Поиск
 
Поиск по КС
Поиск в статьях
Яndex© + Google©
Поиск книг

 
  
Тематический каталог
Все манускрипты

 
  
Карта VCL
ОШИБКИ
Сообщения системы

 
Форумы
 
Круглый стол
Новые вопросы

 
  
Базарная площадь
Городская площадь

 
   
С Л С

 
Летопись
 
Королевские Хроники
Рыцарский Зал
Глас народа!

 
  
ТТХ
Конкурсы
Королевская клюква

 
Разделы
 
Hello, World!
Лицей

Квинтана

 
  
Сокровищница
Подземелье Магов
Подводные камни
Свитки

 
  
Школа ОБЕРОНА

 
  
Арсенальная башня
Фолианты
Полигон

 
  
Книга Песка
Дальние земли

 
  
АРХИВЫ

 
 

Сейчас на сайте присутствуют:
 
  
 
Во Флориде и в Королевстве сейчас  13:10[Войти] | [Зарегистрироваться]
Обсуждение темы:
Функциональное программирование

Функциональное программирование всегда привлекало меня в противопоставлении к императивному.
Я очень часто обсуждаю различные аспекты функционального программирования на различных ветках на Базарной площади.
Но хотелось бы собрать всех заинтересованный этой темой в одной ветке.
Я думаю что настало время открыть такую тему. И вот почему.

Исторически функциональное программирование появилось практически вместе с императивным.
Вторым языком после фортрана был лисп.
Но увы, функциональное программирование надолго было уделом исследовательских институтов или специализированных приложений (Искусственный Интеллект)
Конечно не надо считать весь мир дураками из за того что развитие пошло по пути языков Алгол семейства.
Для этого были вполне обьективные причины. Функциональные языки слишком близки к человеку и слишком далеки от машины.
Они сьедают в десятки раз больше рессурсов чем императивные языки.
Вспомните претензии, предявляемые к java - первому императивному языку с виртуальной машиной и сборщиком мусора, толкаемому большими корпорациями в mainstream.
Жутко тормозит, и жрет всю память какая есть. А ведь функциональные языки (далее ФЯ) все без иключения имеют сборщик мусора, виртуальную машину.
Многие из них (семейство лисп) еще и динамические, что только усугубляет положение.
Вполне естественно что появившись более полусотни лет назад они надолго опередилли свое время.

Для широкого распространения ФЯ нужны гигабайты дешевой памяти и гигагерцы дешевых процессоров.
Прошло более 50 лет, прежде чем такие требования к железу стали реальностью.
Это время наступило. СЕЙЧАС.
Добро пожаловать в новую эру программирования.

 Jack Of Shadows

Количество сообщений на странице

Порядок сортировки сообщений
Новое сообщение вверху списка (сетевая хронология)
Первое сообщение вверху списка (обычная хронология)

Перейти на конкретную страницу по номеру


Всего в теме 5502 сообщения

Добавить свое сообщение

Отслеживать это обсуждение


Смотрите также обсуждения:
Средства разработки. Языки программирования.
  • Delphi 4 or Delphi 5
  • Что приобрести в качестве средства разработки?
  • Delphi6
  • Delphi vs PowerBuilder
  • Сравнение компиляторов
  • Вот и вышла Delphi 7... Вы рады?

  • <<<... | 1372—1363 | 1362—1353 | 1352—1343 | ...>>>
    Всего сообщений в теме: 5502; страниц: 551; текущая страница: 415


    № 1362   22-10-2006 12:11 Ответить на это сообщение Ответить на это сообщение с цитированием
    Ответ на »сообщение 1360« (Geniepro)
    ___________________________
    Вы правы. Прогнал сишарп код несколько раз. Самый лучший результат - 18.5 секунд. Все равно хуже чем у хаскеля.



    Но, если честно, сравнение не совсем честное.
    Вы на Хаскелле используете готовую библиотечную функцию B.count, а на С# оставили ручной, неоптимизированный цикл...
    Я, правда, не нашёл какой-нибудь специальной функции типа B.count для классов типа StreamR.


    Да но ваш хаскелевский код грешит тем же самым.
    В сишарп вы считываете с файла и затем манипулируете одним и тем же тпом данных.
    В хаскеле же считываете один тип данных, после чего делаете 2 (!!!) преобразования, и только после этого работаете с данными. Конечно так будет в разы медленнее.


    № 1361   Удалено модератором


    № 1360   22-10-2006 06:35 Ответить на это сообщение Ответить на это сообщение с цитированием
    Ответ на »сообщение 1355« (Jack Of Shadows)
    ___________________________

    JoS > Я вашу программу переделал и вот какие интересные результаты:

    Тестовый файл поменьше - 1 Gb.
    Сишарп  - 24 секунды
    Хаскель - 11 секунд !!!

    Результат, конечно, потрясающий. :о)
    У меня похуже -
    С#      - 52 секунды
    Хаскель - 53 секунды

    Почти нет разницы.
    Видимо, у меня скорость считывания файла (40 МБ/сек) ограничивает обе программы. Ну, большего от своего винта я и не ожидаю - физический предел - третий, самый большой и медленный, раздел, возможно ещё и фрагментированный файл...

    А Вы в какой последовательности запускали программы? Если сначала на С#, а потом на Хаскелле, то, возможно, у Вас файл закешировался в память (он же у Вас меньше, чем памяти), и поэтому программа на Хаскелле оказалась в два раза быстрее - почти не было дисковых операций...

    Но, если честно, сравнение не совсем честное.
    Вы на Хаскелле используете готовую библиотечную функцию B.count, а на С# оставили ручной, неоптимизированный цикл...
    Я, правда, не нашёл какой-нибудь специальной функции типа B.count для классов типа StreamR.

    Хотя трудно придумать что-то более быстрое, чем:

    int num = 0;

    using (FileStream fs = new FileStream("e:\\fiblist.out", FileMode.Open, FileAccess.Read))
    {
        long l, fl = fs.Length;

        for (l = 0; l < fl; l++)
        {
            if (fs.ReadByte() == ',') num++;
        }

    }


    Ответ на »сообщение 1357« (hugi)
    ___________________________

    JoS > сишарп код ваш.

    Вы, наверное, спутали hugi со мной. :o))

    2hugi, см. сообщение 1346 в этой теме...


    № 1359   Удалено модератором


    № 1358   22-10-2006 02:11 Ответить на это сообщение Ответить на это сообщение с цитированием
    Ответ на »сообщение 1357« (hugi)
    ___________________________
    сишарп код ваш.


    № 1357   22-10-2006 02:03 Ответить на это сообщение Ответить на это сообщение с цитированием
    Ответ на »сообщение 1355« (Jack Of Shadows)
    ___________________________
    Сишарп - 24 секунды
    Хаскель - 11 секунд !!!

    Здорово! А как насчёт того, что бы привести код на C#?
     hugi


    № 1356   21-10-2006 23:18 Ответить на это сообщение Ответить на это сообщение с цитированием
    Ответ на »сообщение 1355« (Jack Of Shadows)
    ___________________________
    Попробовал с SMP - абсолютно никакой разницы, те же 11 секунд.
    Что в общем то и понятно :)) Считывание последовательно с файла по байтику распараллениванию не поддается.
    Нужна задача с обработкой огромного массива
    Напривер введение списка чисел в квадрат.
    Ща будем пробовать.



    № 1355   21-10-2006 22:30 Ответить на это сообщение Ответить на это сообщение с цитированием
    Я вашу программу переделал и вот какие интересные результаты:



    module Main where

    import IO
    import Time
    import qualified Data.ByteString.Lazy as B
    import qualified Data.ByteString.Base as Base

    main = do fromHandle <- openFile "d:\\out.txt" ReadMode
              contents  <- B.hGetContents fromHandle
              t1 <- getClockTime
              putStr "Start Time "
              print t1
              putStr "Number of commas = "
              print  (B.count (Base.c2w ',') contents)
              putStr "End Time "
              t2 <- do getClockTime
              print t2
              hClose fromHandle



    Тестовый файл поменьше - 1 Gb.
    Сишарп - 24 секунды
    Хаскель - 11 секунд !!!

    Это без SMP
    C SMP чуть попозже попробую




    № 1354   21-10-2006 19:31 Ответить на это сообщение Ответить на это сообщение с цитированием
    Ответ на »сообщение 1353« (Geniepro)
    ___________________________
    LOL. :))  2 строчки конечно меньше чем 2 гига текста.
    Сгенерирую текст, попробую пронать программу. А пока пошел пить чай :))


    № 1353   21-10-2006 17:15 Ответить на это сообщение Ответить на это сообщение с цитированием
    Ответ на »сообщение 1352« (Jack Of Shadows)
    ___________________________

    JoS >> Отлично! Выложите сжатый текстовый тест файл куда нибудь на рапидшару.

    Ой! Боюсь, с моим нэтом выкладывать файл в несколько сотен мегабайт - затруднительно будет...
    Вы можете сами его получить:


    main = print (take 141526 fibs)

    fibs = 1 : 1 : zipWith (+) fibs (tail fibs)


    как раз получите нужный файл... :о) Только перенаправьте вывод типа:

    fiblist.exe > E:\fiblist.out

    Ну, не мне Вас учить! :-))

    ЗЫ. А если файл как раз занимает почти 2 Гига памяти, то вряд ли он разместится у Вас без подкачки...
    И разве программа сможет использовать ВСЮ доступную ей память?


    <<<... | 1372—1363 | 1362—1353 | 1352—1343 | ...>>>
    Всего сообщений в теме: 5502; страниц: 551; текущая страница: 415


    Добавить свое сообщение

    Отслеживать это обсуждение

    Дополнительная навигация:
    Количество сообщений на странице

    Порядок сортировки сообщений
    Новое сообщение вверху списка (сетевая хронология)
    Первое сообщение вверху списка (обычная хронология)

    Перейти на конкретную страницу по номеру
      
    Время на сайте: GMT минус 5 часов

    Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter.
    Функция может не работать в некоторых версиях броузеров.

    Web hosting for this web site provided by DotNetPark (ASP.NET, SharePoint, MS SQL hosting)  
    Software for IIS, Hyper-V, MS SQL. Tools for Windows server administrators. Server migration utilities  

     
    © При использовании любых материалов «Королевства Delphi» необходимо указывать источник информации. Перепечатка авторских статей возможна только при согласии всех авторов и администрации сайта.
    Все используемые на сайте торговые марки являются собственностью их производителей.

    Яндекс цитирования