Perlコーディング初心者質問スレ Part 57

Perlコーディング初心者質問スレ Part 57 at PHP

191:nobodyさん
08/03/21 21:33:13
>>189
sub conv($){
my $alpha = 'A' ;
$alpha ++ for 1 .. $_[0] ;
return $alpha ;
}
printf "%d\t%s\n", $_, conv $_ for 0 .. 200 ;

次ページ

続きを表示

1を表示