<html>
<head>
<title>Diversión con los números</title>
</head>

<body bgcolor=#ffffff text=#000000>
<h2>Diversión con los números</h2>
<hr>

<ul>

<!-- aquí tiene un ejemplo para evaluar una expresión Tcl y utilizar el resultado
inmediatamente en la página (el signo = es la clave) -->

<li>Dos más dos es <%= [expr 2+2] %>

<li>Este AOLserver es la versión en ejecución <%= [info tclversion] %> de Tcl.

<% 

# aquí tiene un ejemplo de la forma de salir de Tcl con <% y ejecutando código
# para ello en el entorno en que evaluaremos el resto
# de la página

set aquarium_types_and_costs \
   [list [list "Lake Malawi Cichlid" 5000] \
         [list "Saltwater Community" 7000] \
         [list "Reef" 10000] \
         [list "Planted Freshwater" 6000] \
         [list "Suspended-in-midair Stingray Pond" 45000] \
   ]

%>

<li>El primer elemento de <code><%= $aquarium_types_and_costs %></code> es 
<code><%= [lindex $aquarium_types_and_costs 0] %></code>

<li>Aquí tiene algunos planos para el acuario del nuevo edificio:
  <ul>

<%

# utilizaremos ns_puts para agregarlos a la página visible desde
# esta página

set total 0 

foreach pair $aquarium_types_and_costs {
    # desestructuraremos inmediatamente, conservando
    # cierto parecido con la abstracción
    set aquarium_type [lindex $pair 0]
    set aquarium_cost [lindex $pair 1]
    incr total $aquarium_cost
    ns_puts "<li>$aquarium_type costará \$$aquarium_cost\n"
}

ns_puts "<p>\n<li>Total:  \$$total"

%>
</ul>

</ul>


<hr>
<a href="http://photo.net/philg/"><address>philg@mit.edu</address></a>
</body>
</html>
�