[bcn-pm] bé, aquí van els programets...
Raimon Grau
raimonster a gmail.com
div abr 17 13:02:41 PDT 2009
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
Més informació sobre la llista de correu Barcelona-pm