Forest fire: Difference between revisions

=={{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]]