♪♪Ｐｅｒｌの問題に・・・♪♪

え〜と、学校でＰｅｒｌの問題を出されました。
つか、全然わからないんです　Ｔ_Ｔ
誰か教えてください〜

問１ 学籍番号の下２桁の数字をabとする（例、学籍番号12345であればa=4, b=5）。
　　　10a+b+1から10a+b+20までの整数の和を求める。
問２ ５つの数字をキー入力すると最大の数を書き出す。

の２問です。おねがいします　ｍ（〜_〜）ｍ

教えて君は逝ってよし
end.

終了ですね。

孵れ。

Ｔ_Ｔ
いや、かなり困ってるんで・・・おねがいします

いや、かなり困ってるんで・・・おねがいします
いや、かなり困ってるんで・・・おねがいします
いや、かなり困ってるんで・・・おねがいします
いや、かなり困ってるんで・・・おねがいします
いや、かなり困ってるんで・・・おねがいします
いや、かなり困ってるんで・・・おねがいします
いや、かなり困ってるんで・・・おねがいします
いや、かなり困ってるんで・・・おねがいします
いや、かなり困ってるんで・・・おねがいします
いや、かなり困ってるんで・・・おねがいします
いや、かなり困ってるんで・・・おねがいします
いや、かなり困ってるんで・・・おねがいします
いや、かなり困ってるんで・・・おねがいします
いや、かなり困ってるんで・・・おねがいします
いや、かなり困ってるんで・・・おねがいします
いや、かなり困ってるんで・・・おねがいします
いや、かなり困ってるんで・・・おねがいします
いや、かなり困ってるんで・・・おねがいします
いや、かなり困ってるんで・・・おねがいします
いや、かなり困ってるんで・・・おねがいします

http://piza.2ch.net/test/read.cgi?bbs=tech&key=995533291

教えろっつてんだろ ﾎﾞｹｯ

投稿日：2001/07/19(木) 18:08

うぁ、無茶苦茶簡単だ。。。

さぁ、もうすぐ夏休みだ！！！！！！！！！！！！！
プログラム板のみんな気を引き締めろ！！！！！！！！！！！！

>>1
ネタだということがバレバレ

ﾜﾗﾀsage

#!C:\perl\bin\perl -w

use strict;
use English;

MAIN: {
　　my $id;
　　my $i;
　　my $j;
　　my $start;
　　my $end;
　　my $total = 0;

　　$id = shift(@ARGV);

　　if (not defined($id)) {
　　　　die "Usage: xxx.pl {your_id}\n";
　　}

　　($i, $j) = $id =~ m/([0-9])([0-9])$/;

　　if (not defined($i) or not defined($j)) {
　　　　die "Invalid format: $id\n";
　　}

　　$start = 10*$i + $j + 1;
　　$end　 = 10*$i + $j + 20;

　　for (my $k = $start; $k <= $end; $k++) {
　　　　$total += $k;
　　}

　　print "total: ", $total, "\n";
}

>>14
止めろｳﾞｧｶ

#!C:\perl\bin\perl -w

use strict;
use English;

MAIN: {
　　my @numbers;

　　@numbers = @ARGV;

　　if (@numbers != 5) {
　　　　die "Usage: xxx.pl {num1} {num2} {num3} {num4} {num5}\n";
　　}

　　foreach my $num (@numbers) {
　　　　if ($num !~ m/^[0-9]{1}$/) {
　　　　　　die "Usage: xxx.pl {num1} {num2} {num3} {num4} {num5}\n";
　　　　}
　　}

　　@numbers = sort({$b <=> $a} @numbers);
　　print "number: ", join("", @numbers), "\n";
}

>>16
手抜きすれば1行でかけるのもすごいよな。。。
print "number: ", join("", sort({$b <=> $a} @ARGV)), "\n";

>>17
しかし、それはプロの書くコードではない。

>>18
オレいっつもそんなコードばっかり書いてる。(死

>>14
頭悪いな。等差数列の和の公式くらい使え。

#!C:\perl\bin\perl -w

use strict;
use English;

MAIN: {
　　my $id;
　　my $i;
　　my $j;
　　my $start;
　　my $d = 1;
　　my $n = 20;
　　my $total = 0;

　　$id = shift(@ARGV);

　　if (not defined($id)) {
　　　　die "Usage: xxx.pl {your_id}\n";
　　}

　　($i, $j) = $id =~ m/([0-9])([0-9])$/;

　　if (not defined($i) or not defined($j)) {
　　　　die "Invalid format: $id\n";
　　}

　　$start = 10*$i + $j + 1;
　　$total = $n * (2*$start + $d*($n - 1)) / 2;

　　print "total: ", $total, "\n";
}

>>19
こんなコードか？
print "total: ", substr($ARGV[0], -2)*20+210 ;

答１
@_=@ARGV;if($#_||$_[0]!~s/^.*(\d\d)$/$1*20+210/e){@_="Error";}print"Total: @_";
答２
if(grep(/\D/,@_=sort{$b-$a}@ARGV)||($#_-=4)){@_="Error";}print"Namber: @_";