aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2024-11-04 20:28:54 -08:00
parent 52a6ef48dd
commit 157b70a810
604 changed files with 14253 additions and 2100 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Task/Fractran/REXX/fractran-3.rexx
View file

@ -29,7 +29,7 @@ call Time('r')
say 'First' t 'terms of the sequence:'
do i = 2 to t
do j = 1 to w
if \ IsWhole(n/d.j) then
if \ Whole(n/d.j) then
iterate
call CharOut ,Right(n,9)
if i//10 = 0 then
@ -57,7 +57,7 @@ say 'Prime numbers:'
n = 2; p = 0
do i = 2 to 1300000
do j = 1 to w
if \ IsWhole(n/d.j) then
if \ Whole(n/d.j) then
iterate j
if p.n then do
p = p+1