Улучшение производительности Racket Code и ошибки при попытке байтовой компиляции

Я собрал несколько фрагментов кода из разных источников и создал грубую реализацию статьи из блога Wolframhttp://bit.ly/HWdUqK-для тех, кто склонен к математике, это очень интересно!

Неудивительно, учитывая, что я еще новичок в Racket, код занимает слишком много времени для вычисления результатов (>90 минут против 49 секунд у автора)и съедает много памяти. Я подозреваю, что все дело в определении (expListY), которое необходимо переработать.

Хотя у меня он работает в DrRacket, у меня также возникают проблемы с byte-компилированием исходников, и я все еще работаю над ним (Сообщение об ошибке:+: expects type as 1st argument, given: #f; other arguments were: 1 -1)

Кто-нибудь хочет попробовать улучшить производительность и эффективность? Приношу извинения за непонятный код и отсутствие комментариев получше.

PS:Должен ли я копировать и вставлять код прямо сюда?