たとえば、ある時点で多項式を計算するには、その係数をループし、ai ∈ a0..anそれぞれに引数のべき乗を掛けて、iすべてを合計する必要があります。（私はホーナーの方法を知っていますが、より良い例を思いつくことができませんでした）もちろん、生成されたシーケンスで係数を圧縮し、これらのペアを次のように処理できます。
(loop for (ai, i)
in (apply #'list a (loop for i from 0 below (length a) collect i))
sum (* ai (expt x i)))
しかし、これは面倒そうです。単一のループに結合する方法はありますか?
編集:mapcarではありませんapply。