Data update
This commit is contained in:
parent
5150844a7d
commit
4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
|
|
@ -1,4 +1,4 @@
|
|||
BEGIN # find tau numbers - numbers divisible by the count of theoir divisors #
|
||||
BEGIN # find tau numbers - numbers divisible by the count of their divisors #
|
||||
# calculates the number of divisors of v #
|
||||
PROC divisor count = ( INT v )INT:
|
||||
BEGIN
|
||||
|
|
|
|||
|
|
@ -1,9 +1,10 @@
|
|||
tau: function [x] -> size factors x
|
||||
tauFun: function [x] -> size factors x
|
||||
|
||||
found: 0
|
||||
i:1
|
||||
|
||||
while [found<100][
|
||||
if 0 = i % tau i [
|
||||
if 0 = i % tauFun i [
|
||||
prints pad to :string i 5
|
||||
found: found + 1
|
||||
if 0 = found % 10 -> print ""
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
-- 8 May 2025
|
||||
include Settings
|
||||
-- 24 Aug 2025
|
||||
include Setting
|
||||
|
||||
call Time('r')
|
||||
call Timer 'x'
|
||||
say 'TAU NUMBER'
|
||||
say version
|
||||
say
|
||||
|
|
@ -26,9 +26,4 @@ end
|
|||
say
|
||||
return
|
||||
|
||||
include Sequences
|
||||
include Functions
|
||||
include Special
|
||||
include Constants
|
||||
include Helper
|
||||
include Abend
|
||||
include Math
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue