请问，有在线的吗？请扔个只保留不重复字符的行

rubyish

1: change floor30.pl setting

1. my $str =
   
2. "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ";
   
3. 
   
4. my $want = 8;
   
5. my $SIZE = 5;    # 5.X G

复制代码

run:
perl floor30.pl > PART

output:

1. head = 0        1142670.44 G
   
2. head = 1        18430.17 G
   
3. head = 2        302.13 G
   
4. head = 3        5.04 G
   
5. gen PART OK
   
6. 
   
7. LENSTR        = 62
   
8. FINISH        = 8
   
9. HEAD        = 3

复制代码

HERE:
LENSTR        = 62
FINISH        = 8
HEAD        = 3

2: change floor30.c

1. // --------- USER ----------
   
2. str STR = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
   
3. # define LENSTR    26
   
4. # define FINISH    8
   
5. # define HEAD      3
   
6. // ---------- E N D --------

复制代码

3: compile floor30.c
gcc -march=native -Ofast floor30.c -o floor30


4: cat file PART(226920 lines)

1. 0 1 2
   
2. 0 1 3
   
3. 0 1 4
   
4. 0 1 5
   
5. 0 1 6
   
6. 0 1 7
   
7. 0 1 8
   
8. 0 1 9
   
9. 0 1 10
   
10. 0 1 11
    
11. ...
    
12. ...
    
13. 61 60 57
    
14. 61 60 58
    
15. 61 60 59

复制代码

5: run
part1:  (FILE SIZE = 5.XG)
0 1 2 => file PART line 1

1. ./floor30 0 1 2 > part1

复制代码

part2:  0 1 3 => file PART line 2

1. ./floor30 0 1 3 > part2

复制代码

partX...

part226920:

1. ./floor30 61 60 59 > part226920

复制代码

floor30.pl

1. #!/usr/bin/perl
   
2. # version 26, subversion 0 (v5.26.0)
   
3. use 5.024;
   
4. 
   
5. # ____________________USER____________________
   
6. 
   
7. my $str = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ";
   
8. 
   
9. my $want = 8;
   
10. my $SIZE = 5;    # G    5.X G
    
11. 
    
12. # ____________________MAIN____________________
    
13. 
    
14. my $LEN = length $str;
    
15. my @num = reverse 1 .. $LEN;
    
16. my $HEAD;
    
17. for my $head ( 0 .. $want ) {
    
18.     my $size = $want + 1;
    
19.     $size *= $_ for @num[ $head .. $want - 1 ];
    
20.     $size /= ( 1024 * 1024 * 1024 );
    
21.     printf STDERR "head = $head\t%.02f G\n", $size;
    
22. 
    
23.     if ( int($size) <= $SIZE ) {
    
24.         $HEAD = $head;
    
25.         last;
    
26.     }
    
27. }
    
28. 
    
29. print STDERR 'gen PART ';
    
30. gimme();
    
31. say STDERR "OK\n";
    
32. say STDERR "LENSTR\t= $LEN";
    
33. say STDERR "FINISH\t= $want";
    
34. say STDERR "HEAD\t= $HEAD\n";
    
35. 
    
36. # ____________________SUB____________________
    
37. sub gimme { E_( [ 0 .. $LEN - 1 ], [] ) }
    
38. 
    
39. sub E_ {
    
40.     my ( $a, $b ) = @_;
    
41.     if ( @$b == $HEAD ) {
    
42.         say "@$b";
    
43.         return;
    
44.     }
    
45.     for my $i ( 0 .. $#$a ) {
    
46.         E_( [ @$a[ 0 .. $i - 1, $i + 1 .. $#$a ] ], [ @$b, $a->[$i] ] );
    
47.     }
    
48. }
    
49. 
    
50. __DATA__
    
51. $_
    

复制代码

floor30.c

1. // gcc -march=native -Ofast floor30.c -o floor30
   
2. 
   
3. # include <stdio.h>
   
4. # include <stdlib.h>
   
5. 
   
6. typedef char kar;
   
7. typedef char *str;
   
8. 
   
9. // --------- U S E R ----------
   
10. str STR = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
    
11. # define LENSTR    26
    
12. # define FINISH    8
    
13. # define HEAD      3
    
14. // ---------- E N D --------
    
15. 
    
16. # define LENDIT    (FINISH + 1)
    
17. kar DAT[LENSTR];
    
18. kar DIT[LENDIT];
    
19. 
    
20. void floor30 (int);
    
21. void help (str);
    
22. 
    
23. /* ____________________ MAIN ____________________ */
    
24. 
    
25. int main (int numa, str *para){
    
26.     if (numa != (HEAD + 1)) help (para[0]);
    
27. 
    
28.     int indes[HEAD];
    
29.     for (int i = 0; i < HEAD; i++) {
    
30.         indes[i] = atoi (para[i + 1]);
    
31.         DIT[i]   = STR[indes[i]];
    
32.     }
    
33. 
    
34.     int head = HEAD;
    
35. 
    
36.     for (int i = 0; i < LENSTR; i++) {
    
37.         int ok = 1;
    
38.         for (int j = 0; j < HEAD; j++)
    
39.             if (i == indes[j]) {
    
40.                 ok--; break;
    
41.             }
    
42. 
    
43.         if (ok) DAT[head++] = STR[i];
    
44.     }
    
45. 
    
46.     floor30 (HEAD);
    
47. } /* main */
    
48. /* _____________________ SUB _____________________ */
    
49. 
    
50. void floor30 (int indes){
    
51.     static int has[LENSTR];
    
52. 
    
53.     if (indes == FINISH) {
    
54.         puts (DIT);
    
55.         return;
    
56.     }
    
57. 
    
58.     for (int i = HEAD; i < LENSTR; i++) {
    
59.         if (has[i]) continue;
    
60.         has[i]     = 1;
    
61.         DIT[indes] = DAT[i];
    
62.         floor30 (indes + 1);
    
63.         has[i] = 0;
    
64.     }
    
65. }
    
66. 
    
67. void help (str app){
    
68.     printf ("\nUSE:\t%s", app);
    
69.     for (int i = 1; i <= HEAD; i++) printf (" n%d", i);
    
70.     puts ("");
    
71.     exit (1);
    
72. }
    

复制代码

bmne

回复 31# rubyish



太牛啦


离我越来越远，真是大牛

不好意思，容我消化消化，努力学习学习中，因我还没装perl




提示我已是最新版，不能再升级了，我升不到5.24以上，

没办法运行31楼的perl floor30.pl

龙牙地主天

1. awk -F '' '{for(i=1;i<=NF;i++) a[$i]=$0 ; if(length(a) < NF) p=0 ; else p=1 ; delete a}p' file

复制代码

bmne

回复 33# 龙牙地主天



大牛

麻烦你看看31楼，回答下我的32楼的问题好吗？

若不升级perl版本   就没办法运行31楼  perl floor30.pl   了吗？

谢谢、谢谢！

rubyish

if your perl 5.020

some.pl

1. use 5.026;

复制代码

5.026 > 5.020 ~
1: try
change some.pl
use 5.020;    # your version

2: ...

bmne

路过看到的大牛，请帮助下。谢谢了、谢谢了

（因  rubyish  作息时间很晚。不在线）


请看看31楼

看 output:  下面的
head = 0
head = 1
head = 2
head = 3
分别是什么意思？

LENSTR  = 62  代表62个指定字符
FINISH  = 8     代表只生成8位的行
HEAD    = 3     这个我不懂是什么意思

另外，这个
my $str = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ";
my $want = 8;                                代表只生成8位的行
my $SIZE = 5;    # G    5.X G          这一行我也不懂是什么意思（是文档的大小分割成5GB吗？）



请帮我下吧，实在是看不明白

jason680

回复 36# bmne

programing is not your cup of tea

孩子辛苦你了 干别的事吧..

bmne

回复 37# jason680



大牛

你有写字这功夫。告诉告诉我不行吗？

我早就说过，我不是吃这碗饭的。但，五音不全的人，就不能看“中国好歌声”了？

jason680

回复 38# bmne

>> ... 但，五音不全的人，就不能看“中国好歌声”了？



"做"(do)跟"看"是两回事......

你一定要知道......那我们就来看看....
0123...789abc..xyzABC..XYZ
62取8 不重复 有多少结果...

存成文档
01234567<回车>
01234568<回车>
....
ZYXWVUTR<回车>
ZYXWVUTS<回车>

# 62取8      在文档中，8字符加回车
62*61*60*59*58*57*56*55 *9

$ echo "62*61*60*59*58*57*56*55*9/1024/1024/1024" | bc
1142670

在文档中，8字符加回车 须 1,142,670 GB（约1.x PB或1024 TB以上）


别说你的硬盘不够大...
很多公司，全公司也没这么大的硬盘容量...

你不是要分“段”取吗？

head= 1
把0xxxxxxx =>放在一文档
把1xxxxxxx =>放在一文档
...
把Zxxxxxxx =>放在一文档
每一个文档需要 1142670 GB / 62 = 18430  GB


head= 2
把01xxxxxx =>放在一文档
把02xxxxxx =>放在一文档
...
把ZXxxxxxx =>放在一文档
把ZYxxxxxx =>放在一文档
每一个文档需要 1142670 GB / (62*61) = 302  GB

head= 3
把012xxxxx =>放在一文档
把013xxxxx =>放在一文档
把014xxxxx =>放在一文档
...
把ZYWxxxxx =>放在一文档
把ZYXxxxxx =>放在一文档
每一个文档需要 1142670 GB / (62*61*60) = 5  GB


就是rubyish写的...
head = 0        1142670.44 G
head = 1        18430.17 G
head = 2        302.13 G
head = 3        5.04 G


其他自已慢慢想...
不然别老想干 你“做”不了的事...

bmne

回复 39# jason680



大牛啊，这么长时间了，我多少能知道点你的脾气了。所以，采用了“激将法”，果然管用。谢谢、谢谢


其实我知道即使不重复字符，输出结果也大的惊人

rubyish  大牛确实好人一个，我心存感激。你看看，进来浏览的数量就能感觉到，还是有很多人喜欢看看rubyish的作品的

我本意是弄明白
head = 0
head = 1
head = 2
head = 3
是什么意思后，想进一步问问rubyish，我只要，运行前，看看不重复字符的混合后的结果是多少即可。其它不要。



谢谢你大牛出手帮助。谢谢、谢谢