企画倒れコミュのen_q52.pl

#
@number = (10241 .. 65536);
@number2 = (2, 3, 5);

# 2の要素数
foreach $var (@number) {
　if ($var % 7 == 2) {
　　push (@res1, $var);
　}
}
$total{2} = @res1;

# 3の要素数
foreach $var (@number) {
　if ($var % 7 == 3) {
　　push (@res2, $var);
　}
}
$total{3} = @res2;

# 5の要素数
foreach $var (@number) {
　if ($var % 7 == 5) {
　　push (@res3, $var);
　}
}
$total{5} = @res3;

foreach $var2 (@number2){
　print "7で割った余りが $var2 となる要素数：$total{$var2}\n";
}

コメント(13)

最初
全て
最新の40件

[1] mixiユーザー 05月29日 20:34

ぜってーちげぇｗｗｗ

[2] mixiユーザー 05月29日 20:35

比較で変数使ってないところがイカス。

[3] mixiユーザー 05月29日 20:53

やってねーわこれｗｗｗ

[4] mixiユーザー 05月29日 21:35

ちょｗｗｗ

[5] mixiユーザー 05月29日 21:37

つーかさ、「なんとかかんとか.pl < data.txt」
ってのができないんだけど。

逆の、「なんとかかんとか.pl > mypage.htm」
はできた。

すすまねぇｗｗｗｗ

[6] mixiユーザー 05月29日 21:38

このトピック流行りそうだな。

[7] mixiユーザー 05月29日 22:56

>>「なんとかかんとか.pl < data.txt」
テキストファイルの最後に改行がはいってないとかじゃねーの？

「あああ
　いいい
　ううう

」

みたいな。

[8] mixiユーザー 05月29日 23:26

入ってるけどダメだな。

[9] mixiユーザー 05月29日 23:33

じゃあ基本がなってないんだな＞＜

[10] mixiユーザー 05月29日 23:49

＞＜

[11] mixiユーザー 05月30日 10:00

メモ。
「perl なんとか.pl < data.txt」

うはｗ

[12] mixiユーザー 05月30日 11:43

while (chomp($line = <STDIN>)) {
(undef, $name, @score) = split(/,/, $line);
$sum = 0;
foreach $sc(@score){
$sum += $sc;
}
$member{$name} = $sum;
}
foreach $name (sort {$member{$b} <=> $member{$a}} keys(%member)){
print "$name ===> $member{$name}\n";
}

一列分の処理＝列にデータがある間
[,]を区切り文字として（無効、変数[name]、配列[score]）に格納
合計値、変数[sum]の初期化
配列からリスト値を取り出し、変数[sc]に代入、リストがなくなるまで繰り返す
変数[sum]に変数[sc]を足す＝一列分のデータの合計点を求めることが出来る
変数nameをKeyとし、Valueに変数[sum]をもつハッシュ[member]を作る
Valueを比べて、keys(と、そのvalue)を並べ替えたもの
変数[name]とそれをキーとする値の表示

---------------------------------------------------
en_q61.pl
復習してみたけど自分でもわかんなかったわ
はっしゅ！はっしゅ！

[13] mixiユーザー 05月30日 11:46

perl関数リファレンス
http://www.poizun.jp/content/cgi/reference/

ログインすると、みんなのコメントがもっと見れるよ