Hatena::Groupperl

Press::Alt_R

2010-07-16

Perlわかば(シュウォーツ変換)

#!perl
use strict;

# Schwartzian transform


my @DATA = map{chomp;$_}<DATA>; # remove CRLF and store in ARRAY

my @sorted_data = 
  map{$_->[0]}
  sort{$a->[1] <=> $b->[1]}
  map{[$_, (split /:/, $_)[1] ]} @DATA;
;
print map{$_ . "\n"} @sorted_data;

__DATA__
Yamada:10:1
Sato:2:1
Kato:5:2
Furukawa:1:1
Suzuki:4:2
Ito:7:3
Yamaoka:3:3
Masuno:6:1
Mizuhara:8:3
Akatsuka:9:1

ゲスト



トラックバック - http://perl.g.hatena.ne.jp/altr/20100716