- 1 名前：名無しさん＠お腹いっぱい。 [02/11/03 20:49]
- パート２ですよ,にーさん
- 259 名前：名無しさん＠お腹いっぱい。 mailto:sage [03/03/15 03:15]
- 単純なソートでいいかと思ったら複数行あるとまずかったのか。
適当なスクリプトってこんなもんでどう?
#!/usr/bin/ruby
lines = []
line = nil
while line = gets
while /\\\Z/ === line
line << gets
end
lines << line
end
print lines.sort
# This code is PDS.
- 260 名前：This code is PDS mailto:sage [03/03/15 03:27]
- ついでにperl版。
誰かzsh版希望。
#!/usr/bin/perl -w
use strict;
my @lines;
while (<>) {
while (/\\\Z/) {
$_ .= <>;
}
push @lines, $_;
}
print sort(@lines);
# This code is PDS.
|
 |
