[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
有种使用excel的冲动
1

评分人数

    • ivor: 我就是从Excel想出来的这个问题。技术 + 1

TOP

本帖最后由 xczxczxcz 于 2019-5-31 06:54 编辑

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

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

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

评分人数

    • ivor: 代码呢技术 + 1

TOP

  1. use Encode;
  2. use File::Slurp;
  3. STDOUT->autoflush(1);
  4. my @lines = read_file("src.txt");
  5. my $head = shift @lines;
  6. my @mat = map { s/\r?\n$//; [split " ", $_]; } @lines;
  7. @mat = sort {
  8.     $a->[0] <=> $b->[0] ||
  9.     $b->[1] <=> $a->[1] ||
  10.     $a->[2] <=> $b->[2] ||
  11.     $b->[3] <=> $a->[3] ||
  12.     $a->[4] <=> $b->[4]
  13. } @mat;
  14. grep { printf "%s\n", join(",", @$_); } @mat;
复制代码
  1. 62,75,65,71,63
  2. 64,70,74,75,72
  3. 66,63,77,75,79
  4. 71,63,79,60,70
  5. 74,75,72,61,61
  6. 74,64,74,78,69
  7. 79,77,70,77,67
  8. 79,76,62,62,77
  9. 79,64,72,62,76
复制代码
不知道理解的对不对,升降升降升,分级排序。
1

评分人数

    • ivor: 学习了技术 + 1

TOP

返回列表