Rosetta Code

Wave function collapse: Difference between revisions

Page Discussion

Wave function collapse (view source)

Revision as of 10:02, 10 July 2022

No change in size ,  1 year ago
→‎{{header|J}}: use local names for intermediate results in wfc
(→‎{{header|J}}: use local names for intermediate results in wfc)
Line 10:
wfc=: {{
M=. #.,"2 tiles
opts=:. (<each, <@<)M
adj=:. y#.y|"1(y#:,i.y)+"1/0,<:3 3#:1 3 5 7
horz=:. ({."1 -:"1/ {:"1) m
vert=:. ({."2 -:"1/ {:"2) m
id=:. <@I.(=i.#tiles),1 NB. identity constraint
north=:. <@I.vert,1 NB. adj 1 constraint
south=:. <@I.(|:vert),1 NB. adj 7 constraint
west=:. <@I.horz,1 NB. adj 3 constrint
east=:. <@I.(|:horz),1 NB. adj 5 constraint
allow=:. id,north,west,east,:south
i=:. (?#m) (?#i)} i=:. ,y$_1
while. #todo=:. I._1=i do.
wave=:. ([-.-.)L:0/"1 (adj{i){"0 1"1 2 allow
entropy=:. #@>wave
min=. <./ E=:. todo{entropy
if. 0=min do. EMPTY return. end.
ndx=:. todo{~({~ ?@#) I.min=E
i=:. (({~?@#)ndx{::wave) ndx} i
end.
,/"2,/0 2 1 3|:(y$i){m
Rdm
6,962

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/321590"