Data update

This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions

View file

@ -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

View file

@ -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 ""

View file

@ -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