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

Initial data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 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:

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

@ -0,0 +1,4 @@
10 digrt 627615
9
10 addpr 627615
2