📁
SKYSHELL MANAGER
PHP v8.1.29
Create
Create
Path:
root
/
var
/
www
/
html
/
wxwpsite
/
fungiftdeals
/
wp-admin
/
Name
Size
Perm
Actions
📁
css
-
0755
🗑️
🏷️
🔒
📁
images
-
0755
🗑️
🏷️
🔒
📁
includes
-
0755
🗑️
🏷️
🔒
📁
js
-
0755
🗑️
🏷️
🔒
📁
maint
-
0755
🗑️
🏷️
🔒
📁
network
-
0755
🗑️
🏷️
🔒
📁
user
-
0755
🗑️
🏷️
🔒
📄
about.php
6.83 KB
0444
🗑️
🏷️
⬇️
✏️
🔒
📄
admin-footer.php
2.75 KB
0644
🗑️
🏷️
⬇️
✏️
🔒
📄
admin.php
12.63 KB
0644
🗑️
🏷️
⬇️
✏️
🔒
📄
async-upload.php
5.47 KB
0644
🗑️
🏷️
⬇️
✏️
🔒
📄
authorize-application.php
10.09 KB
0644
🗑️
🏷️
⬇️
✏️
🔒
📄
comment.php
11.37 KB
0644
🗑️
🏷️
⬇️
✏️
🔒
📄
config.php
6.83 KB
0444
🗑️
🏷️
⬇️
✏️
🔒
📄
custom-header.php
0.49 KB
0644
🗑️
🏷️
⬇️
✏️
🔒
📄
customize.php
11.21 KB
0644
🗑️
🏷️
⬇️
✏️
🔒
📄
data.php
6.83 KB
0444
🗑️
🏷️
⬇️
✏️
🔒
📄
edit-form-blocks.php
14.73 KB
0644
🗑️
🏷️
⬇️
✏️
🔒
📄
edit.php
19.48 KB
0644
🗑️
🏷️
⬇️
✏️
🔒
📄
export-personal-data.php
7.75 KB
0644
🗑️
🏷️
⬇️
✏️
🔒
📄
font-library.php
1.01 KB
0644
🗑️
🏷️
⬇️
✏️
🔒
📄
home.php
6.83 KB
0444
🗑️
🏷️
⬇️
✏️
🔒
📄
index.php
7.68 KB
0644
🗑️
🏷️
⬇️
✏️
🔒
📄
media-upload.php
3.58 KB
0644
🗑️
🏷️
⬇️
✏️
🔒
📄
menu-header.php
9.82 KB
0644
🗑️
🏷️
⬇️
✏️
🔒
📄
network.php
5.39 KB
0644
🗑️
🏷️
⬇️
✏️
🔒
📄
press-this.php
2.41 KB
0644
🗑️
🏷️
⬇️
✏️
🔒
📄
privacy.php
2.83 KB
0644
🗑️
🏷️
⬇️
✏️
🔒
📄
setup-config.php
17.52 KB
0644
🗑️
🏷️
⬇️
✏️
🔒
📄
themes.phpwp-update.php
114.83 KB
0644
🗑️
🏷️
⬇️
✏️
🔒
📄
update.php
12.76 KB
0644
🗑️
🏷️
⬇️
✏️
🔒
📄
user-edit.php
40.35 KB
0644
🗑️
🏷️
⬇️
✏️
🔒
📄
widgets-form-blocks.php
5.12 KB
0644
🗑️
🏷️
⬇️
✏️
🔒
📄
wp-mail.php
6.83 KB
0444
🗑️
🏷️
⬇️
✏️
🔒
📄
xmlrpc.php
6.83 KB
0444
🗑️
🏷️
⬇️
✏️
🔒
Edit: primes.pl
#!/usr/bin/perl -w ############################################################################### ## ## ## Copyright (c) 1995 - 2013 by Steffen Beyer. ## ## All rights reserved. ## ## ## ## This program is free software; you can redistribute it ## ## and/or modify it under the same terms as Perl itself. ## ## ## ############################################################################### use strict; use vars qw($limit $set $start $stop $min $max $norm $i $j); use Bit::Vector; print "\n***** Calculating Prime Numbers - The Sieve Of Erathostenes *****\n"; $limit = 0; if (-t STDIN) { while ($limit < 16) { print "\nPlease enter an upper limit (>15): "; $limit = <STDIN>; if ($limit =~ /^\s*(\d+)\s*$/) { $limit = $1; } else { $limit = 0; } } print "\n"; } else { $limit = 100; print "\nRunning in batch mode - using $limit as upper limit.\n\n"; } $set = Bit::Vector->new($limit+1); print "Calculating the prime numbers in the range [2..$limit]...\n\n"; $start = time; $set->Primes(); ## Alternative (slower!): #$set->Fill(); #$set->Bit_Off(0); #$set->Bit_Off(1); #for ( $j = 4; $j <= $limit; $j += 2 ) { $set->Bit_Off($j); } #for ( $i = 3; ($j = $i * $i) <= $limit; $i += 2 ) #{ # for ( ; $j <= $limit; $j += $i ) { $set->Bit_Off($j); } #} $stop = time; &print_elapsed_time; $min = $set->Min(); $max = $set->Max(); $norm = $set->Norm(); print "Found $norm prime numbers in the range [2..$limit]:\n\n"; for ( $i = $min, $j = 0; $i <= $max; $i++ ) { if ($set->contains($i)) { print "prime number #", ++$j, " = $i\n"; } } print "\n"; exit; sub print_elapsed_time { my($flag) = 0; my($sec,$min,$hour,$year,$yday) = (gmtime($stop - $start))[0,1,2,5,7]; $year -= 70; print "Elapsed time: "; if ($year > 0) { printf("%d year%s ", $year, ($year!=1)?"s":""); $flag = 1; } if (($yday > 0) || $flag) { printf("%d day%s ", $yday, ($yday!=1)?"s":""); $flag = 1; } if (($hour > 0) || $flag) { printf("%d hour%s ", $hour, ($hour!=1)?"s":""); $flag = 1; } if (($min > 0) || $flag) { printf("%d minute%s ", $min, ($min!=1)?"s":""); } printf("%d second%s.\n\n", $sec, ($sec!=1)?"s":""); } __END__
Save