成绩单排序（多条件）挑战

ivor

同时满足以下条件：
1.语文升序
2.数学降序
3.英语升序
4.化学降序
5.生物升序

每一行的数据不能改变，排序最小单位是行，条件是列

不限制语言，数据约1w条。1秒内

样本：

语文 数学 英语 化学 生物
79 77 70 77 67
64 70 74 75 72
79 64 72 62 76
62 75 65 71 63
79 76 62 62 77
66 63 77 75 79
74 75 72 61 61
71 63 79 60 70
74 64 74 78 69

抛砖引玉

GC "1.txt"  | select @{name='语文'; expression={$_.split(" ")[0]}},
@{name='数学'; expression={$_.split(" ")[1]}},
@{name='英语'; expression={$_.split(" ")[2]}},
@{name='化学'; expression={$_.split(" ")[3]}},
@{name='生物'; expression={$_.split(" ")[4]}} | `
Sort-Object -Property @{Expression = {$_.语文}; Ascending = $true},
@{Expression = {$_.数学}; Ascending = $false},
@{Expression = {$_.英语}; Ascending = $true},
@{Expression = {$_.化学}; Ascending = $false},
@{Expression = {$_.生物}; Ascending = $true}
复制代码

523066680

use Encode;
use File::Slurp;
STDOUT->autoflush(1);

my @lines = read_file("src.txt");
my $head = shift @lines;

my @mat = map { s/\r?\n$//; [split " ", $_]; } @lines;

@mat = sort {
    $a->[0] <=> $b->[0] ||
    $b->[1] <=> $a->[1] ||
    $a->[2] <=> $b->[2] ||
    $b->[3] <=> $a->[3] ||
    $a->[4] <=> $b->[4]
} @mat;

grep { printf "%s\n", join(",", @$_); } @mat;
复制代码

62,75,65,71,63
64,70,74,75,72
66,63,77,75,79
71,63,79,60,70
74,75,72,61,61
74,64,74,78,69
79,77,70,77,67
79,76,62,62,77
79,64,72,62,76
复制代码

不知道理解的对不对，升降升降升，分级排序。

xczxczxcz

把你的数据复制粘贴了15363多条，耗时 1.06秒。

修改了一下返回值： 现在 0.8秒。

再试试C#.
用VSCODE  写C#  编译结果15ms  输出到文本24ms。VS2019 编译 27ms  写入文本56ms。

老刘1号

有种使用excel的冲动

WHY

var fso = new ActiveXObject('Scripting.FileSystemObject');
var txt = fso.OpenTextFile('1.txt', 1).ReadAll();

var arr = txt.replace(/^(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)(?:\r\n|$)/mg,
    function(s0, s1, s2, s3, s4, s5){
        return 100 + 1*s1 + '' + (200 - s2) + '' + (100 + 1*s3) + '' + (200 - s4) + '' + (100 + 1*s5) + ' ' + s0;
    }
).split(/\r\n/).sort();

fso.OpenTextFile('2.txt', 2, true).Write(arr.join('\r\n').replace(/^\d+ /mg, ''));
复制代码

WHY

$Code = @"
    using System;
    using System.Linq;
    using System.Text.RegularExpressions;
    using System.Collections.Generic;

    public static class Program {
        public static IEnumerable<string> Run(string[] lines) {
            var query = from line in lines
                        let m = Regex.Match(line, @"^(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)$")
                        where m.Success == true
                        orderby int.Parse(m.Groups[1].Value), int.Parse(m.Groups[2].Value) descending, int.Parse(m.Groups[3].Value),
                                int.Parse(m.Groups[4].Value) descending, int.Parse(m.Groups[5].Value)
                        select line;
            return query;
        }
    }
"@;
Add-Type -TypeDefinition $Code;
$arr = [IO.File]::ReadAllLines('1.txt');
[IO.File]::WriteAllLines('2.txt', [Program]::Run($arr));
pause
复制代码

CrLf

用bat对付一万行的数据，到1.4秒貌似下不去了：

@echo off & setlocal enabledelayedexpansion

echo %time% - 开始

for /l %%a in (0 1 99) do (
	set /a B=10%%a,L=200-%%a
	set B%%a=!B:~-2!
	set L%%a=!L:~-2!
)

set B100=xx
set L100=--

echo %time% - 构建映射表

(for /f "skip=1 tokens=1-5" %%a in (test.txt) do (
	echo !B%%a!!L%%b!!B%%c!!L%%d!!B%%e! %%a %%b %%c %%d %%e
))>tmp.txt

echo %time% - 输出临时文件

(echo 语文 数学 英语 化学 生物
for /f "tokens=1*" %%a in ('sort tmp.txt') do echo %%b
)>out.txt

echo %time% - 结束

pause & exit /b
复制代码

附测试数据生成脚本

@echo off & setlocal enabledelayedexpansion
(echo 语文 数学 英语 化学 生物
for /l %%a in (1 1 10000) do (
	set /a R1=!random!%%101,R2=!random!%%101,R3=!random!%%101,R4=!random!%%101,R5=!random!%%101
	echo !R1! !R2! !R3! !R4! !R5!
))>test.txt
pause
复制代码

ivor

回复 7# CrLf


    结果不正确，少一行数据

523066680

加糖，类似5楼操作。
pack - "C"  An unsigned char (octet) value.
打包后的数据是字节对齐的。

use File::Slurp;
STDOUT->autoflush(1);
my @lines = read_file("src.txt");
my $head = shift @lines;

grep { 
    my $it = 0;
    printf "%s\n", join(",", map { $it++%2 ? 100-$_ : $_ } unpack("C*", $_));
} sort map {
        my $it = 0;
        s/\r?\n$//;
        pack("C*", map { $it++%2 ? 100-$_ : $_ } split " ", $_);
    } @lines;
复制代码

523066680

PS+C Sharp 处理1W行具体时间是多少， 不懂PS 和 C Sharp

在网上找了一下 时间获取方法：

$start = Get-Date
# 中间代码
$end = Get-Date
Write-Host -ForegroundColor Red ('Total Runtime: ' + ($end - $start).TotalSeconds)
复制代码

Total Runtime: 0.1280073

perl pack 字节流方案  0.08 秒

去掉 unpack 改为按数组索引处理

use File::Slurp;
use Time::HiRes qw/time/;
my $ta = time();
my @lines = read_file("test.txt");
my $head = shift @lines;
my $buff = "";

my @dupl = map {
    my $it = 0;
    s/\r?\n$//;
    pack("C*", map { $it++%2 ? 100-$_ : $_ } split " ", $_);
} @lines;

my @idx = sort { $dupl[$a] cmp $dupl[$b] } (0..$#dupl);
grep { $buff .= $lines[$_] ."\r\n" } @idx;
write_file("pl_out.txt", {binmode=>"raw"}, $buff);
printf "%.3f\n", time() - $ta;
复制代码

含文件输出 0.046s

2楼代码改文件输出 0.045s

WHY

回复 11# 523066680


    是的，如果非常在意零点几秒速度的话，这个问题用 PowerShell 来解不合适，甚至比不过 js 脚本。
但多一种解题思路总是好的，并且 PowerShell 功能强大，速度也不算慢。关键是用它能方便地解决问题，又是系统自带，我认为这就够了。

523066680

回复 12# WHY

    不在意秒，之前也未报时间。而是ivor写的 "最" 有一种钦定的意思，后面还有未发帖的人呢。ivor已经回复我了。

cfwyy77_bat

小白来个python版的：

file = "test.txt"
result = "res.txt"
with open(file,"r",encoding="utf8") as f:
    head = f.readline()    #读第一行头
    gen = (tuple(int(x) for x in line.split()) for line in f)
    res = sorted(gen,key=lambda x:(x[0],-x[1],x[2],-x[3],x[4]))  #多条件排序，取负值按降序

with open(result,"w") as f:
    f.write(head)         #写第一行头
    for i in res:
        f.write(" ".join(str(x) for x in i)) #拼接成字符串写入
        f.write("\n")
复制代码

python性能肯定不是最快的，用了7楼CrLf生成的测试数据1W条，运行完成时间是0.33秒左右。

Batcher

有种使用数据库的冲动

CrLf

回复 8# ivor


    skip=1跳过标题行了。测试数据不包含标题行吗？