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 2024-07-13 15:19:22 -07:00
parent 29a5eea0d4
commit 5c1bb7bfa9
2011 changed files with 35081 additions and 3229 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Task/Percolation-Bond-percolation/11l/percolation-bond-percolation.11l
View file

@ -3,12 +3,7 @@ F nonrandom()
:seed = 1664525 * :seed + 1013904223
R Int(:seed >> 16) / Float(FF'FF)
T Grid
[[Int]] cell, hwall, vwall
F (cell, hwall, vwall)
.cell = cell
.hwall = hwall
.vwall = vwall
T Grid = ([[Int]] cell, [[Int]] hwall, [[Int]] vwall)
V (M, nn, t) = (10, 10, 100)
@ -37,7 +32,7 @@ F pgrid(grid, percolated)
V where = percolated[0]
print(‘!) ’(‘ ’ * where)‘ ’f[1])
F flood_fill(m, n, &cell, hwall, vwall) -> N
F flood_fill(m, n, &cell, hwall, vwall) -> Void
cell[n][m] = 1
I n < :nn - 1 & !hwall[n + 1][m] & !cell[n + 1][m]
flood_fill(m, n + 1, &cell, hwall, vwall)