aboutsummaryrefslogtreecommitdiff
path: root/Math/Combinatorics/YoungTableaux.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Math/Combinatorics/YoungTableaux.hs')
-rw-r--r--Math/Combinatorics/YoungTableaux.hs3
1 files changed, 0 insertions, 3 deletions
diff --git a/Math/Combinatorics/YoungTableaux.hs b/Math/Combinatorics/YoungTableaux.hs
index 683519f..357927c 100644
--- a/Math/Combinatorics/YoungTableaux.hs
+++ b/Math/Combinatorics/YoungTableaux.hs
@@ -73,9 +73,6 @@ reduceWord'' :: Ord a => [a] -> [a]
reduceWord'' xs
| length xs <= 2 = xs
| otherwise = let ys = reduceWord'' $ init xs in reduceWord' (init $ init ys) (last $ init ys, last ys, last xs) []
- {-- | otherwise = let ys = reduceWord $ init xs in
- let (zs, ws) = splitAt (length ys - 2) ys in
- reduceWord'' zs (ws ++ [last xs]) --}
reduceWord' :: Ord a => [a] -> (a, a, a) -> [a] -> [a]
reduceWord' [] (u, v, w) ys =