Л
Size: a a a
Л
Л
ps
Л
ps
Л
ps
ps
ps
ps
ps
Л
Л
ps
Л
ps
Л
ps
ps
#!/usr/bin/perl
#use strict;
#use warnings;
my @sc = qw(! @ # $ % ^ & *); my @special640 = ([map { my $b = $_; map { my $c = $_; map { $b . $c . $_} 0..9 } @sc } @sc ]);
my @sc = qw(! @ # $ % ^ & *); my @special6464 = ([map { my $b = $_; map { my $c = $_; map { $b . $c . $_} "000".."100" } @sc } @sc ]);
my @special64 = ([qw <
!! !@ !# !$ !% !^ !& !*
@! @@ @# @$ @% @^ @& @*
#! #@ ## #$ #% #^ #& #*
$! $@ $# $$ $% $^ $& $*
%! %@ %# %$ %% %^ %& %*
^! ^@ ^# ^$ ^% ^^ ^& ^*
&! &@ &# &$ &% &^ && &*
*! *@ *# *$ *% *^ *& **
>]);
@special[0] = @special64, @special[1] = @special640, @special[2] = @special6464;
print for my @testarr = "@special[0]->[9]\n"; #The maximum is 63
print for my @testarr = "@special[1]->[187]\n"; #The maximum is 639
print for my @testarr = "@special[2]->[5988]\n"; #The maximum is 6463
print my $size = $#special + 1;
ps