Foro - Perl en Español

«Se tiene un plano (imagínese como un cuaderno cuadriculado), en donde cada cuadrito tiene su coordenada. Allí se colocarán 3 islas y 5 animales marinos en diferentes cuadritos. Uno está en un submarino en alguna coordenada. Al elevar el periscopio se puede ver hacia el norte, sur, este, oeste. Problema: Cuente cuántos animales se ven desde su posición. Nota: si hay una isla entre Ud. y el animal, no podrá ver los animales detrás de ella porque la isla los oculta. Se dan las coordenadas del submarino, las islas y los animales. NO SE PUEDEN USAR ARREGLOS, HASHES NI REFERENCIAS SIMBÓLICAS.»

Ejemplos de llamada:

Caso extremo:


(Nota: es un ejemplo de llamada, se puede programar otra forma de entrar los datos).

El único arreglo del que se puede leer es @ARGV, pero solo para inicializar variables escalares donde se almacenarán los valores leídos.

Objetivo: encontrar la solución más corta. Encontrar una solución que pueda ser ampliable a 5 islas y 20 animales.

Fuente original: UNIVERSIDAD CENTRAL DE VENEZUELA, FACULTAD DE CIENCIAS, ESCUELA DE COMPUTACIÓN, ALGORITMOS Y PROGRAMACIÓN, PROYECTO #1 (pdf)

La explicación de la siguiente solución en Perl ofuscado, se deja como ejercicio para el lector.

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using text Syntax Highlighting

#!/usr/bin/perl -l
# El
sub#marino                |
                          l{
                        my$b;for$i
                        (1..shift)
                       {my($x,$y)#JF2010
           =(shift@ARGV,shift@ARGV);if($x==$sx||$y==$sy)
        {$b.=','if$b;$b.="$x|$y"}}$b};($sx,$sy)=(shift,shift);$I=l(3);
      $E=l(5);$v=0;for$e(split/,/,$E){($ex,$ey)=split/\|/,$e;my $m;map{(
      $ix,$iy)=split/\|/;$m.=(($iy==$ey*(($ex-$ix)*($ix-$sx)>0))or($ix==
        $ex*(($ey-$iy)*($iy-$sy)>0)))}split/,/,$I;$v++if!$m}print$v;
 

Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4