2008 年脚本编写比赛

Lonki

UID: 21498
帖子: 1
积分: 2
在线时间: 10 分钟

11^# Lonki 发表于 2008-02-19 12:14

Advanced上China就见偶一人在奋战, XD们呢...
前几题Deadline是Feb, 20 (EST)哦

perljoker

UID: 30669
帖子: 88
积分: 202
在线时间: 10 小时

12^# perljoker 发表于 2008-02-19 12:28

明天，lonki兄加油啊

hitsubunnu

UID: 19600
帖子: 1
积分: 2
在线时间: 10 分钟

13^# hitsubunnu 发表于 2008-02-19 15:03

QUOTE:

原帖由 Lonki 于 2008-2-19 12:14 发表
Advanced上China就见偶一人在奋战, XD们呢...
前几题Deadline是Feb, 20 (EST)哦

高级组的
活动2

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl

my @newarray;
my $inum=1;

open(FF,"skaters.txt");
my @array = <FF>;
close(FF);

foreach(@array){
chomp;
my ($name,@linenum) = split(/,/);
@linenum = sort @linenum;
my $results = ($linenum[1]+$linenum[2]+$linenum[3]+$linenum[4]+$linenum[5])/5;
push (@newarray,"$name:$results\n");
}

@newarray = sort {(split(/:/,$b))[1] <=> (split(/:/,$a))[1]} @newarray;
foreach(@newarray){
print "NO.$inum $_";
$inum++;
}

部分答案显示如下

[Copy to clipboard] [ - ]

CODE:

NO.1 Guido Chuffart:88.2
NO.2 Jack Creasey:85.8
NO.3 Cecilia Cornejo:85.4
NO.4 Chase Carpenter:85
NO.5 Martin Chisholm:85
NO.6 Christian Cletus:84.8
NO.7 Bjarke Rust Christensen:83.2
NO.8 Andy Carothers:83

供大家参考（刚学perl不久，别向我仍砖头）

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

14^# churchmice 发表于 2008-02-20 12:09

QUOTE:

原帖由 Lonki 于 2008-2-19 12:14 发表
Advanced上China就见偶一人在奋战, XD们呢...
前几题Deadline是Feb, 20 (EST)哦

leenux是我

Lonki

UID: 21498
帖子: 1
积分: 2
在线时间: 10 分钟

15^# Lonki 发表于 2008-02-20 14:36

看到你了, Come on, baby~
10题都提了, 等结果.
好像scores board一直没更新了.

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

16^# churchmice 发表于 2008-02-20 15:28

QUOTE:

原帖由 Lonki 于 2008-2-20 14:36 发表
看到你了, Come on, baby~
10题都提了, 等结果.
好像scores board一直没更新了.

仰慕
写的痛苦死了
刚提交了四题

evil_knight

UID: 9263
帖子: 45
积分: 103
在线时间: 3 小时

17^# evil_knight 发表于 2008-02-20 19:50

偶是数学白痴！

hitsubunnu

UID: 19600
帖子: 1
积分: 2
在线时间: 10 分钟

18^# hitsubunnu 发表于 2008-02-21 12:05

第一题对了    我的第二题怎么不对？必须只写前三名吗？.

我以为结果都出来了写不写前三名还不是一样的

不是都说美国人很随便吗  怎么跟日本人一样死脑筋

-- 我的又对了  估计昨天没有给分

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

19^# churchmice 发表于 2008-02-21 12:53

QUOTE:

原帖由 hitsubunnu 于 2008-2-21 12:05 发表
第一题对了我的第二题怎么不对？必须只写前三名吗？

是的
可以先sort之后用数组切片来取前三名

第二题有点奇怪
一开始我把注册表导出了,然后读取文件
结果错了
后来用了个模块
结果对了
但是这两次的运行结果一摸一样

hitsubunnu

UID: 19600
帖子: 1
积分: 2
在线时间: 10 分钟

20^# hitsubunnu 发表于 2008-02-21 18:04

QUOTE:

原帖由 churchmice 于 2008-2-21 12:53 发表

是的
可以先sort之后用数组切片来取前三名

第二题有点奇怪
一开始我把注册表导出了,然后读取文件
结果错了
后来用了个模块
结果对了
但是这两次的运行结果一摸一样

可以用cpan的模块吗？不是自己写的能行吗