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

A-M baby

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 21:29:02 -07:00
parent 764da6cbbb
commit db842d013d
19005 changed files with 197040 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Task/Digital-root/J/digital-root-1.j Normal file
View file

@ -0,0 +1,2 @@
digrot=: +/@(#.inv~&10)^:_
addper=: _1 + [: # +/@(#.inv~&10)^:a:

5
Task/Digital-root/J/digital-root-2.j Normal file
View file

@ -0,0 +1,5 @@
(, addper, digrot)&> 627615 39390 588225 393900588225
627615 2 9
39390 2 6
588225 2 3
393900588225 2 9

1
Task/Digital-root/J/digital-root-3.j Normal file
View file

@ -0,0 +1 @@
equals=: =&(9&|)"0

15
Task/Digital-root/J/digital-root-4.j Normal file
View file

@ -0,0 +1,15 @@
equals table i. 10
┌──────┬───────────────────┐
│equals│0 1 2 3 4 5 6 7 8 9│
├──────┼───────────────────┤
│0 │1 0 0 0 0 0 0 0 0 1│
│1 │0 1 0 0 0 0 0 0 0 0│
│2 │0 0 1 0 0 0 0 0 0 0│
│3 │0 0 0 1 0 0 0 0 0 0│
│4 │0 0 0 0 1 0 0 0 0 0│
│5 │0 0 0 0 0 1 0 0 0 0│
│6 │0 0 0 0 0 0 1 0 0 0│
│7 │0 0 0 0 0 0 0 1 0 0│
│8 │0 0 0 0 0 0 0 0 1 0│
│9 │1 0 0 0 0 0 0 0 0 1│
└──────┴───────────────────┘

2
Task/Digital-root/J/digital-root-5.j Normal file
View file

@ -0,0 +1,2 @@
digrt=: +/@(#.inv)^:_
addpr=: _1 + [: # +/@(#.inv)^:a:

3
Task/Digital-root/Mathematica/digital-root.mathematica Normal file
View file

@ -0,0 +1,3 @@
seq[n_, b_] := FixedPointList[Total[IntegerDigits[#, b]] &, n];
root[n_Integer, base_: 10] := If[base == 10, #, BaseForm[#, base]] &[Last[seq[n, base]]]
persistance[n_Integer, base_: 10] := Length[seq[n, base]] - 2;