今回も思い切り富豪化してしまった...orz この手の問題は何かツボというか急所というかそういうのがあるのかな? module Main (main) where import Data.List import System import Control.Monad import Control.Monad.State type Cups = [Int] data Ts = Ts…

冗長に。 module Main (main) where import System import Control.Monad data Dice = Dice { v1 :: (Int, Int), v2 :: (Int,Int), v3 :: (Int,Int) } deriving (Show) north :: Dice -> Dice north d = Dice { v1 = v2 d, v2 = swap (v1 d), v3 = v3 d } ea…