to spiral :size
if :size > 30 [stop] ; a condition stop
fd :size rt 15 ; many lines of action
spiral :size *1.02 ; the tailend recursive call
end
spiral 10
Here a new word spiral is defined (with a parameter) in the definition, the word calls itself with a different parameter. On the stop conmdition, the inner most word breaks out, and each calling word continues with the next command- also a break.
Fecha
5 de julio de 2007 (fecha original de carga)
Fuente
No se ha podido leer automáticamente información sobre la fuente; se asume que es trabajo propio (según los derechos de autor reclamados).
Autor
No se ha podido leer automáticamente información sobre el autor; se asume que es ClemRutter (según los derechos de autor reclamados).
Licencia
Yo, titular de los derechos de autor de esta obra, la publico en los términos de las siguientes licencias:
Se autoriza la copia, distribución y modificación de este documento bajo los términos de la licencia de documentación libre GNU, versión 1.2 o cualquier otra que posteriormente publique la Fundación para el Software Libre; sin secciones invariables, textos de portada, ni textos de contraportada. Se incluye una copia de la dicha licencia en la sección titulada Licencia de Documentación Libre GNU.http://www.gnu.org/copyleft/fdl.htmlGFDLGNU Free Documentation Licensetruetrue
de compartir – de copiar, distribuir y transmitir el trabajo
de remezclar – de adaptar el trabajo
Bajo las siguientes condiciones:
atribución – Debes otorgar el crédito correspondiente, proporcionar un enlace a la licencia e indicar si realizaste algún cambio. Puedes hacerlo de cualquier manera razonable pero no de manera que sugiera que el licenciante te respalda a ti o al uso que hagas del trabajo.
compartir igual – En caso de mezclar, transformar o modificar este trabajo, deberás distribuir el trabajo resultante bajo la misma licencia o una compatible como el original.
Esta etiqueta de licencia fue agregada a este archivo como parte de la actualización de la licencia GFDL.http://creativecommons.org/licenses/by-sa/3.0/CC BY-SA 3.0Creative Commons Attribution-Share Alike 3.0truetrue
Esta obra es software libre; puede redistribuirse y/o modificarse de acuerdo con los términos de la Licencia Pública General GNU publicada por la Free Software Foundation, en la versión 2 de la licencia o cualquier otra posterior. Esta obra se distribuye con la esperanza de que pueda ser útil, pero sin garantía alguna; ni siquiera la garantía implícita de comercialización o adecuación a una finalidad específica. Véase la versión 2 y la versión 3 de la Licencia Pública General GNU para conocer más detalles.http://www.gnu.org/licenses/gpl.htmlGPLGNU General Public Licensetruetrue
Leyendas
Añade una explicación corta acerca de lo que representa este archivo
Logo Example - illustrating the logo program to spiral :size if :size > 30 [stop] ; a condition stop fd :size rt 15 ; many lines of action spiral :size *1.02 ; the tailend recursive call end spiral 10 Here a new word spiral is d