diff --git a/1.4-scheme_lists.tex b/1.4-scheme_lists.tex index ab50a8a..53c1401 100644 --- a/1.4-scheme_lists.tex +++ b/1.4-scheme_lists.tex @@ -511,18 +511,18 @@ \section{Функции от по-висок ред за списъци} \pause\pause Можем ли да пропуснем нулевата стойност за непразен списък?\\[2ex] \begin{tabular}{ll} - \pause + \onslide<+-> $a_1 \oplus \big(\ldots \oplus (a_{n-1} \oplus a_n) \ldots\big)$ - & \pause + & \onslide<+-> \begin{lstlisting} (define (foldr1 op l) (if (null? (cdr l)) (car l) (op (car l) (foldr1 op (cdr l))))) -\end{lstlisting}\\[6ex] - \pause +\end{lstlisting} \\[6ex] + \onslide<+-> $\big(\ldots\big((a_1 \oplus a_2) \oplus \ldots\big) \oplus a_n$ - & \pause + & \onslide<+-> \begin{lstlisting} (define (foldl1 op l) (foldl op (car l) (cdr l)))