История изменений

Исправление Nervous, 23.11.14 03:34 (текущая версия) :

А вот это точно раза в 2 быстрее (спасибо анонимусу за данные для тестов).

#! /usr/bin/perl

use 5.010;
use strict;
use warnings;
use utf8;
use open qw(:std :utf8);
use List::MoreUtils qw(uniq);

while (<>) {
    chomp;
    my @letters = split //, $_;
    my @output = uniq @letters;
    say sort @output;
}

Исправление Nervous, 23.11.14 03:33:

А вот это точно раза в 2 быстрее.

#! /usr/bin/perl

use 5.010;
use strict;
use warnings;
use utf8;
use open qw(:std :utf8);
use List::MoreUtils qw(uniq);

while (<>) {
    chomp;
    my @letters = split //, $_;
    my @output = uniq @letters;
    say sort @output;
}

Исходная версия Nervous, 23.11.14 03:33:

А вот это точно раза в 2 быстрее.

#! /usr/bin/perl

use 5.010;
use strict;
use warnings;
use utf8;
use open qw(:std :utf8);
use List::MoreUtils qw/ uniq /;

while (<>) {
    chomp;
    my @letters = split //, $_;
    my @output = uniq @letters;
    say sort @output;
}