REDROOM
PHP 8.2.32
Path:
Logout
Edit File
Size: 710 B
Close
//usr/share/doc/bc/Examples/twins.b
Text
Base64
/* An example that finds all primes between 2 and limit. */ define primes (limit) { auto num, p, root, i prime[1] = 2; prime[2] = 3; num = 2; scale = 0; for ( p=5; p <= limit; p += 2) { root = sqrt(p); isprime = 1; for ( i = 1; i < num && prime[i] <= root; i++ ) { if ( p % prime[i] == 0 ) { isprime = 0; break; } } if (isprime) { num += 1; prime [num] = p; } } } print "\ntyping 'twins (10)' will print all twin primes less than 10.\n" define twins (limit) { auto i; i = primes(limit+2); for (i=1; prime[i] > 0; i++) { if ((prime[i]+2) == prime[i+1]) \ print "twins are ", prime[i], " and ", prime[i+1], "\n" } }
Save
Close
Exit & Reset
Text mode: syntax highlighting auto-detects file type.
Directory Contents
Dirs: 0 × Files: 4
Delete Selected
Select All
Select None
Sort:
Name
Size
Modified
Enable drag-to-move
Name
Size
Perms
Modified
Actions
ckbook.b
330 B
lrw-r--r--
2000-07-07 23:34:09
Edit
Download
Rename
Chmod
Change Date
Delete
OK
Cancel
recursive
OK
Cancel
recursive
OK
Cancel
pi.b
1.16 KB
lrw-r--r--
2000-07-07 23:34:09
Edit
Download
Rename
Chmod
Change Date
Delete
OK
Cancel
recursive
OK
Cancel
recursive
OK
Cancel
primes.b
633 B
lrw-r--r--
2000-07-07 23:34:09
Edit
Download
Rename
Chmod
Change Date
Delete
OK
Cancel
recursive
OK
Cancel
recursive
OK
Cancel
twins.b
710 B
lrw-r--r--
2000-07-07 23:34:09
Edit
Download
Rename
Chmod
Change Date
Delete
OK
Cancel
recursive
OK
Cancel
recursive
OK
Cancel
Zip Selected
If ZipArchive is unavailable, a
.tar
will be created (no compression).