aimmath-commit

[<gr...@us...>]

Update of /cvsroot/aimmath/AIM/doc
In directory sc8-pr-cvs1:/tmp/cvs-serv27621

Modified Files:
	format.html 
Log Message:
Added a check that an earlier question part was answered in the multipart
question example.                                                    - GG


Index: format.html
===================================================================
RCS file: /cvsroot/aimmath/AIM/doc/format.html,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** format.html	25 Aug 2003 21:47:19 -0000	1.2
--- format.html	2 Sep 2003 07:11:56 -0000	1.3
***************
*** 258,262 ****
  <pre><font color='green'>
  name&gt; primes
! local&gt; lowerbound,ans1
  shift&gt; 7645848653
  t&gt; Recall that Euclid proved that their are infinitely many primes
--- 258,262 ----
  <pre><font color='green'>
  name&gt; primes
! local&gt; lowerbound,ans1,p1,p2
  shift&gt; 7645848653
  t&gt; Recall that Euclid proved that their are infinitely many primes
***************
*** 287,296 ****
  esq&gt;
  sq&gt;
! t&gt; Find a another prime $p_2$ such that $p_2 &gt; p_1$
  c&gt; posint
  av&gt; p2
  ap&gt; $p_2 =$
  s&gt; [proc(ans)
!      if isprime(ans) then
        if ans &gt; p1 then
         RETURN(1);
--- 287,300 ----
  esq&gt;
  sq&gt;
! t&gt; Find another prime $p_2$ such that $p_2 &gt; p_1$
  c&gt; posint
  av&gt; p2
  ap&gt; $p_2 =$
  s&gt; [proc(ans)
!      if not type(p1, posint) then
!       # Make sure the student did in fact answer the first part!!
!       `aim/t`(&quot;You haven't answered the first part yet!&quot;);
!       RETURN(0);
!      elif isprime(ans) then
        if ans &gt; p1 then
         RETURN(1);