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

Update all new Tasks

Browse source
This commit is contained in:
Ingy döt Net 2015-02-20 09:02:09 -05:00
parent 00a190b0a6
commit 91df62d461
5697 changed files with 93386 additions and 804 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Task/Percolation-Mean-cluster-density/J/percolation-mean-cluster-density-1.j Normal file
View file

@ -0,0 +1 @@
congeal=: |.@|:@((*@[*>.)/\.)^:4^:_

12
Task/Percolation-Mean-cluster-density/J/percolation-mean-cluster-density-10.j Normal file
View file

@ -0,0 +1,12 @@
6 trials 3
0.1111111 0.1111111 0.2222222 0.1111111 0.1111111 0.3333333
6 trials 10
0.16 0.12 0.09 0.1 0.1 0.03
6 trials 30
0.05666667 0.1033333 0.08222222 0.07444444 0.08333333 0.07666667
6 trials 100
0.069 0.0678 0.0666 0.0677 0.0653 0.0739
6 trials 300
0.06563333 0.06663333 0.06713333 0.06727778 0.06658889 0.06664444
6 trials 1000
0.066079 0.066492 0.065847 0.065943 0.066318 0.065998

13
Task/Percolation-Mean-cluster-density/J/percolation-mean-cluster-density-11.j Normal file
View file

@ -0,0 +1,13 @@
mean=: +/%#
mean 8 trials 3
0.1805556
mean 8 trials 10
0.0875
mean 8 trials 30
0.07486111
mean 8 trials 100
0.0690625
mean 8 trials 300
0.06749861
mean 8 trials 1000
0.06616738

1
Task/Percolation-Mean-cluster-density/J/percolation-mean-cluster-density-12.j Normal file
View file

@ -0,0 +1 @@
thru=: <./ + i.@(+*)@-~

16
Task/Percolation-Mean-cluster-density/J/percolation-mean-cluster-density-13.j Normal file
View file

@ -0,0 +1,16 @@
(idclust 0.5 > 0 ?@$~ 15 15) {'.', 'A' thru&.(a.&i.) 'Z'
A.......B..C...
AAAA...D..E.F..
A..A.G.D.D.FFF.
AA..H..DDD.FF.I
AAA...J...FFF..
..AAAA.A.K...AA
LL.A...A..A.AAA
.L.A..AAA.AAAAA
..AA.AAA.AAA.A.
AA.AAAAAA....A.
A.AAAA.AAAA.AA.
AAA...AAA.AAAAA
..AA..A.A...AAA
.M.A.AA.AA..AA.
.MM..A.N..O..A.

11
Task/Percolation-Mean-cluster-density/J/percolation-mean-cluster-density-14.j Normal file
View file

@ -0,0 +1,11 @@
congeal=: |.@|:@((*@[*>.)/\.)^:4^:_
idclust=: $ $ [: (~. i.])&.(0&,)@,@congeal ] * 1 + i.@$
K=: (%&#~ }.@~.)&,
experiment=: K@ idclust@: > 0 ?@$~ ,~
trials=: 0.5&experiment"0@#
mean=:+/ % #
thru=: <./ + i.@(+*)@-~

22
Task/Percolation-Mean-cluster-density/J/percolation-mean-cluster-density-2.j Normal file
View file

@ -0,0 +1,22 @@
M=:0.4>?6 6$0
M
1 0 0 0 0 0
0 0 0 1 0 0
0 0 0 1 0 0
1 1 0 0 0 0
0 0 0 1 0 1
1 1 0 1 1 0
M*p:i.$M
2 0 0 0 0 0
0 0 0 29 0 0
0 0 0 53 0 0
67 71 0 0 0 0
0 0 0 107 0 113
127 131 0 139 149 0
congeal M*p:i.$M
2 0 0 0 0 0
0 0 0 53 0 0
0 0 0 53 0 0
71 71 0 0 0 0
0 0 0 149 0 113
131 131 0 149 149 0

1
Task/Percolation-Mean-cluster-density/J/percolation-mean-cluster-density-3.j Normal file
View file

@ -0,0 +1 @@
idclust=: $ $ [: (~. i.])&.(0&,)@,@congeal ] * 1 + i.@$

14
Task/Percolation-Mean-cluster-density/J/percolation-mean-cluster-density-4.j Normal file
View file

@ -0,0 +1,14 @@
idclust M
1 0 0 0 0 0
0 0 0 2 0 0
0 0 0 2 0 0
3 3 0 0 0 0
0 0 0 4 0 5
6 6 0 4 4 0
(idclust M) {'.ABCDEFG'
A.....
...B..
...B..
CC....
...D.E
FF.DD.

1
Task/Percolation-Mean-cluster-density/J/percolation-mean-cluster-density-5.j Normal file
View file

@ -0,0 +1 @@
K=: (%&#~ }.@~.)&,

2
Task/Percolation-Mean-cluster-density/J/percolation-mean-cluster-density-6.j Normal file
View file

@ -0,0 +1,2 @@
K idclust M
0.1666667

1
Task/Percolation-Mean-cluster-density/J/percolation-mean-cluster-density-7.j Normal file
View file

@ -0,0 +1 @@
experiment=: K@ idclust@: > 0 ?@$~ ,~

4
Task/Percolation-Mean-cluster-density/J/percolation-mean-cluster-density-8.j Normal file
View file

@ -0,0 +1,4 @@
0.4 experiment 6
0.1666667
0.4 experiment 6
0.1944444

1
Task/Percolation-Mean-cluster-density/J/percolation-mean-cluster-density-9.j Normal file
View file

@ -0,0 +1 @@
trials=: 0.5&experiment"0@#