Исправление monk, (текущая версия) :
На Racket 7.0:
$ time /usr/racket/bin/racket mand.rkt 10000000 1
real 0m5,692s
user 0m5,600s
sys 0m0,104s
$ time /usr/racket/bin/racket mand2.rkt 10000000 1
real 0m1,790s
user 0m1,740s
sys 0m0,060s
Неоптимизированный стал лучше, оптимизированный — хуже.
Исправление monk, :
На Racket 7.0:
$ time /usr/racket/bin/racket mand.rkt 10000000 1
real 0m5,692s
user 0m5,600s
sys 0m0,104s
$ time /usr/racket/bin/racket mand2.rkt 10000000 1
real 0m1,790s
user 0m1,740s
sys 0m0,060s
Исходная версия monk, :
На Racket 7.0:
$ time /usr/racket/bin/racket mand.rkt 10000000 1
real 0m5,692s
user 0m5,600s
sys 0m0,104s
$ time /usr/racket/bin/racket mand2.rkt 10000000 1
real 0m2,383s
user 0m2,212s
sys 0m0,172s
Неоптимизированный стал лучше, оптимизированный — хуже.