question du jour 2 - le retour

[Booster2ooo]

Node.JS

/!\ remplacez le path C:/Users/Booster/

Code JAVASCRIPT :


var fs = require('fs');
var os = require('os');
fs.readFile('C:/Users/Booster/inputFile.txt', 'ascii', function(err, data) {
        if (err) {
            return console.log(err);
        }
        var EOL = os.EOL
          , groups = data.split(EOL+EOL)
          , result = []
          ;
        for(var i = 0,c=groups.length;i<c;i++) {
            var values = groups[i].split(EOL);
            values = values.sort(function(a,b) {
                return a - b;
            });
            result = result.concat(values);
            result.push(EOL);
        }
        console.log(result.join(EOL));
        return;
    }
);
 

---

Autre sample C#, sans l'utilisation de la lib LINQ

Code CSHARP :


using System;
using System.Text;
using System.IO;
using System.Collections;

namespace NPNQDJ
{
    class Program
    {
        public class StringAsIntComparer : IComparer
        {
            public int Compare(object l, object r)
            {
                return Int32.Parse((string)l).CompareTo(Int32.Parse((string)r));
            }
        }

        static void Main()
        {
            string fileName = "inputFile.txt";
            string fullPath = AppDomain.CurrentDomain.BaseDirectory + fileName;
            if (File.Exists(fullPath))
            {
                string fileContent = File.ReadAllText(fullPath, Encoding.UTF8);
                string[] groups = fileContent.Split(new string[] { System.Environment.NewLine + System.Environment.NewLine }, StringSplitOptions.RemoveEmptyEntries);
                foreach (string group in groups)
                {
                    string[] values = group.Split(new string[] { System.Environment.NewLine }, StringSplitOptions.RemoveEmptyEntries);
                    Array.Sort(values, new StringAsIntComparer());
                    foreach (var val in values)
                    {
                        Console.WriteLine(val);
                    }
                    Console.WriteLine();
                }
            }
        }
    }
}
 

[balis]

[Dobry]

Bon on s'est rendu compte avec gruik que le solution ruby n'allait définitivement pas, en fait IO.readlines charge tout le fichier en mémoire, et voici donc une solution alternative (écrite par gruik, un peu modifiée par mes soins), qui permet au moins de charger le gros fichier, cependant le temps d'execution reste assez élevé (13-14s si je me souviens bien).

Code RUBY :


#!/usr/bin/env ruby
arr = []
File.open(ARGV[0]).each_line do |line|
        if line.length != 1
                arr << line.to_i
        else
                if arr.length != 0
                        puts arr.sort
                        puts
                        arr.clear
                end
        end
end
 

[Booster2ooo]

Encore un, PHP:

Note: le file_get_contents est peu être un peu violent, ça peut être remplacé par du fopen

Code PHP :


<?php
        $EOL = PHP_EOL;
        $fileContent = file_get_contents('inputFile.txt');
        $groups = explode($EOL.$EOL,$fileContent);
        unset($fileContent);
        for($i = 0, $c = count($groups); $i<$c; ++$i)
        {
                $values = explode($EOL, $groups[$i]);
                sort($values,SORT_NUMERIC);
                for($j =0,$k = count($values);$j<$k;++$j)
                {
                        echo $values[$j].PHP_EOL;
                }
                echo PHP_EOL;
        }
?>
 

[notfound]

En parlant de ruby sur un autre channel, j'en suis venu à montrer ce thread.

TsT a proposé son code en LUA, que je poste à son nom :

Code LUA :


local f = arg[1]
local fd = assert(io.open(f, 'r'))
local res = {}
local b = {}
while true do
        local line = fd:read('*l')
        if not line or line == "" then
                if #b > 0 then
                        table.sort(b)
                        res[#res+1] = b
                        b = {}
                end
                if not line then break end
        else
                b[#b+1] = tonumber(line)
        end
end
fd:close()
 
for i,v in ipairs(res) do
        res[i] = table.concat(v, "\n")
end
print(table.concat(res, "\n\n"))

 
-- En minimisé oneliner

fd=io.open(arg[1],"r");res,b={},{};while true do local line=fd:read("*l");if not line or line=="" then if #b>0 then table.sort(b);res[#res+1]=b;b={} end if not line then break end else b[#b+1]=tonumber(line) end end;fd:close();for i,v in ipairs(res) do res[i]=table.concat(v,"\n") end;print(table.concat(res,"\n\n"))


-- Et avec un module

local strong = require("strong") -- https://github.com/BlackBulletIV/strong
local powertable = require("powertable") -- TsT small module
 
local function tprint(t) for aa,bb in ipairs(t) do print("      ", aa,bb) end end
 
local f = arg[1]
local fd = assert(io.open(f, "r"))
local res = {}
for elem in fd:read("*a"):lines("\n\n") do
        res[#res+1] = powertable( elem:chomp()plit("\n", true) ):tsort( function(x,y) return tonumber(x) < tonumber(y) end ):concat("\n")
end
print(table.concat(res, "\n\n"))


-- Optimisé performance

local function process_data(fd, para_handler)
        local buf = {} -- buffer for each lines of the current paragraph
        while true do
                local line = fd:read("*l") -- read one line
                if not line then break end -- stop if the end of file is reached
                if line == "" then -- a empty line = end of paragraph
                        para_handler(buf)
                        buf = {} -- reset buffer
                else
                        table.insert(buf, tonumber(line))
                end
        end      
        para_handler(buf)
end
 
local function para_handler(buf, eof)
        -- new paragraph ready
        table.sort(buf)
        print(table.concat(buf, "\n").."\n")
end
           
local f = arg[1]
local fd = assert(io.open(f, "r"))
process_data(fd, para_handler)
fd:close()
 

Voilà.
Temps et conso dernier code (d'après gruik):
Time : 8,80s
Conso : < 5k

[wapiflapi]