この記事は、chatGPTが書いています。 最小全域木問題です。 リンク先のnotebookで動作確認できます。ぜひ、動かしてみてください。 動作過程をアニメーションで表現するコードもあります。 root(x)：xの属するグループの「親」を探す unite(x, y)：xとyを同じ ...

Competitive Programming in Haskell: Union-Find, part II {-# LANGUAGE RecordWildCards #-} import Control.Arrow ( (>>>) ) import Control.Monad.ST ( ST, runST ) import ...