Maze solving: Difference between revisions
m
→{{header|EasyLang}}
Line 1,434:
=={{header|EasyLang}}==
[https://easylang.dev/show/#cod=hVTbjpswEH33V4zUF5Joqc2ClEjd/ghCFYvNggJ2ZLK73X59Z2xjTFt18wDMmZvn+EyW8ZeCJxAV0/gq4AgLIScQrCecc/gKmYYH4Hl1YJPSMNcNaAzU7Auw57a7vljzqiVwztnNmg6Wwbz/mFssk0POAKCbVGvpozcWRioLdwOhFuH4G3s0xgadPCD4+4lmNmJzcYDZSGwZXR+JS45vqaszE/a5XC4bNJs3hdWO0GNGjyMVWCCxtkirujtiRxB5tb6D183iHsuk1A0Z4YLlzPT9UtPBa5wLmRKQPegDNJ6M2TNxM8vKxlyjEQeNZJEhY50CHqGEJiWtBGneNRInwnkkgrbV0swwrtBoEXQnkrVsVnLpG3GJBKd006FOlNO4O8FSESQlrI6Exn1KclPJmDF5T1vOlJbkf/LqoasLFLVXtdPLf2QSNCLiVexi9T6qiCZ1/BeEh9Ak9r9dOri2LNduCFsSeBdVCKOUHc42UgZ/6358z1vO4tBsUwDuUyDEXh2VqOSVE7cKhO2X4WMHx0XwK4BP13oT/8nJvQziD5ZLGC1uqbMfUfA5e5nMczshvbTaeVhsM2ElvFme6hml5KM2qVh1f7U6khbnuXCv+XV9qpDvZeEJCiU+KWn6TfylkxJ4LQyrFsqQ6FciG3Ba0zvmRPRhO/rb86r1W4PKDk48F+V+++4njtuh/5C+ZyWj2NN6NyV9uvJbXMJTkg0bPRrO5/POE4lK4Jwlb1orHySYPwd3cizYbw== Run it]
<syntaxhighlight lang="text">
size = 15
n = 2 * size + 1
Line 1,498 ⟶ 1,496:
circle f / 3.5
.
proc solve dir0 pos . .
if found = 1
return
.
mark pos 900
sleep 0.05
if pos = endpos
found = 1
.
of = random 4 - 1
Line 1,509 ⟶ 1,511:
dir = (h + of) mod1 4
posn = pos + offs[dir]
if dir <> dir0 and m[posn]
solve (dir + 1) mod 4 + 1 posn
if found = 0
mark posn 888
Line 1,519 ⟶ 1,521:
.
sleep 1
solve 0 n + 2
</syntaxhighlight>
|