diff options
author | Karl Berry <karl@freefriends.org> | 2019-01-04 21:49:21 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2019-01-04 21:49:21 +0000 |
commit | f29c8047c5a7322cd327fa3073991990fdc32920 (patch) | |
tree | a637d9d87566fb1b101cec1182eba7e760ef5bf2 /Master/texmf-dist/doc/latex/brandeis-problemset/example.tex | |
parent | 39eaa60079c4839f8ed7bcdcf907c6ce0e5e75ab (diff) |
brandeis-problemset (4jan19)
git-svn-id: svn://tug.org/texlive/trunk@49598 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/latex/brandeis-problemset/example.tex')
-rw-r--r-- | Master/texmf-dist/doc/latex/brandeis-problemset/example.tex | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/Master/texmf-dist/doc/latex/brandeis-problemset/example.tex b/Master/texmf-dist/doc/latex/brandeis-problemset/example.tex index 712c8d2b97c..fac472c793d 100644 --- a/Master/texmf-dist/doc/latex/brandeis-problemset/example.tex +++ b/Master/texmf-dist/doc/latex/brandeis-problemset/example.tex @@ -1,4 +1,4 @@ -\documentclass[gantt]{brandeis-problemset} +\documentclass[gantt, scheme]{brandeis-problemset} \author{Rebecca Turner} \problemsetsetup{ coursenumber=21a, @@ -246,4 +246,18 @@ time --- this is referred to as exponentiation by squaring. \end{ganttschedule} \end{enumerate} +\begin{problem} + Write a Scheme procedure to calculate an arbitrary up-arrow $a \uparrow^n + b$. +\end{problem} + +\begin{scheme} +;;; (up-arrow 2 3 4) = 2^^^4 +(define (up-arrow a n b) + (cond ((= n 1) (expt a b)) + ((and (>= n 1) (= b 0)) 1) + (else (up-arrow a + (- n 1) + (up-arrow a n (- b 1)))))) +\end{scheme} \end{document} |