Day 12: Garden Groups

Megathread guidelines

  • Keep top level comments as only solutions, if you want to say something other than a solution put it in a new post. (replies to comments can be whatever)
  • You can send code in code blocks by using three backticks, the code, and then three backticks or use something such as https://topaz.github.io/paste/ if you prefer sending it through a URL

FAQ

  • Quant@programming.dev
    link
    fedilink
    arrow-up
    2
    ·
    10 days ago

    I found multidimensional markers for partition to work really well for finding the fields: Areas ← ⊜□:⇡△.+1⍜♭⊛ It just groups the other array’s contents according to adjacent markers, horizontally and vertically. Took me quite a bit to figure out what’s actually happening in the example in the documentation ^^’

    • mykl@lemmy.world
      link
      fedilink
      arrow-up
      2
      ·
      edit-2
      10 days ago

      Ooh, interesting, I’ll have to give that a try. Thanks!

      (edit) Wow, that replaced my three lines of overly complex code without a hitch. classify is an operator I never really got the point of before. Beautiful.

      Data ← ⊜∘⊸≠@\n "AAAA\nBBCD\nBBCC\nEEEC"
      N₄     ← [¯1_0 1_0 01 0_1]               # Four orthogonal neighbours.
      Fences ← /+≡(/+=00⊡+N₄¤)⊙¤⊚.°⊚            # Fences for a field, by looking for edges.
      Cs     ← [0 1 1 0 1 0 2 1 1 2 0 1 0 1 1 0] # Number of corners keyed by bitarray of 2x2 grid.
      Sides  ← /+/+⧈(:Cs°⋯♭)2_2⌝↘¯11⌝↘1_1°⊚   # Add border, look for corners in 2x2 windows.
      
      Fields ← ⊜□:⇡△.+1⍜♭⊛Data
      
      /+×≡◇⊃⧻Fences Fields
      /+×≡◇⊃⧻Sides Fields
      
        • mykl@lemmy.world
          link
          fedilink
          arrow-up
          2
          ·
          edit-2
          10 days ago

          1.8s now. 99% of that in Sides. I’ve just had an idea though… maybe too late for today though!

          edit: prepending ≡⍚(-¤⊸/↧) toFields spared me from manipulating hundreds of irrelevant 0’s, so time is very good now at 55ms.

          • Quant@programming.dev
            link
            fedilink
            arrow-up
            2
            ·
            8 days ago

            Damn that’s a lot time saved. I love how unassuming the addition looks for how great an effect it has

            • mykl@lemmy.world
              link
              fedilink
              arrow-up
              1
              ·
              8 days ago

              It was a real D’oh! moment when I visualised the data I was generating and saw all the zeros stretching across the page.