メモ帳 S-function の正規化
Littlewood の S-function の standardization 夏休みの勉強ｗ 分割の共役 の共役は main = print (conj [4,3,3,2,2]) conj :: Partition -> Partition conj [] = [] conj xs = conj' (xs ++ [0]) conj' :: Partition -> Partition conj' [] = [] conj' [x] = [] conj' xs = (replicate (l2 - l1) p) ++ (conj' (init xs))…
