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-10-16 18:07:41 -07:00
parent 81fd053722
commit 52a6ef48dd
10248 changed files with 63654 additions and 6775 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Task/Maze-solving/EasyLang/maze-solving.easy
View file

@ -23,7 +23,7 @@ proc m_maze pos . .
show_maze
d[] = [ 1 2 3 4 ]
for i = 4 downto 1
d = randint i
d = random i
dir = offs[d[d]]
d[d] = d[i]
if m[pos + dir] = 1 and m[pos + 2 * dir] = 1
@ -43,7 +43,7 @@ proc make_maze . .
m[n * i - n + 1] = 2
m[n * n - n + i] = 2
.
h = 2 * randint 15 - n + n * 2 * randint 15
h = 2 * random 15 - n + n * 2 * random 15
m_maze h
m[endpos] = 0
.
@ -68,7 +68,7 @@ proc solve dir0 pos . .
found = 1
return
.
of = randint 4 - 1
of = random 4 - 1
for h = 1 to 4
dir = (h + of) mod1 4
posn = pos + offs[dir]