Пожалуйста, не стесняйтесь отмечать это как неактуальное, если вы считаете, что оно здесь не принадлежит.
У меня есть простой script, написанный как на Python, так и на Haskell. Он читает файл с целым числом, состоящим из 1 000 000 целых чисел, разделенных символом новой строки, анализирует этот файл в списке целых чисел, быстро сортирует его, а затем записывает в другой файл, отсортированный. Этот файл имеет тот же формат, что и несортированный. Простой.
Вот Haskell:
quicksort :: Ord a => [a] -> [a]
quicksort [] = []
quicksort (p:xs) = (quicksort lesser) ++ [p] ++ (quicksort greater)
where
lesser = filter (< p) xs
greater = filter (>= p) xs
main = do
file <- readFile "data"
let un = lines file
let f = map (\x -> read x::Int ) un
let done = quicksort f
writeFile "sorted" (unlines (map show done))
И вот Python:
def qs(ar):
if len(ar) == 0:
return ar
p = ar[0]
return qs([i for i in ar if i < p]) + [p] + qs([i for i in ar if i > p])
def read_file(fn):
f = open(fn)
data = f.read()
f.close()
return data
def write_file(fn, data):
f = open('sorted', 'w')
f.write(data)
f.close()
def main():
data = read_file('data')
lines = data.split('\n')
lines = [int(l) for l in lines]
done = qs(lines)
done = [str(l) for l in done]
write_file('sorted', "\n".join(done))
if __name__ == '__main__':
main()
Очень просто. Теперь я скомпилирую код Haskell с помощью
$ ghc -O2 --make quick.hs
И я время, когда эти два:
$ time ./quick
$ time python qs.py
Результаты:
Haskell:
real 0m10.820s
user 0m10.656s
sys 0m0.154s
Python:
real 0m9.888s
user 0m9.669s
sys 0m0.203s
Как Python может быть быстрее, чем собственный код Haskell?
Спасибо
ИЗМЕНИТЬ
- Версия Python: 2.7.1
- Версия GHC: 7.0.4
- Mac OSX, 10.7.3
- 2.4GHz Intel Core i5
Список, сгенерированный
from random import shuffle
a = [str(a) for a in xrange(0, 1000*1000)]
shuffle(a)
s = "\n".join(a)
f = open('data', 'w')
f.write(s)
f.close()
Таким образом, все числа уникальны.
