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 2025-06-11 20:16:52 -04:00
parent 72eb4943cb
commit 4d5544505c
2347 changed files with 62432 additions and 16731 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Task/M-bius-function/K/m-bius-function.k Normal file
View file

@ -0,0 +1,8 @@
mus:{ / values of mu(i) for i below x
(~~!x) { / initial value: 0 1 1 1 1 ...
y[z *1+!(-z )!x-1]*:-1 / flip sign
y[z*z*1+!(-z*z)!x-1]:0 / set squares to zero
y}[x]/ `pri x} / for each prime below x
(μ:):{mus[1+0|/,//x]x}
`0:"The first 100 values of the μ function:"
`0:,/'-3$$μ 10 10#1+!100