24 game/Solve: Difference between revisions

Content added Content deleted
Line 7,361: Line 7,361:


[ [] numorders witheach
[ [] numorders witheach
[ oporders witheach
[ oporders witheach
[ dip dup join nested
[ dip dup join nested
rot swap join swap ]
rot swap join swap ]
drop ] ] constant is allorders ( --> [ )
drop ] ] constant is allorders ( --> [ )


Line 7,375: Line 7,375:
[ 0 1 2 4 3 5 6 ] ]
[ 0 1 2 4 3 5 6 ] ]
witheach
witheach
[ dip dup reorder swap ]
[ dip dup reorder swap ]
4 pack ] is orderings ( [ --> [ )
4 pack ] is orderings ( [ --> [ )