|
|
|
<lang bqn>Rot ← ¬⊸{-⌾(𝕨⊸⊑)⌽𝕩}
Fmt ← {𝕩⊑⊏⟜" #"}¨
_while_ ← {𝔽⍟𝔾∘𝔽_𝕣_𝔾∘𝔽⍟𝔾𝕩}
Ant ← 2⊑{ # Generator Block
p‿d‿g:
rotr ← d Rot˜ p⊑g
⟨
p + rotr
rotr
¬⌾(p⊸⊑)g
⟩
•Show Fmt Ant ⟨50‿50, 0‿1, 100‿100⥊0⟩</lang>
[https://mlochbaum.github.io/BQN/try.html#code=Um90IOKGkCDCrOKKuHst4oy+KPCdlajiirjiipEp4oy98J2VqX0KRm10IOKGkCB78J2VqeKKkSIgIyJ9wqgKX3doaWxlXyDihpAgeKPCdlajiirjiipEp4oy98J2VqX0KRm10IOKGkCDiio/in5wiICMiwqgKX3doaWxlXyDihpAge/CdlL3ijZ/wnZS+4oiY8J2UvV/wnZWjX/CdlL7iiJjwnZS94o2f8J2UvvCdlal9CgpBbnQg4oaQIDLiipF7ICMgR2VuZXJhdG9yIEJsb2NrCiAgcOKAv2TigL9nOgogIHJvdCDihpAgZCBSb3TLnCBw4oqRZwogIOKfqAogICAgcCArIHJvdAogICAgcm90CiAgICDCrOKMvihw4oq44oqRKWcKICDin6kKfSBfd2hpbGVfIHsgICAjIENvbmRpdGlvbiBCbG9jawogIHDigL9k4oCCdlL7iiJjwnZS94o2f8J2UvvCdlal9CgpBbnQg4oaQIDLiipF7ICMgR2VuZXJhdG9yIEJsb2NrCiAgcOKAv2TigL9nOgogIHIg4oaQIGQgUm90y5wgcOKKkWcKICDin6gKICAgIHAgKyByCiAgICByCiAgICDCrOKMvihw4oq44oqRKWcKICDin6kKfSBfd2hpbGVfIHsgICAjIENvbmRpdGlvbiBCbG9jawogIHDigL9k4oC/ZzoKICDiiKfCtChw4omlMOKAvzAp4oincDziiaJnCn0KCuKAolNob3cgRm10IEFudCDin6g1MOKAvzUwLCAw4oC/MSwgMTAw4oC/MTAw4qWKMOKfqQoMTAw4qWKMOKfqQ==&norun Try It!] (Displaying theRunning resultwill takestake some time due to JS, ≈40 secs on my machine)
=={{header|C}}==
|