[bcn-pm] bé, aquí van els programets...

[Raimon Grau]

He refet el 21 en perl6.
rakudo encara no té manera de fer un slurp de la STDIN, o sigui que la
entrada ha de ser de 2 numeros per linia.

#-----------8<-----------------
#!/tmp/rakudo/perl6

sub printa_rusc($f, $c){
	
       my $first = ' -  ' x $c ;
       $first.chop.say;   #chop no es 'destructiva'

       my $top_line = '/ \_' x $c;
       my $bottom_line = '\_/ ' x $c;

	   for 1..$f {
		   $top_line.chop.say;
		   $bottom_line.chop.say;
	   }
}

while my $lin = =$*IN {       	#WTF?!
	my @arr=$lin.split(/\s+/);
	@arr.perl.say;  #.perl es l'equivalent a Data::Dumper::Dumper
	if 2==@arr.elems {
		printa_rusc(@arr[0], @arr[1]); #no pas $arr[0]
	} else {
		"A cagar".say;
	}
}

# vim: set tabstop=4 shiftwidth=4 foldmethod=marker ft=perl: ##

#------------------8<--------------------------

Salut,


2009/4/17 Alex Muntada <alexm a alexm.org>:
> * Jordi Delgado <jdelgado a lsi.upc.edu>:
>
>> en Perl, he fet aixo:
>>        local $/=undef;
>>        $entrada = <STDIN>;
>>        @entrada = split /\s+/,$entrada;
>
> A mi tampoc se m'acut res millor que un slurp,
> potser amb Perl6::Slurp, si voleu, enlloc de fer-ho
> tocant $/ però mireu el que diu el perldoc perlvar:
>
> Remember: the value of $/ is a string, not a regex.
> awk has to be better for something. :-)
>
>> demanava llegir l'entrada caracter a caracter. Aixo a Perl
>> com es faria?
>
> perldoc -f getc
>
>> I res mes. Lamento marejar-vos amb cosetes tan trivials.
>
> Jo trobo que està bé aquest tipus de missatges per
> animar una mica l'ambient.
>
> Segueixo mirant el teu codi... ;-)
>
> --
> Alex Muntada <alexm a alexm.org>
> http://alexm.org/
> _______________________________________________
> llista dels Barcelona-pm
> Barcelona-pm a pm.org
> http://mail.pm.org/mailman/listinfo/barcelona-pm
> BCN Perl Mongers: http://barcelona.pm.org

--
Rai