Haskell

They're getting interesting now!

import Control.Monad  
import Data.List  
import Data.List.Split  
import Data.Ord  
import Data.Set qualified as Set  

readPos = (\([x, y, z] :: [Int]) -> (x, y, z)) . map read . splitOn ","  

pairs = init . tails >=> (\(x : xs) -> map (x,) xs)  

dist (x1, y1, z1) (x2, y2, z2) =  
  (x2 - x1) ^ 2 + (y2 - y1) ^ 2 + (z2 - z1) ^ 2  

connect circuits (a, b) =  
  let joined = filter (\c -> a `Set.member` c || b `Set.member` c) circuits  
   in Set.unions joined : (circuits \\ joined)  

main = do  
  boxes <- map readPos . lines <$> readFile "input08"  
  let steps =  
        (zip <*> tail . scanl' connect (map Set.singleton boxes)) $  
          sortOn (uncurry dist) (pairs boxes)  
  print $  
    product . take 3 . sortOn Down . map Set.size $  
      (snd . last . take 1000 $ steps)  
  print $  
    (\(Just (((x1, _, _), (x2, _, _)), _)) -> x1 * x2) $  
      find ((== 1) . length . snd) steps