sfida... riconoscimento pattern in una dimensione

Marco Molteni molter a tin.it
Lun 18 Lug 2005 21:57:48 CEST


On Mon, 18 Jul 2005 21:18:35 +0200
Gianmarco Giovannelli <gmarco a gufi.org> wrote:

> Ecco i miei :

[..]

> ##### Infine l' illuminazione 
> ########################################## !/usr/bin/perl -w
> # v.06  No more 2 pass :-)
> 
> $tot = 0;
> $tot_max = 0;
> $tot_min = 0;
> $tot_cmin = 0;
> 
> # Creazione del vettore
> while (<STDIN>){
>          $tot += $_;
>          if (($tot - $tot_min) > ($tot_max - $tot_cmin)) {
>                  $tot_max = $tot;
>                  $tot_cmin = $tot_min;
>          }
>          if ($tot < $tot_min){ $tot_min = $tot;}
> }
> print "Solution: ".($tot_max-$tot_cmin)."\n";

molto elegante e succinto, il mio fa schifo al confronto.
Complimenti!

marco


Maggiori informazioni sulla lista devel