Hmw2.0 Englishprojectsize[744 426]turtles-have[]globals[]globals-list[globals-vars] shapes procedures text{\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fprq2 System;}{\f3\fswiss Arial;}{\f4\fmodern\fprq1 Courier New;}{\f5\fswiss Arial;}} {\colortbl\red0\green0\blue0;\red0\green128\blue128;\red0\green0\blue128;\red0\green0\blue255;} \deflang1033\pard\plain\f4\fs20\cf1 ; Purpose: To demonstrate a recursive function \par ; Copyright \plain\lang3081\f4\fs20\cf1 \'a9\plain\f4\fs20\cf1 2004 by Rupert Russell \par ; e-mail: r.russell@ballarat.edu.au \par ; URL: http://velorum.ballarat.edu.au/~rrussell/microworlds/ \par ; Created: February 16, 2005\plain\f4\fs20\cf2 \par \plain\f4\fs20\cf1 ; \par ; This program is free software; you can redistribute it and/or modify \par ; it under the terms of the GNU General Public License as published by \par ; the Free Software Foundation; either version 2 of the License, or \par ; (at your option) any later version. \par ; \par ; This program is distributed in the hope that it will be useful, \par ; but WITHOUT ANY WARRANTY; without even the implied warranty of \par ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the \par ; GNU General Public License for more details. \par ; \par ; You should have received a copy of the GNU General Public License \par ; along with this program; if not, write to the Free Software \par ; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. \par ; ---------------------------------------------------------------------\plain\f4\fs20\cf0 \par \plain\f4\fs20\cf3\b \par to go\plain\f4\fs20 \par make "counter 0\tab \tab \plain\f4\fs20\cf1 \tab ; define the value of the counter \par \tab \tab \tab \tab \tab \tab ; note if we start with counter at \par \tab \tab \tab \tab \tab \tab ; 0 then we get one more line \par \tab \tab \tab \tab \tab \tab ; than you may expect \par \tab \tab \tab \tab \tab \tab ; eg if :counter > 100 [ stop] \par \tab \tab \tab \tab \tab \tab ; will print 101 lines\plain\f4\fs20 \par ct \par print (se "Starting "detention) \par do_detention \par \plain\f4\fs20\cf3\b end \par \par to do_detention \par \plain\f4\fs20\cf1 ; every recursive function needs a stopping case otherwise \par ; it will run forever.\plain\f4\fs20 \par if :counter > 100 [ \par print (se char 32 "I "have "finished "my "detention "can "I "go "now "?) \par stop] \par \par print (se :counter "I "must "not "ridicule "the "detention "system.) \par \par make "counter :counter + 1\tab \tab \plain\f4\fs20\cf1 ; keep count of how many lines\plain\f4\fs20 \par do_detention\tab \tab \tab \plain\f4\fs20\cf1 \tab ; recursive call\plain\f4\fs20 \par \plain\f4\fs20\cf3\b end \par \par \par \plain\f4\fs20 \par \par \par } 1=pagenamepage1curturtlet1curtexttext1transition0Dturtle-deamons[[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []]Cmouse-deamons[[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []] bgwhite$buffer$$6HZl~ 2DVhz .@Rdv*<N`r&8J\n"4FXj| 0BTfx,>Pbt(:L^p  $ 6 H Z l ~  2 D V h z  . @ R d v   * < N ` r   & 8 J \ n "4FXj| 0BTfx,>Pbt(:L^p$6HZl~ 2DVhz .@Rdv*<N`r&8J\n"4FXj| 0BTfx,>Pbt(:L^p$6HZl~ 2DVhz .@Rdvobject typet namet1locked?false xpos372 ypos213 shape0penstate0 size40pencolor0 heading0 pensize1shown?true fcn[] kind1shapeinturtlehave-list[has] colorin9=object typetextnametext1rect[31 21 688 365]show-name?falselocked?falsevisible?truesnaped?falsetext{\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fprq2 System;}{\f3\fswiss Arial;}{\f4\fmodern\fprq1 Courier New;}{\f5\fswiss Arial;}} {\colortbl\red0\green0\blue0;\red0\green128\blue128;\red0\green0\blue128;\red0\green0\blue255;} \deflang1033\pard\plain\f5\fs20 Starting detention \par 0 I must not ridicule the detention system. \par 1 I must not ridicule the detention system. \par 2 I must not ridicule the detention system. \par 3 I must not ridicule the detention system. \par 4 I must not ridicule the detention system. \par 5 I must not ridicule the detention system. \par 6 I must not ridicule the detention system. \par 7 I must not ridicule the detention system. \par 8 I must not ridicule the detention system. \par 9 I must not ridicule the detention system. \par 10 I must not ridicule the detention system. \par 11 I must not ridicule the detention system. \par 12 I must not ridicule the detention system. \par 13 I must not ridicule the detention system. \par 14 I must not ridicule the detention system. \par 15 I must not ridicule the detention system. \par 16 I must not ridicule the detention system. \par 17 I must not ridicule the detention system. \par 18 I must not ridicule the detention system. \par 19 I must not ridicule the detention system. \par 20 I must not ridicule the detention system. \par 21 I must not ridicule the detention system. \par 22 I must not ridicule the detention system. \par 23 I must not ridicule the detention system. \par 24 I must not ridicule the detention system. \par 25 I must not ridicule the detention system. \par 26 I must not ridicule the detention system. \par 27 I must not ridicule the detention system. \par 28 I must not ridicule the detention system. \par 29 I must not ridicule the detention system. \par 30 I must not ridicule the detention system. \par 31 I must not ridicule the detention system. \par 32 I must not ridicule the detention system. \par 33 I must not ridicule the detention system. \par 34 I must not ridicule the detention system. \par 35 I must not ridicule the detention system. \par 36 I must not ridicule the detention system. \par 37 I must not ridicule the detention system. \par 38 I must not ridicule the detention system. \par 39 I must not ridicule the detention system. \par 40 I must not ridicule the detention system. \par 41 I must not ridicule the detention system. \par 42 I must not ridicule the detention system. \par 43 I must not ridicule the detention system. \par 44 I must not ridicule the detention system. \par 45 I must not ridicule the detention system. \par 46 I must not ridicule the detention system. \par 47 I must not ridicule the detention system. \par 48 I must not ridicule the detention system. \par 49 I must not ridicule the detention system. \par 50 I must not ridicule the detention system. \par 51 I must not ridicule the detention system. \par 52 I must not ridicule the detention system. \par 53 I must not ridicule the detention system. \par 54 I must not ridicule the detention system. \par 55 I must not ridicule the detention system. \par 56 I must not ridicule the detention system. \par 57 I must not ridicule the detention system. \par 58 I must not ridicule the detention system. \par 59 I must not ridicule the detention system. \par 60 I must not ridicule the detention system. \par 61 I must not ridicule the detention system. \par 62 I must not ridicule the detention system. \par 63 I must not ridicule the detention system. \par 64 I must not ridicule the detention system. \par 65 I must not ridicule the detention system. \par 66 I must not ridicule the detention system. \par 67 I must not ridicule the detention system. \par 68 I must not ridicule the detention system. \par 69 I must not ridicule the detention system. \par 70 I must not ridicule the detention system. \par 71 I must not ridicule the detention system. \par 72 I must not ridicule the detention system. \par 73 I must not ridicule the detention system. \par 74 I must not ridicule the detention system. \par 75 I must not ridicule the detention system. \par 76 I must not ridicule the detention system. \par 77 I must not ridicule the detention system. \par 78 I must not ridicule the detention system. \par 79 I must not ridicule the detention system. \par 80 I must not ridicule the detention system. \par 81 I must not ridicule the detention system. \par 82 I must not ridicule the detention system. \par 83 I must not ridicule the detention system. \par 84 I must not ridicule the detention system. \par 85 I must not ridicule the detention system. \par 86 I must not ridicule the detention system. \par 87 I must not ridicule the detention system. \par 88 I must not ridicule the detention system. \par 89 I must not ridicule the detention system. \par 90 I must not ridicule the detention system. \par 91 I must not ridicule the detention system. \par 92 I must not ridicule the detention system. \par 93 I must not ridicule the detention system. \par 94 I must not ridicule the detention system. \par 95 I must not ridicule the detention system. \par 96 I must not ridicule the detention system. \par 97 I must not ridicule the detention system. \par 98 I must not ridicule the detention system. \par 99 I must not ridicule the detention system. \par 100 I must not ridicule the detention system. \par I have finished my detention can I go now ? \par \par } |objecttypebuttonnamebutton2rect[30 396 60 25]show-name?falselocked?false fcn[go] kind1