Forest fire: Difference between revisions
Moved Uiua section to correct place
(Added Uiua solution) |
(Moved Uiua section to correct place) |
||
Line 8,025:
0 OK, 0:1236</pre>
=={{header|Uiua}}==▼
[https://www.uiua.org/pad?src=0_12_0-dev_1__IyBCdXJuIGEgZm9yZXN0IGh0dHBzOi8vcm9zZXR0YWNvZGUub3JnL3dpa2kvRm9yZXN0X2ZpcmUKClMg4oaQIDgwClB0IOKGkCAwLjAxClBmIOKGkCAwLjAwMDA1CuKKnig8UHQg4pqC4peM4peMKS7ih6FTCklkeHMg4oaQIOKYhzHiip7iip8u4oehUwpOcyDihpAgW8KvMV_CrzEgwq8xXzAgwq8xXzEgMF_CrzEgMF8xIDFfwq8xIDFfMCAxXzFdCiMgVmFsaWROIOKGkCDilr064p-cKOKGp-KKgyjiiaUw4omhL-KGp3w-4omhL-KGpSkpK05zwqQgICAgIyAocG9zIHNpemUpIC0-IHZhbGlkIG5laWdoYm91cnMKIyBWYWxpZE5zIOKGkCDihq_iip_iiJ464omhKOKWoVZhbGlkTik64p-cKElkeHPil4wpLlMgIyBQcmUtY2FsY3VsYXRlIG5laWdoYm91cnMuCiMgTk9uRmlyZSDihpAgLys9MuKKocKw4pah4oqhOlZhbGlkTnMgICAgICAgICAgIyBOcyBvbiBmaXJlIGF0IHBvcyAocG9zIHN0YXRlKSAtPiBjb3VudC4KIyBOT25GaXJlIOKGkCAvKz0y4qyaMOKKoStOcyDCpCAgICAgICAgICAjIE5zIG9uIGZpcmUgYXQgcG9zIChwb3Mgc3RhdGUpIC0-IGNvdW50LgpOc09uRmlyZSDihpAg4oavU19T4omhKC8rPTLirJow4oqhK05zwqQp4oqZwqRJZHhzICMgQXJyYXkgb2YgTnMgb24gZmlyZSAoc3RhdGUpIC0-IGZpcmVzLgpb4o2lKOKItSjin6g8UHTimoLil4x84p-oKzE8UGbimoJ8MuKfqT4wfOKLhTDin6kp4p-cTnNPbkZpcmUuKTMwMF0K4oeM4omhKOKIteKfqDBfMF8wfDBfMV8wfDFfMF8w4p-pKQriiaEo4pa94p-c4omh4pa9MikgIyBVcHNjYWxlCg== Run it in Uiua Pad!]▼
<syntaxhighlight lang="Uiua">▼
# Burn a forest https://rosettacode.org/wiki/Forest_fire▼
S ← 80▼
Pt ← 0.01▼
Pf ← 0.00005▼
⊞(<Pt ⚂◌◌).⇡S▼
Idxs ← ☇1⊞⊟.⇡S▼
Ns ← [¯1_¯1 ¯1_0 ¯1_1 0_¯1 0_1 1_¯1 1_0 1_1]▼
NsOnFire ← ↯S_S≡(/+=2⬚0⊡+Ns¤)⊙¤Idxs▼
[⍥(∵(⟨<Pt⚂◌|⟨+1<Pf⚂|2⟩>0|⋅0⟩)⟜NsOnFire.)300]▼
⇌≡(∵⟨0_0_0|0_1_0|1_0_0⟩)▼
≡(▽⟜≡▽2) # Upscale▼
</syntaxhighlight>▼
{{out}}▼
[[File:Uiua Forest Fire.png|thumb|center]]▼
=={{header|Vedit macro language}}==
Line 8,226 ⟶ 8,245:
}</syntaxhighlight>
▲=={{header|Uiua}}==
▲[https://www.uiua.org/pad?src=0_12_0-dev_1__IyBCdXJuIGEgZm9yZXN0IGh0dHBzOi8vcm9zZXR0YWNvZGUub3JnL3dpa2kvRm9yZXN0X2ZpcmUKClMg4oaQIDgwClB0IOKGkCAwLjAxClBmIOKGkCAwLjAwMDA1CuKKnig8UHQg4pqC4peM4peMKS7ih6FTCklkeHMg4oaQIOKYhzHiip7iip8u4oehUwpOcyDihpAgW8KvMV_CrzEgwq8xXzAgwq8xXzEgMF_CrzEgMF8xIDFfwq8xIDFfMCAxXzFdCiMgVmFsaWROIOKGkCDilr064p-cKOKGp-KKgyjiiaUw4omhL-KGp3w-4omhL-KGpSkpK05zwqQgICAgIyAocG9zIHNpemUpIC0-IHZhbGlkIG5laWdoYm91cnMKIyBWYWxpZE5zIOKGkCDihq_iip_iiJ464omhKOKWoVZhbGlkTik64p-cKElkeHPil4wpLlMgIyBQcmUtY2FsY3VsYXRlIG5laWdoYm91cnMuCiMgTk9uRmlyZSDihpAgLys9MuKKocKw4pah4oqhOlZhbGlkTnMgICAgICAgICAgIyBOcyBvbiBmaXJlIGF0IHBvcyAocG9zIHN0YXRlKSAtPiBjb3VudC4KIyBOT25GaXJlIOKGkCAvKz0y4qyaMOKKoStOcyDCpCAgICAgICAgICAjIE5zIG9uIGZpcmUgYXQgcG9zIChwb3Mgc3RhdGUpIC0-IGNvdW50LgpOc09uRmlyZSDihpAg4oavU19T4omhKC8rPTLirJow4oqhK05zwqQp4oqZwqRJZHhzICMgQXJyYXkgb2YgTnMgb24gZmlyZSAoc3RhdGUpIC0-IGZpcmVzLgpb4o2lKOKItSjin6g8UHTimoLil4x84p-oKzE8UGbimoJ8MuKfqT4wfOKLhTDin6kp4p-cTnNPbkZpcmUuKTMwMF0K4oeM4omhKOKIteKfqDBfMF8wfDBfMV8wfDFfMF8w4p-pKQriiaEo4pa94p-c4omh4pa9MikgIyBVcHNjYWxlCg== Run it in Uiua Pad!]
▲<syntaxhighlight lang="Uiua">
▲# Burn a forest https://rosettacode.org/wiki/Forest_fire
▲S ← 80
▲Pt ← 0.01
▲Pf ← 0.00005
▲⊞(<Pt ⚂◌◌).⇡S
▲Idxs ← ☇1⊞⊟.⇡S
▲Ns ← [¯1_¯1 ¯1_0 ¯1_1 0_¯1 0_1 1_¯1 1_0 1_1]
▲NsOnFire ← ↯S_S≡(/+=2⬚0⊡+Ns¤)⊙¤Idxs
▲[⍥(∵(⟨<Pt⚂◌|⟨+1<Pf⚂|2⟩>0|⋅0⟩)⟜NsOnFire.)300]
▲⇌≡(∵⟨0_0_0|0_1_0|1_0_0⟩)
▲≡(▽⟜≡▽2) # Upscale
▲</syntaxhighlight>
▲{{out}}
▲[[File:Uiua Forest Fire.png|thumb|center]]
=={{header|Wren}}==
{{trans|Go}}
| |||