d6
/
modal
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix arith

This commit is contained in:
~d6 2024-05-27 14:26:40 -07:00
parent 7ad9bc4e51
commit 9b73e93fd4
2 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
arith.modal
View File

@ -431,7 +431,7 @@
<> ((astr1 (N ?k) (N ?x) ?a)) ((astr2 (N ?k) (divmod (N ?x) (N ten)) ?a))
<> ((astr2 (N ?k) ((N ?q) (N ?r)) ?a)) ((astr1 (dec (N ?k)) (N ?q) ((decimal ?r) ?a)))
-- ( first 16 convergents of the continued fraction. the 14th term provides more precision than 64-bit floating point
-- ( first 16 convergents of the continued fraction. the 14th term provides more precision than 64-bit floating point )
<> (pi/cf) (((nat 3) ((nat 7) ((nat 15) ((nat 1) ((nat 292) ((nat 1) ((nat 1) ((nat 1) ((nat 2) ((nat 1) ((nat 3) ((nat 1) ((nat 14) ((nat 2) ((nat 1) ((nat 1) ())))))))))))))))))
<> ((pi/rat (N ?k))) ((pi/rat1 (N ?k) pi/cf))

1
src/modal.c
View File

@ -346,7 +346,6 @@ main(int argc, char **argv)
case 'p': /* debug */ debug = 1; break;
case 'a': /* access */ access = 1; break;
case 'n': /* infinite */ cycles = 0xffffffff; break;
case 'u': /* unused */ unused = 1; break;
}
}
file_import(argv[i], src_);