* @copyright 2025 Bartolomé Sintes Marco
* @license http://www.gnu.org/licenses/agpl.txt AGPL 3 or later
* @version 2025-02-08
* @link https://www.mclibre.org
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU Affero General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU Affero General Public License for more details.
*
* You should have received a copy of the GNU Affero General Public License
* along with this program. If not, see
Actualice la página para mostrar un nuevo grupo de animales.
$numero animales\n"; print "\n"; print "\n"; foreach ($animales as $animal) { print " $animal;\n"; } print "
\n"; print "\n"; // Guardamos el valor del animal a descartar $descarta = $animales[rand(0, $numero - 1)]; // Mostramos el animal a descartar print "\n"; print " $descarta;\n"; print "
\n"; print "\n"; // Eliminamos el animal de la matriz for ($i = 0; $i < $numero; $i++) { if ($animales[$i] == $descarta) { unset($animales[$i]); } } // Mostramos las imágenes de los animales restantes print "No quedan animales.
\n"; print "\n"; } else { print "\n"; foreach ($animales as $animal) { print " $animal;\n"; } print "
\n"; } ?>