| Функциональное программирование |
Функциональное программирование всегда привлекало меня в противопоставлении к императивному.
Я очень часто обсуждаю различные аспекты функционального программирования на различных ветках на Базарной площади.
Но хотелось бы собрать всех заинтересованный этой темой в одной ветке.
Я думаю что настало время открыть такую тему. И вот почему.
Исторически функциональное программирование появилось практически вместе с императивным.
Вторым языком после фортрана был лисп.
Но увы, функциональное программирование надолго было уделом исследовательских институтов или специализированных приложений (Искусственный Интеллект)
Конечно не надо считать весь мир дураками из за того что развитие пошло по пути языков Алгол семейства.
Для этого были вполне обьективные причины. Функциональные языки слишком близки к человеку и слишком далеки от машины.
Они сьедают в десятки раз больше рессурсов чем императивные языки.
Вспомните претензии, предявляемые к java - первому императивному языку с виртуальной машиной и сборщиком мусора, толкаемому большими корпорациями в mainstream.
Жутко тормозит, и жрет всю память какая есть. А ведь функциональные языки (далее ФЯ) все без иключения имеют сборщик мусора, виртуальную машину.
Многие из них (семейство лисп) еще и динамические, что только усугубляет положение.
Вполне естественно что появившись более полусотни лет назад они надолго опередилли свое время.
Для широкого распространения ФЯ нужны гигабайты дешевой памяти и гигагерцы дешевых процессоров.
Прошло более 50 лет, прежде чем такие требования к железу стали реальностью.
Это время наступило. СЕЙЧАС.
Добро пожаловать в новую эру программирования.
Jack Of Shadows
Всего в теме 5502 сообщения
Добавить свое сообщение
Отслеживать это обсуждение 
- Средства разработки. Языки программирования.
- Delphi 4 or Delphi 5
- Что приобрести в качестве средства разработки?
- Delphi6
- Delphi vs PowerBuilder
- Сравнение компиляторов
- Вот и вышла Delphi 7... Вы рады?
| № 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))
}
Ответ на »сообщение 1357« (hugi)
___________________________
JoS > сишарп код ваш.
Вы, наверное, спутали hugi со мной. :o))
2 hugi, см. сообщение 1346 в этой теме...
| № 1359 Удалено модератором | |
| № 1358 22-10-2006 02:11 | |
| № 1357 22-10-2006 02:03 | |
Ответ на »сообщение 1355« (Jack Of Shadows)
___________________________
Сишарп - 24 секунды
Хаскель - 11 секунд !!!
Здорово! А как насчёт того, что бы привести код на C#?
| № 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 Гига памяти, то вряд ли он разместится у Вас без подкачки...
И разве программа сможет использовать ВСЮ доступную ей память?
Добавить свое сообщение
Отслеживать это обсуждение
| Дополнительная навигация: |
| 
